From a59a5a2db3a5fb18a2d1c38c3ad9df531d7bd118 Mon Sep 17 00:00:00 2001
From: Billy Lei <LeiYiXia29@outlook.com>
Date: Sat, 15 Mar 2025 14:46:31 +0800
Subject: [PATCH] Add input method for languages based on Burmese

This adds 4 new input methods:
 . Burmese
 . Burmese Visual
 . Shan
 . Mon
* lisp/leim/quail/burmese.el: New file.  (Bug#77026)

(cherry picked from commit 183ab3372e24c80217db8cc8ba22bf1ac48100a4)
---
 lisp/leim/quail/burmese.el | 388 +++++++++++++++++++++++++++++++++++++
 1 file changed, 388 insertions(+)
 create mode 100644 lisp/leim/quail/burmese.el

diff --git a/lisp/leim/quail/burmese.el b/lisp/leim/quail/burmese.el
new file mode 100644
index 00000000000..c1a655e55f4
--- /dev/null
+++ b/lisp/leim/quail/burmese.el
@@ -0,0 +1,388 @@
+;;; burmese.el --- Quail package for inputting Burmese	-*- coding: utf-8; lexical-binding:t -*-
+
+;; Copyright (C) 2007-2025 Free Software Foundation, Inc.
+
+;; Author: Billy Lei <LeiYiXia29@outlook.com>
+;; Keywords:  multilingual, input method, Burmese
+
+;; 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:
+
+;;; Code:
+
+(require 'quail)
+
+
+(quail-define-package
+ "burmese" "Burmese" "MY" nil "Burmese input method (in phonetic order)." nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?á)
+ ("2" ?á)
+ ("3" ?á)
+ ("4" ?á)
+ ("5" ?á)
+ ("6" ?á)
+ ("7" ?á)
+ ("8" ?á)
+ ("9" ?á)
+ ("0" ?á)
+
+ ("!" ?á)
+ ("@" ?á)
+ ("#" ?á)
+ ("$" ?á)
+ ("%" ?á)
+ ("^" ?á)
+ ("&" ?á)
+
+ ("`" ?á)
+ ("~" ?á)
+
+ ("Q" ?á)
+ ("W" ?á)
+ ("E" ?á£)
+ ("R" ?á)
+ ("T" ?á¤)
+ ("Y" ?á)
+ ("U" ?á¥)
+ ("I" ?á)
+ ("O" ?á¿)
+ ("P" ?á)
+ ("{" ?á§)
+ ("}" ?áª)
+
+ ("A" ?á)
+ ("S" ?á¾)
+ ("D" ?á®)
+ ("F" ?á¹)
+ ("G" ?á½)
+ ("H" ?á¶)
+ ("J" ?á²)
+ ("K" ?á)
+ ("L" ?á)
+
+ ("Z" ?á)
+ ("X" ?á)
+ ("C" ?á)
+ ("V" ?á )
+ ("B" ?á)
+ ("N" ?á)
+ ("M" ["á¦"])
+ ("<" ?á)
+ (">" ?á)
+ ("?" ??)
+
+ ("q" ?á)
+ ("w" ?á)
+ ("e" ?á)
+ ("r" ?á)
+ ("t" ?á¡)
+ ("y" ?á)
+ ("u" ?á)
+ ("i" ?á)
+ ("o" ?á)
+ ("p" ?á)
+ ("[" ?á)
+ ("]" ?á©)
+
+ ("a" ?á±)
+ ("s" ?á»)
+ ("d" ?á­)
+ ("f" ?áº)
+ ("g" ?á«)
+ ("h" ?á·)
+ ("j" ?á¼)
+ ("k" ?á¯)
+ ("l" ?á°)
+ (";" ?á¸)
+ (":" ?á)
+
+ ("z" ?á)
+ ("x" ?á)
+ ("c" ?á)
+ ("v" ?á)
+ ("b" ?á)
+ ("n" ?á)
+ ("m" ?á¬)
+ )
+
+(quail-define-package
+ "burmese-visual" "Burmese" "MYV" nil "Burmese input method (in visual order).
+
+A more common way to input Burmese, which allows inputing the vowel á± in visual order.
+" nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?á)
+ ("2" ?á)
+ ("3" ?á)
+ ("4" ?á)
+ ("5" ?á)
+ ("6" ?á)
+ ("7" ?á)
+ ("8" ?á)
+ ("9" ?á)
+ ("0" ?á)
+
+ ("!" ?á)
+ ("@" ?á)
+ ("#" ?á)
+ ("$" ?á)
+ ("%" ?á)
+ ("^" ?á)
+ ("&" ?á)
+
+ ("`" ?á)
+ ("~" ?á)
+
+ ("Q" ?á)
+ ("W" ?á)
+ ("E" ?á£)
+ ("R" ?á)
+ ("T" ?á¤)
+ ("Y" ?á)
+ ("U" ?á¥)
+ ("I" ?á)
+ ("O" ?á¿)
+ ("P" ?á)
+ ("{" ?á§)
+ ("}" ?áª)
+
+ ("A" ?á)
+ ("S" ?á¾)
+ ("D" ?á®)
+ ("F" ?á¹)
+ ("G" ?á½)
+ ("H" ?á¶)
+ ("J" ?á²)
+ ("K" ?á)
+ ("L" ?á)
+
+ ("Z" ?á)
+ ("X" ?á)
+ ("C" ?á)
+ ("V" ?á )
+ ("B" ?á)
+ ("N" ?á)
+ ("M" ["á¦"])
+ ("<" ?á)
+ (">" ?á)
+
+ ("q" ?á)
+ ("w" ?á)
+ ("e" ?á)
+ ("r" ?á)
+ ("t" ?á¡)
+ ("y" ?á)
+ ("u" ?á)
+ ("i" ?á)
+ ("o" ?á)
+ ("p" ?á)
+ ("[" ?á)
+ ("]" ["á©"])
+
+ ("a" ?á±)
+ ("s" ?á»)
+ ("d" ?á­)
+ ("f" ?áº)
+ ("g" ?á«)
+ ("h" ?á·)
+ ("j" ?á¼)
+ ("k" ?á¯)
+ ("l" ?á°)
+ (";" ?á¸)
+ (":" ?á)
+
+ ("z" ?á)
+ ("x" ?á)
+ ("c" ?á)
+ ("v" ?á)
+ ("b" ?á)
+ ("n" ?á)
+ ("m" ?á¬)
+
+ ("au" ["áá±"]) ("ac" ["áá±"]) ("a:" ["áá±"]) ("aC" ["áá±"]) ("ai" ["áá±"])
+ ("ap" ["áá±"]) ("aq" ["áá±"]) ("aZ" ["áá±"]) ("aQ" ["áá±"]) ("an" ["áá±"])
+ ("a#" ["áá±"]) ("aX" ["áá±"]) ("a!" ["áá±"]) ("a~" ["áá±"]) ("aP" ["áá±"])
+ ("aw" ["áá±"]) ("ax" ["áá±"]) ("aK" ["áá±"]) ("aL" ["áá±"]) ("ae" ["áá±"])
+ ("ay" ["áá±"]) ("az" ["áá±"]) ("aA" ["áá±"]) ("ab" ["áá±"]) ("ar" ["áá±"])
+ ("aB" ["áá±"]) ("a&" ["áá±"]) ("av" ["áá±"]) ("aW" ["áá±"]) ("ao" ["áá±"])
+ ("a[" ["áá±"]) ("aV" ["á á±"]) ("at" ["á¡á±"])
+ )
+
+(quail-define-package
+ "shan" "Burmese" "SHN" nil "Shan input method." nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("Q" ?ê©¡)
+ ("W" ?á)
+ ("E" ?ê§£)
+ ("R" ?á)
+ ("T" ?á¼)
+ ("Y" ?á¿)
+ ("U" ?á·)
+ ("I" ?á)
+ ("O" ?á)
+ ("P" ?á)
+
+ ("A" ?áµ)
+ ("S" ?á)
+ ("D" ?á®)
+ ("F" ?á)
+ ("G" ?á)
+ ("H" ?á·)
+ ("J" ?á)
+ ("K" ?á)
+ ("L" ?á)
+
+ ("Z" ?á¾)
+ ("X" ?ê©ª)
+ ("C" ?ê§ )
+ ("V" ?ê©®)
+ ("B" ?á»)
+ ("N" ?á)
+ ("M" ?á)
+ ("<" ?á)
+ (">" ?á)
+
+ ("q" ?á¸)
+ ("w" ?á)
+ ("e" ?á¼)
+ ("r" ?á)
+ ("t" ?á¢)
+ ("y" ?á)
+ ("u" ?áµ)
+ ("i" ?á)
+ ("o" ?á)
+ ("p" ?á)
+
+ ("a" ?á±)
+ ("s" ?á)
+ ("d" ?á­)
+ ("f" ?áº)
+ ("g" ?á½)
+ ("h" ?á)
+ ("j" ?á)
+ ("k" ?á¯)
+ ("l" ?á°)
+ (";" ?á)
+ (":" ?á¸)
+
+ ("z" ?á½)
+ ("x" ?á)
+ ("c" ?á¶)
+ ("v" ?á)
+ ("b" ?á)
+ ("n" ?áº)
+ ("m" ?á¢)
+ )
+
+
+(quail-define-package
+ "mon" "Burmese" "MON" nil "Mon input method." nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?á)
+ ("2" ?á)
+ ("3" ?á)
+ ("4" ?á)
+ ("5" ?á)
+ ("6" ?á)
+ ("7" ?á)
+ ("8" ?á)
+ ("9" ?á)
+ ("0" ?á)
+
+ ("!" ?á)
+ ("@" ?á)
+ ("#" ?á)
+ ("$" ?á)
+ ("^" ?áµ)
+ ("&" ?á)
+
+ ("`" ?á)
+ ("~" ?á)
+
+ ("Q" ?á)
+ ("W" ?á)
+ ("E" ?á£)
+ ("R" ?á)
+ ("T" ?á³)
+ ("Y" ?á )
+ ("U" ?á¥)
+ ("I" ?á)
+ ("O" ?á¿)
+ ("P" ?á)
+ ("{" ?á¨)
+ ("}" ?/)
+
+ ("A" ?á)
+ ("S" ?á¾)
+ ("D" ?á®)
+ ("F" ?á¹)
+ ("G" ?á½)
+ ("H" ?á¶)
+ ("J" ?á²)
+ ("K" ?á)
+ ("L" ?á)
+
+ ("Z" ?á)
+ ("X" ?á)
+ ("C" ?á)
+ ("V" ?á )
+ ("B" ?á)
+ ("N" ?á)
+ ("M" ?á)
+ ("<" ?á)
+ (">" ?á)
+ ("?" ?á)
+ ("/" ?á)
+
+ ("q" ?á)
+ ("w" ?á)
+ ("e" ?á)
+ ("r" ?á)
+ ("t" ?á¡)
+ ("y" ?á)
+ ("u" ?á)
+ ("i" ?á)
+ ("o" ?á)
+ ("p" ?á)
+ ("[" ?á)
+ ("]" ?á©)
+
+ ("a" ?á±)
+ ("s" ?á»)
+ ("d" ?á­)
+ ("f" ?áº)
+ ("g" ?á«)
+ ("h" ?á´)
+ ("j" ?á¼)
+ ("k" ?á¯)
+ ("l" ?á°)
+ (";" ?á¸)
+
+ ("z" ?á)
+ ("x" ?á)
+ ("c" ?á)
+ ("v" ?á)
+ ("b" ?á)
+ ("n" ?á)
+ ("m" ?á¬)
+ )
+;;; burmese.el ends here
-- 
2.39.5