215 lines
10 KiB
EmacsLisp
215 lines
10 KiB
EmacsLisp
;;; funcs.el --- Conlanging Layer functions File for Spacemacs
|
||
;;
|
||
;; Copyright (c) 2019-2020 Lucien Cartier-Tilet
|
||
;;
|
||
;; Author: Lucien Cartier-Tilet <phundrak@phundrak.fr>
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;;; License: GPLv3
|
||
|
||
(setq conlanging//matter-latin-to-runes '((", *" . "᛬")
|
||
("\\. *" . "᛭")
|
||
(" +" . "᛫")
|
||
("ċ" . "ᛇ")
|
||
("ch" . "ᛇ")
|
||
("ae" . "ᚫ")
|
||
("æ" . "ᚫ")
|
||
("dh" . "ᛋ")
|
||
("z" . "ᛋ")
|
||
("ð" . "ᛋ")
|
||
("th" . "ᚦ")
|
||
("s" . "ᚦ")
|
||
("þ" . "ᚦ")
|
||
("w" . "ᚹ")
|
||
("ƿ" . "ᚹ")
|
||
("g" . "ᚷ")
|
||
("ᵹ" . "ᚷ")
|
||
("ea" . "ᛠ")
|
||
("f" . "ᚠ")
|
||
("u" . "ᚢ")
|
||
("o" . "ᚩ")
|
||
("r" . "ᚱ")
|
||
("c" . "ᚳ")
|
||
("h" . "ᚻ")
|
||
("n" . "ᚾ")
|
||
("i" . "ᛁ")
|
||
("j" . "ᛄ")
|
||
("p" . "ᛈ")
|
||
("v" . "ᛝ")
|
||
("t" . "ᛏ")
|
||
("b" . "ᛒ")
|
||
("e" . "ᛖ")
|
||
("m" . "ᛗ")
|
||
("l" . "ᛚ")
|
||
("d" . "ᛞ")
|
||
("é" . "ᛟ")
|
||
("a" . "ᚪ")
|
||
("y" . "ᚣ")))
|
||
(setq conlanging//matter-latin-to-native '((" +" . " ")
|
||
("ch" . "ċ")
|
||
("ae" . "æ")
|
||
("th" . "þ")
|
||
("s" . "þ")
|
||
("dh" . "ð")
|
||
("z" . "ð")
|
||
("w" . "ƿ")
|
||
("j" . "i")))
|
||
(setq conlanging//matter-latin-to-latex '((", *" . ":")
|
||
("\\. *" . "*")
|
||
(" +" . ".")
|
||
("ch" . "I")
|
||
("ċ" . "I")
|
||
("ae" . "æ")
|
||
("ea" . "\\\\ea")
|
||
("ƿ" . "w")
|
||
("dh" . "s")
|
||
("z" . "s")
|
||
("ð" . "s")
|
||
("th" . "þ")
|
||
("s" . "þ")
|
||
("v" . "\\\\ng")
|
||
("é " . "\\\\oe")))
|
||
|
||
(setq conlanging//eittlanda-latin-to-latex '((", *" . "\\\\tripledot")
|
||
("\\. *" . "\\\\tripledot")
|
||
(" +" . ":")
|
||
("hw" . "x")
|
||
("ø" . "\\\\o")
|
||
("ö" . "\\\\oO")
|
||
("ó" . "v")
|
||
("ń" . "\\\\ndot")
|
||
("v" . "b")))
|
||
(setq conlanging//eittlanda-latin-to-runes '((", *" . "⁝")
|
||
("\\. *" . "⁝")
|
||
(" +" . "᛬")
|
||
("hw" . "ᛪ")
|
||
("i" . "ᛁ")
|
||
("j" . "ᛁ")
|
||
("y" . "ᛦ")
|
||
("u" . "ᚢ")
|
||
("e" . "ᛂ")
|
||
("ø" . "ᚯ")
|
||
("o" . "ᚮ")
|
||
("ö" . "ᚰ")
|
||
("ó" . "ᚤ")
|
||
("æ" . "ᛅ")
|
||
("a" . "ᛆ")
|
||
("m" . "ᛘ")
|
||
("n" . "ᚾ")
|
||
("ń" . "ᛀ")
|
||
("p" . "ᛔ")
|
||
("b" . "ᛒ")
|
||
("t" . "ᛐ")
|
||
("d" . "ᛑ")
|
||
("k" . "ᚴ")
|
||
("g" . "ᚵ")
|
||
("f" . "ᚠ")
|
||
("v" . "ᛒ")
|
||
("þ" . "ᚦ")
|
||
("ð" . "ᚧ")
|
||
("s" . "ᛋ")
|
||
("h" . "ᚼ")
|
||
("w" . "ᚥ")
|
||
("r" . "ᚱ")
|
||
("l" . "ᛚ")))
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; Common ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
||
(defun conlanging//replace-string-by-char (t-string t-correspondance-table)
|
||
"Return a copy of t-string converted with the correspondance
|
||
table"
|
||
(interactive)
|
||
(while t-correspondance-table
|
||
(let ((cur-from-char (car (car t-correspondance-table)))
|
||
(cur-to-char (cdr (car t-correspondance-table))))
|
||
(setq t-string (replace-regexp-in-string cur-from-char cur-to-char
|
||
t-string))
|
||
(setq t-correspondance-table (cdr t-correspondance-table))))
|
||
t-string)
|
||
|
||
(defun conlanging//get-boundary ()
|
||
"Get the boundary of either the selected region, or if there is
|
||
none the word the cursor is over"
|
||
(interactive)
|
||
(let* ((beg (region-beginning))
|
||
(end (region-end))
|
||
(boundary-word (bounds-of-thing-at-point 'word)))
|
||
(if (= beg end)
|
||
boundary-word
|
||
(cons beg end))))
|
||
|
||
(defun conlanging//replace-char-by-table (correspondance-table)
|
||
"Replaces selected text’s strings according to the table passed
|
||
as argument. The table is a list of pairs, the first element of
|
||
the pair is a regex to be searched in the selected text and the
|
||
second element of the pair the string it has to be replaced
|
||
with."
|
||
(let* ((cur-boundary (conlanging//get-boundary))
|
||
(beg (car cur-boundary))
|
||
(end (cdr cur-boundary)))
|
||
(setq regionp (buffer-substring-no-properties beg end))
|
||
(setq regionp (conlanging//replace-string-by-char regionp
|
||
correspondance-table))
|
||
(delete-region beg end)
|
||
(goto-char beg)
|
||
(insert regionp)))
|
||
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; Mattér ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
(defun conlanging/matter-to-runes ()
|
||
"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 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 with its corresponding runes"
|
||
(interactive)
|
||
(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)))
|
||
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
; Eittlanda ;
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
(defun conlanging/eittlanda-to-runes ()
|
||
"Replaces transliterated Eittlandic with its runic writing system"
|
||
(interactive)
|
||
(conlanging//replace-char-by-table conlanging//eittlanda-latin-to-runes))
|
||
|
||
(defun conlanging/eittlanda-to-latex ()
|
||
"Replaces transliterated Eittlandic with its corresponding runes"
|
||
(interactive)
|
||
(conlanging//replace-char-by-table conlanging//eittlanda-latin-to-latex))
|
||
|
||
(defun conlanging/eittlanda-org-export-runes (text)
|
||
"Replaces transliterated Eittlandic 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//eittlanda-latin-to-latex)
|
||
"}")
|
||
(conlanging//replace-string-by-char text conlanging//eittlanda-latin-to-runes)))
|