initial commit
This commit is contained in:
Phuntsok Drak-pa
commit
c26c659c32
32
README.org
Normal file
32
README.org
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
#+TITLE: Conlanging layer
|
||||||
|
|
||||||
|
# The maximum height of the logo should be 200 pixels.
|
||||||
|
[[img/conlanging.png]]
|
||||||
|
|
||||||
|
# TOC links should be GitHub style anchors.
|
||||||
|
* Table of Contents :TOC_4_gh:noexport:
|
||||||
|
- [[#description][Description]]
|
||||||
|
- [[#features][Features:]]
|
||||||
|
- [[#install][Install]]
|
||||||
|
- [[#key-bindings][Key bindings]]
|
||||||
|
|
||||||
|
* Description
|
||||||
|
This layer adds support for conlanging.
|
||||||
|
|
||||||
|
** Features:
|
||||||
|
- Conversion from translittion to other alphabets
|
||||||
|
- Open linguistic files
|
||||||
|
|
||||||
|
* Install
|
||||||
|
To use this configuration layer, add it to your =~/.spacemacs=. You will need to
|
||||||
|
add =conlanging= to the existing =dotspacemacs-configuration-layers= list in this
|
||||||
|
file.
|
||||||
|
|
||||||
|
* Key bindings
|
||||||
|
|
||||||
|
| Key Binding | Description |
|
||||||
|
|---------------+-----------------------------------------------------|
|
||||||
|
| ~SPC o l m o~ | Open ~matter.org~ file |
|
||||||
|
| ~SPC o l m r~ | Translate Mattér translitteration into runes |
|
||||||
|
| ~SPC o l m l~ | Translate Mattér translitteration into native latin |
|
||||||
|
| ~SPC o l m h~ | Open ~hjepl.org~ file |
|
||||||
110
funcs.el
Normal file
110
funcs.el
Normal file
@ -0,0 +1,110 @@
|
|||||||
|
;;; 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 latin-to-runes-table '((", *" . "᛬")
|
||||||
|
("\\. *" . "᛭")
|
||||||
|
(" +" . "᛫")
|
||||||
|
("ċ" . "ᛇ") ("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 latin-to-native-table '((" +" . " ")
|
||||||
|
("ch" . "ċ")
|
||||||
|
("ae" . "æ")
|
||||||
|
("th" . "þ") ("s" . "þ")
|
||||||
|
("dh" . "ð") ("z" . "ð")
|
||||||
|
("w" . "ƿ")
|
||||||
|
("j" . "i")))
|
||||||
|
(setq latin-to-latex-runes '((", *" . ":")
|
||||||
|
("\\. *" . "*")
|
||||||
|
(" +" . ".")
|
||||||
|
("ch" . "I") ("ċ" . "I")
|
||||||
|
("ae" . "æ")
|
||||||
|
("ea" . "\\\\ea") ("ƿ" . "w")
|
||||||
|
("dh" . "s") ("z" . "s") ("ð" . "s")
|
||||||
|
("th" . "þ") ("s" . "þ")
|
||||||
|
("v" . "\\\\ng")
|
||||||
|
("é " . "\\\\oe")))
|
||||||
|
|
||||||
|
(defun conlanging//replace-string-by-char (t-string t-correspondance-table)
|
||||||
|
"Return a copy of t-string converted with the correspondance table"
|
||||||
|
(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)))
|
||||||
|
|
||||||
|
|
||||||
|
(defun conlanging/matter-to-runes ()
|
||||||
|
"Replaces translitterated Mattér to its runic writing system"
|
||||||
|
(interactive)
|
||||||
|
(conlanging//replace-char-by-table latin-to-runes-table))
|
||||||
|
|
||||||
|
(defun conlanging/matter-to-native-latin ()
|
||||||
|
"Replaces translitterated Mattér to its native latin writing system"
|
||||||
|
(interactive)
|
||||||
|
(conlanging//replace-char-by-table latin-to-native-table))
|
||||||
|
|
||||||
|
(defun conlanging/matter-to-latex-runes ()
|
||||||
|
(interactive)
|
||||||
|
(conlanging//replace-char-by-table latin-to-latex-runes))
|
||||||
16
packages.el
Normal file
16
packages.el
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
;;; packages.el --- conlanging layer packages file for Spacemacs.
|
||||||
|
;;
|
||||||
|
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
||||||
|
;;
|
||||||
|
;; Author: Lucien Cartier-Tilet <phundrak@phundrak.fr>
|
||||||
|
;; URL: https://github.com/syl20bnr/spacemacs
|
||||||
|
;;
|
||||||
|
;; This file is not part of GNU Emacs.
|
||||||
|
;;
|
||||||
|
;;; License: GPLv3
|
||||||
|
|
||||||
|
(defconst conlanging-packages
|
||||||
|
'())
|
||||||
|
|
||||||
|
|
||||||
|
;;; packages.el ends here
|
||||||
Reference in New Issue
Block a user