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

added function for org macros

Browse Source
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" . "ð")
("w" . "ƿ")
("j" . "i")))
(setq conlanging//matter-latin-to-latex-runes '((", *" . ":")
(setq conlanging//matter-latin-to-latex '((", *" . ":")
("\\. *" . "*")
(" +" . ".")
("ch" . "I")
@ -159,30 +159,52 @@ with."
; Mattér ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun conlanging/matter-to-runes ()
"Replaces transliterated Mattér to its runic writing system"
"Replaces transliterated Mattér with its runic writing system"
(interactive)
(conlanging//replace-char-by-table conlanging//matter-latin-to-runes))
(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"
(interactive)
(conlanging//replace-char-by-table conlanging//matter-latin-to-native))
(defun conlanging/matter-to-latex ()
"Replaces transliterated Mattér by its corresponding runes"
"Replaces transliterated Mattér with its corresponding runes"
(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 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun conlanging/einnlanda-to-runes ()
"Replaces transliterated Mattér to its runic writing system"
"Replaces transliterated Einnlandic with its runic writing system"
(interactive)
(conlanging//replace-char-by-table conlanging//einnlanda-latin-to-runes))
(defun conlanging/einnlanda-to-latex ()
"Replaces transliterated Mattér by its corresponding runes"
"Replaces transliterated Einnlandic with its corresponding runes"
(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)))