diff options
Diffstat (limited to 'lisp/leim/quail/philippine.el')
-rw-r--r-- | lisp/leim/quail/philippine.el | 152 |
1 files changed, 152 insertions, 0 deletions
diff --git a/lisp/leim/quail/philippine.el b/lisp/leim/quail/philippine.el new file mode 100644 index 00000000000..9afbdc354e3 --- /dev/null +++ b/lisp/leim/quail/philippine.el @@ -0,0 +1,152 @@ +;;; philippine.el --- Quail package for inputting Philippine characters -*- lexical-binding: t; -*- + +;; Copyright (C) 2022 Free Software Foundation, Inc. + +;; Author: समीर सिंह Sameer Singh <lumarzeli30@gmail.com> +;; Keywords: multilingual, input method, i18n, Philippines + +;; This file is part of GNU Emacs. + +;; GNU Emacs 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. + +;; GNU Emacs 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 GNU Emacs. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; Input methods for Philippine languages. + +;;; Code: + +(require 'quail) + +;; This input method supports languages like Tagalog, Hanunoo, Buhid and +;; Tagbanwa, using the Baybayin script. +(quail-define-package + "tagalog" "Tagalog" "ᜊ" nil "Tagalog phonetic input method." + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("q" ?₱) + ("w" ?ᜏ) + ("r" ?ᜍ) + ("R" ?ᜟ) + ("t" ?ᜆ) + ("y" ?ᜌ) + ("u" ?ᜓ) + ("U" ?ᜂ) + ("i" ?ᜒ) + ("I" ?ᜁ) + ("p" ?ᜉ) + ("a" ?ᜀ) + ("s" ?ᜐ) + ("d" ?ᜇ) + ("f" ?᜔) + ("g" ?ᜄ) + ("h" ?ᜑ) + ("j" ?᜵) + ("J" ?᜶) + ("k" ?ᜃ) + ("l" ?ᜎ) + ("v" ?᜕) + ("b" ?ᜊ) + ("n" ?ᜈ) + ("N" ?ᜅ) + ("m" ?ᜋ)) + +(quail-define-package + "hanunoo" "Hanunoo" "ᜱ" nil "Hanunoo phonetic input method." + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("q" ?₱) + ("w" ?ᜯ) + ("r" ?ᜭ) + ("t" ?ᜦ) + ("y" ?ᜬ) + ("u" ?ᜳ) + ("U" ?ᜢ) + ("i" ?ᜲ) + ("I" ?ᜡ) + ("p" ?ᜩ) + ("a" ?ᜠ) + ("s" ?ᜰ) + ("d" ?ᜧ) + ("f" ?᜴) + ("g" ?ᜤ) + ("h" ?ᜱ) + ("j" ?᜵) + ("J" ?᜶) + ("k" ?ᜣ) + ("l" ?ᜮ) + ("b" ?ᜪ) + ("n" ?ᜨ) + ("N" ?ᜥ) + ("m" ?ᜫ)) + +(quail-define-package + "buhid" "Buhid" "ᝊᝓ" nil "Buhid phonetic input method." + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("q" ?₱) + ("w" ?ᝏ) + ("r" ?ᝍ) + ("t" ?ᝆ) + ("y" ?ᝌ) + ("u" ?ᝓ) + ("U" ?ᝂ) + ("i" ?ᝒ) + ("I" ?ᝁ) + ("p" ?ᝉ) + ("a" ?ᝀ) + ("s" ?ᝐ) + ("d" ?ᝇ) + ("g" ?ᝄ) + ("h" ?ᝑ) + ("j" ?᜵) + ("J" ?᜶) + ("k" ?ᝃ) + ("l" ?ᝎ) + ("b" ?ᝊ) + ("n" ?ᝈ) + ("N" ?ᝅ) + ("m" ?ᝋ)) + +(quail-define-package + "tagbanwa" "Tagbanwa" "ᝦ" nil "Tagbanwa phonetic input method." + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("q" ?₱) + ("w" ?ᝯ) + ("t" ?ᝦ) + ("y" ?ᝬ) + ("u" ?ᝳ) + ("U" ?ᝢ) + ("i" ?ᝲ) + ("I" ?ᝡ) + ("p" ?ᝩ) + ("a" ?ᝠ) + ("s" ?ᝰ) + ("d" ?ᝧ) + ("g" ?ᝤ) + ("j" ?᜵) + ("J" ?᜶) + ("k" ?ᝣ) + ("l" ?ᝮ) + ("b" ?ᝪ) + ("n" ?ᝨ) + ("N" ?ᝥ) + ("m" ?ᝫ)) + +(provide 'philippine) +;;; philippine.el ends here |