-
Notifications
You must be signed in to change notification settings - Fork 1
/
gothic.el
94 lines (84 loc) · 2.26 KB
/
gothic.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
;;; gothic.el --- Quail package for inputting characters from the gothic alphabet (as used by Wulfila) -*-coding: utf-8;-*-
;; Copyright (C) 2008 Niels Giesen
;; Author: Niels Giesen <com dot gmail at niels dot giesen, in reversed order>
;; Keywords: mule, input method, Gothic
;; Version: 0.1
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
;; 02110-1301, USA.
;;; Commentary:
;; Numerics are input unintelligently, so if you want to, say, input
;; 412, type in 400 1 2, (or "wab" of course).
(require 'quail)
(quail-define-package
"gothic" "Gothic" "𐌾" t
"Gothic (UTF-8) input method."
nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
("a" ["𐌰"])
("1" ["𐌰"])
("b" ["𐌱"])
("2" ["𐌱"])
("g" ["𐌲"])
("3" ["𐌲"])
("d" ["𐌳"])
("4" ["𐌳"])
("e" ["𐌴"])
("5" ["𐌴"])
("q" ["𐌵"])
("6" ["𐌵"])
("z" ["𐌶"])
("7" ["𐌶"])
("h" ["𐌷"])
("8" ["𐌷"])
("th" ["𐌸"])
("9" ["𐌸"])
("i" ["𐌹"])
("10" ["𐌹"])
("\"i" ["𐌹̈"])
("10" ["𐌹̈"])
("k" ["𐌺"])
("20" ["𐌺"])
("l" ["𐌻"])
("30" ["𐌻"])
("m" ["𐌼"])
("40" ["𐌼"])
("n" ["𐌽"])
("50" ["𐌽"])
("j" ["𐌾"])
("60" ["𐌾"])
("u" ["𐌿"])
("70" ["𐌿"])
("p" ["𐍀"])
("80" ["𐍀"])
("q'" ["𐍁"])
("90" ["𐍁"])
("r" ["𐍂"])
("100" ["𐍂"])
("s" ["𐍃"])
("200" ["𐍃"])
("t" ["𐍄"])
("300" ["𐍄"])
("w" ["𐍅"])
("400" ["𐍅"])
("f" ["𐍆"])
("500" ["𐍆"])
("x" ["𐍇"])
("600" ["𐍇"])
("hw" ["𐍈"])
("700" ["𐍈"])
("o" ["𐍉"])
("800" ["𐍉"])
("S" ["𐍊"])
("900" ["𐍊"]))
(provide 'gothic)
;;; gothic.el ends here