extracting conlanging layer to a different repo

This commit is contained in:
Phuntsok Drak-pa 2019-07-21 16:46:27 +02:00
parent 18f67cb3ec
commit 4db41d8c71
3 changed files with 0 additions and 158 deletions

View File

@ -1,32 +0,0 @@
#+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 |

View File

@ -1,110 +0,0 @@
;;; 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 texts 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))

View File

@ -1,16 +0,0 @@
;;; 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