phundrak/conlang-layer
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Changed “Einnland” to “Eittland”

Browse Source
This commit is contained in:
Phuntsok Drak-pa 2019-08-21 14:57:03 +02:00
parent 28ddbc9fa9
commit fa521ee02a
2 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
funcs.el
View File

@ -72,7 +72,7 @@
("v" . "\\\\ng") ("v" . "\\\\ng")
("é " . "\\\\oe"))) ("é " . "\\\\oe")))
(setq conlanging//einnlanda-latin-to-latex '((", *" . "\\\\tripledot") (setq conlanging//eittlanda-latin-to-latex '((", *" . "\\\\tripledot")
("\\. *" . "\\\\tripledot") ("\\. *" . "\\\\tripledot")
(" +" . ":") (" +" . ":")
("hw" . "x") ("hw" . "x")
@ -81,7 +81,7 @@
("ó" . "v") ("ó" . "v")
("ń" . "\\\\ndot") ("ń" . "\\\\ndot")
("v" . "b"))) ("v" . "b")))
(setq conlanging//einnlanda-latin-to-runes '((", *" . "⁝") (setq conlanging//eittlanda-latin-to-runes '((", *" . "⁝")
("\\. *" . "⁝") ("\\. *" . "⁝")
(" +" . "᛬") (" +" . "᛬")
("hw" . "ᛪ") ("hw" . "ᛪ")
@ -115,6 +115,10 @@
("r" . "ᚱ") ("r" . "ᚱ")
("l" . "ᛚ"))) ("l" . "ᛚ")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Common ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun conlanging//replace-string-by-char (t-string t-correspondance-table) (defun conlanging//replace-string-by-char (t-string t-correspondance-table)
"Return a copy of t-string converted with the correspondance "Return a copy of t-string converted with the correspondance
table" table"
@ -186,25 +190,25 @@ export"
(conlanging//replace-string-by-char text conlanging//matter-latin-to-runes))) (conlanging//replace-string-by-char text conlanging//matter-latin-to-runes)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Einnlanda ; ; Eittlanda ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun conlanging/einnlanda-to-runes () (defun conlanging/eittlanda-to-runes ()
"Replaces transliterated Einnlandic with its runic writing system" "Replaces transliterated Eittlandic with its runic writing system"
(interactive) (interactive)
(conlanging//replace-char-by-table conlanging//einnlanda-latin-to-runes)) (conlanging//replace-char-by-table conlanging//eittlanda-latin-to-runes))
(defun conlanging/einnlanda-to-latex () (defun conlanging/eittlanda-to-latex ()
"Replaces transliterated Einnlandic with its corresponding runes" "Replaces transliterated Eittlandic with its corresponding runes"
(interactive) (interactive)
(conlanging//replace-char-by-table conlanging//einnlanda-latin-to-latex)) (conlanging//replace-char-by-table conlanging//eittlanda-latin-to-latex))
(defun conlanging/einnlanda-org-export-runes (text) (defun conlanging/eittlanda-org-export-runes (text)
"Replaces transliterated Einnlandic with its corresponding runes during "Replaces transliterated Eittlandic with its corresponding runes during
org-mode export" org-mode export"
(interactive) (interactive)
(if (org-export-derived-backend-p org-export-current-backend (if (org-export-derived-backend-p org-export-current-backend
'latex) 'latex)
(concat "\\textarm{" (concat "\\textarm{"
(conlanging//replace-string-by-char text conlanging//einnlanda-latin-to-latex) (conlanging//replace-string-by-char text conlanging//eittlanda-latin-to-latex)
"}") "}")
(conlanging//replace-string-by-char text conlanging//einnlanda-latin-to-runes))) (conlanging//replace-string-by-char text conlanging//eittlanda-latin-to-runes)))

10
keybindings.el
View File

@ -15,14 +15,14 @@
(spacemacs/declare-prefix "olm" "Mattér") (spacemacs/declare-prefix "olm" "Mattér")
(spacemacs/declare-prefix "olmo" "matter.org") (spacemacs/declare-prefix "olmo" "matter.org")
(spacemacs/declare-prefix "ole" "Einnlanda") (spacemacs/declare-prefix "ole" "Einnlanda")
(spacemacs/declare-prefix "oleo" "einnlanda.org") (spacemacs/declare-prefix "oleo" "eittlanda.org")
(spacemacs/declare-prefix "oln" "Ňyqy") (spacemacs/declare-prefix "oln" "Ňyqy")
(spacemacs/declare-prefix "olno" "nyqy.org") (spacemacs/declare-prefix "olno" "nyqy.org")
(spacemacs/declare-prefix "olnO" "nyqy2.org") (spacemacs/declare-prefix "olnO" "nyqy2.org")
(spacemacs/declare-prefix "olt" "Tãso") (spacemacs/declare-prefix "olt" "Tãso")
(spacemacs/declare-prefix "olto" "taso.org") (spacemacs/declare-prefix "olto" "taso.org")
(spacemacs/declare-prefix-for-mode 'org-mode "ml" "conlanging") (spacemacs/declare-prefix-for-mode 'org-mode "ml" "conlanging")
(spacemacs/declare-prefix-for-mode 'org-mode "mle" "Einnlanda") (spacemacs/declare-prefix-for-mode 'org-mode "mle" "Eittlanda")
(spacemacs/declare-prefix-for-mode 'org-mode "mlm" "Mattér") (spacemacs/declare-prefix-for-mode 'org-mode "mlm" "Mattér")
(spacemacs/set-leader-keys (spacemacs/set-leader-keys
@ -35,7 +35,7 @@
"olnO" (lambda () (interactive) "olnO" (lambda () (interactive)
(find-file "~/Documents/code/web/langue-phundrak-fr/nyqy2.org")) (find-file "~/Documents/code/web/langue-phundrak-fr/nyqy2.org"))
"oleo" (lambda () (interactive) "oleo" (lambda () (interactive)
(find-file "~/Documents/code/web/langue-phundrak-fr/einnlanda.org")) (find-file "~/Documents/code/web/langue-phundrak-fr/eittlanda.org"))
"olto" (lambda () (interactive) "olto" (lambda () (interactive)
(find-file "~/Documents/code/web/langue-phundrak-fr/taso.org"))) (find-file "~/Documents/code/web/langue-phundrak-fr/taso.org")))
@ -43,7 +43,7 @@
"lmr" 'conlanging/matter-to-runes "lmr" 'conlanging/matter-to-runes
"lml" 'conlanging/matter-to-native-latin "lml" 'conlanging/matter-to-native-latin
"lmL" 'conlanging/matter-to-latex "lmL" 'conlanging/matter-to-latex
"ler" 'conlanging/einnlanda-to-runes "ler" 'conlanging/eittlanda-to-runes
"lel" 'conlanging/einnlanda-to-latex) "lel" 'conlanging/eittlanda-to-latex)
;;; keybindings.el ends here ;;; keybindings.el ends here