conlang-layer/funcs.el

;;; 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

                                        ; Mattér ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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")))

                                        ; Eittlandic ;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq conlanging//eittlanda-latin-to-latex '((", *" . "\\\\tripledot")
                                             ("\\. *" . "\\\\tripledot")
                                             (" +" . ":")
                                             ("hw" . "x")
                                             ("ø" . "\\\\o")
                                             ("ö" . "\\\\oO")
                                             ("ó" . "v")
                                             ("ń" . "\\\\ndot")
                                             ("v" . "w")))
(setq conlanging//eittlanda-latin-to-runes '((", *" . "⁝")
                                             ("\\. *" . "⁝")
                                             (" +" . "᛬")
                                             (":" . "᛬")
                                             ("hw" . "ᛪ")
                                             ("i" . "ᛁ")
                                             ("y" . "ᛦ")
                                             ("u" . "ᚢ")
                                             ("e" . "ᛂ")
                                             ("ø" . "ᚯ")
                                             ("o" . "ᚮ")
                                             ("ö" . "ᚰ")
                                             ("ó" . "ᚤ")
                                             ("æ" . "ᛅ")
                                             ("a" . "ᛆ")
                                             ("m" . "ᛘ")
                                             ("n" . "ᚾ")
                                             ("ń" . "ᛀ")
                                             ("p" . "ᛔ")
                                             ("b" . "ᛒ")
                                             ("t" . "ᛐ")
                                             ("d" . "ᛑ")
                                             ("k" . "ᚴ")
                                             ("g" . "ᚵ")
                                             ("f" . "ᚠ")
                                             ("þ" . "ᚦ")
                                             ("ð" . "ᚧ")
                                             ("s" . "ᛋ")
                                             ("h" . "ᚼ")
                                             ("v" . "ᚥ")
                                             ("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)))