From 0caaf81a098ef168681672107a37bfaca8498d52 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <grant@churls.world>
Date: Sun, 23 May 2021 11:28:25 -0500
Subject: [PATCH] * lisp/leim/quail/latin-post.el Add: Lakota postfix
 definitions

---
 lisp/leim/quail/latin-post.el | 49 +++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/lisp/leim/quail/latin-post.el b/lisp/leim/quail/latin-post.el
index 10408776a2..f4876622b4 100644
--- a/lisp/leim/quail/latin-post.el
+++ b/lisp/leim/quail/latin-post.el
@@ -1298,6 +1298,55 @@
  ("a__" ["a_"])
  )
 
+;; Input modes of various orthographies for the Lakota language.
+;; I'd like to acknowledge the elders and ancestors who fought
+;; to keep the language and culture alive.
+;; Grant Shangreaux <grant@churls.world> 2021-05-23
+
+(quail-define-package
+ "lakota-white-hat-postfix" "Lakota" "Lak " t
+ "Lakota White Hat orthography input method.
+Unused letters `r' and `v' are used to add the dot above and macron
+diacritics for used in this orthography. The glottal stop is produced
+by repeating the `'' character."
+nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("f" ?ŋ)
+ ("r" #x307)                            ; COMBINING DOT ABOVE
+ ("v" #x304)                            ; COMBINING MACRON
+ ("''" ?’)
+ )
+
+(quail-define-package
+ "lakota-slo-postfix" "Lakota" "SLO " t
+ "Suggested Lakota Orthography input method.
+Uses a postfix modifier key for adding accent diacritics. To add stress
+to a vowel, simply type the single quote ' after the vowel. All other characters
+are bound to a single key. Mitákuyepi philámayaye ló. "
+nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ;; accented vowels
+ ("a'" ?á) ("A'" ?Á)
+ ("e'" ?é) ("E'" ?É)
+ ("i'" ?í) ("I'" ?Í)
+ ("o'" ?ó) ("O'" ?Ó)
+ ("u'" ?ú) ("U'" ?Ú)
+
+ ;; consonants with caron
+ ("c" ?č) ("C" ?Č)
+ ("j" ?ȟ) ("J" ?Ȟ)
+ ("q" ?ǧ) ("Q" ?Ǧ)
+ ("x" ?ž) ("X" ?Ž)
+ ("r" ?š) ("R" ?Š)
+
+ ;; velar nasal n
+ ("f" ?ŋ)
+
+ ;; glottal stop
+ ("''" ?’))
+
 (quail-define-package
  "norwegian-postfix" "Latin-1" "NO<" t
  "Norwegian (Norsk) input method (rule: AE->Æ   OE->Ø   AA->Å   E\\='->É
-- 
2.20.1