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

added function for org macros

This commit is contained in:
Phuntsok Drak-pa 2019-08-13 16:39:23 +02:00
parent d8a4a5a274
commit 845b6cfd7a
1 changed files with 125 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
funcs.el
View File

@ -56,7 +56,7 @@
("z" . "ð") ("z" . "ð")
("w" . "ƿ") ("w" . "ƿ")
("j" . "i"))) ("j" . "i")))
(setq conlanging//matter-latin-to-latex-runes '((", *" . ":") (setq conlanging//matter-latin-to-latex '((", *" . ":")
("\\. *" . "*") ("\\. *" . "*")
(" +" . ".") (" +" . ".")
("ch" . "I") ("ch" . "I")
@ -159,30 +159,52 @@ with."
; Mattér ; ; Mattér ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun conlanging/matter-to-runes () (defun conlanging/matter-to-runes ()
"Replaces transliterated Mattér to its runic writing system" "Replaces transliterated Mattér with its runic writing system"
(interactive) (interactive)
(conlanging//replace-char-by-table conlanging//matter-latin-to-runes)) (conlanging//replace-char-by-table conlanging//matter-latin-to-runes))
(defun conlanging/matter-to-native-latin () (defun conlanging/matter-to-native-latin ()
"Replaces transliterated Mattér by its corresponding native "Replaces transliterated Mattér with its corresponding native
latin writing system" latin writing system"
(interactive) (interactive)
(conlanging//replace-char-by-table conlanging//matter-latin-to-native)) (conlanging//replace-char-by-table conlanging//matter-latin-to-native))
(defun conlanging/matter-to-latex () (defun conlanging/matter-to-latex ()
"Replaces transliterated Mattér by its corresponding runes" "Replaces transliterated Mattér with its corresponding runes"
(interactive) (interactive)
(conlanging//replace-char-by-table conlanging//matter-latin-to-latex-runes)) (conlanging//replace-char-by-table conlanging//matter-latin-to-latex))
(defun conlanging/matter-org-export-runes (text)
"Replaces transliterated Mattér with its corresponding runes during org-mode
export"
(interactive)
(if (org-export-derived-backend-p org-export-current-backend
'latex)
(concat "\\textarm{"
(conlanging//replace-string-by-char text conlanging//matter-latin-to-latex)
"}")
(conlanging//replace-string-by-char text conlanging//matter-latin-to-runes)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Einnlanda ; ; Einnlanda ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun conlanging/einnlanda-to-runes () (defun conlanging/einnlanda-to-runes ()
"Replaces transliterated Mattér to its runic writing system" "Replaces transliterated Einnlandic with its runic writing system"
(interactive) (interactive)
(conlanging//replace-char-by-table conlanging//einnlanda-latin-to-runes)) (conlanging//replace-char-by-table conlanging//einnlanda-latin-to-runes))
(defun conlanging/einnlanda-to-latex () (defun conlanging/einnlanda-to-latex ()
"Replaces transliterated Mattér by its corresponding runes" "Replaces transliterated Einnlandic with its corresponding runes"
(interactive) (interactive)
(conlanging//replace-char-by-table conlanging//einnlanda-latin-to-latex-runes)) (conlanging//replace-char-by-table conlanging//einnlanda-latin-to-latex))
(defun conlanging/einnlanda-org-export-runes (text)
"Replaces transliterated Einnlandic with its corresponding runes during
org-mode export"
(interactive)
(if (org-export-derived-backend-p org-export-current-backend
'latex)
(concat "\\textarm{"
(conlanging//replace-string-by-char text conlanging//einnlanda-latin-to-latex)
"}")
(conlanging//replace-string-by-char text conlanging//einnlanda-latin-to-runes)))