summaryrefslogtreecommitdiff
path: root/ithkuil.el
diff options
context:
space:
mode:
Diffstat (limited to 'ithkuil.el')
-rw-r--r--ithkuil.el67
1 files changed, 67 insertions, 0 deletions
diff --git a/ithkuil.el b/ithkuil.el
new file mode 100644
index 0000000..e409a91
--- /dev/null
+++ b/ithkuil.el
@@ -0,0 +1,67 @@
+;;; ithkuil.el --- Input-method for The New Ithkuil Language -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2026 Jean Sévère Durand
+
+;; Author: Jean Sévère Durand <durand@jsdurand.xyz>
+;; Keywords: emulations, wp, abbrev
+
+;; 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, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My input-method for TNIL.
+
+;;; Code:
+
+(quail-define-package
+ "ithkuil" "TNIL" "TNIL" t "TODO")
+
+(quail-defrule ":a" ?ä)
+(quail-defrule ":e" ?ë)
+(quail-defrule ":o" ?ö)
+(quail-defrule ":u" ?ü)
+
+(quail-defrule ";a" ?â)
+(quail-defrule ";e" ?ê)
+(quail-defrule ";o" ?ô)
+(quail-defrule ";u" ?û)
+
+(quail-defrule "/a" ?á)
+(quail-defrule "/e" ?é)
+(quail-defrule "/i" ?í)
+(quail-defrule "/o" ?ó)
+(quail-defrule "/u" ?ú)
+
+(quail-defrule "\\i" ?ì)
+(quail-defrule "\\u" ?ù)
+
+(quail-defrule ",'" ?\’)
+(quail-defrule ",t" ?ţ)
+(quail-defrule ",d" ?ḑ)
+(quail-defrule ",c" ?ç)
+(quail-defrule ",l" ?ļ)
+
+(quail-defrule ">d" (vector "d͕"))
+(quail-defrule ">l" (vector "l͕"))
+
+(quail-defrule ";s" ?š)
+(quail-defrule ";z" ?ž)
+(quail-defrule ";c" ?č)
+(quail-defrule ";n" ?ň)
+(quail-defrule ";r" ?ř)
+
+(quail-defrule ".z" ?ẓ)
+
+(provide 'ithkuil)
+;;; ithkuil.el ends here