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