1;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*- 2 3;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007 4;; Free Software Foundation, Inc. 5;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 6;; 2006, 2007 7;; National Institute of Advanced Industrial Science and Technology (AIST) 8;; Registration Number H14PRO021 9 10;; Keywords: multilingual, input method, Lao, LRT. 11 12;; This file is part of GNU Emacs. 13 14;; GNU Emacs is free software; you can redistribute it and/or modify 15;; it under the terms of the GNU General Public License as published by 16;; the Free Software Foundation; either version 2, or (at your option) 17;; any later version. 18 19;; GNU Emacs is distributed in the hope that it will be useful, 20;; but WITHOUT ANY WARRANTY; without even the implied warranty of 21;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22;; GNU General Public License for more details. 23 24;; You should have received a copy of the GNU General Public License 25;; along with GNU Emacs; see the file COPYING. If not, write to the 26;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 27;; Boston, MA 02110-1301, USA. 28 29;;; Commentary: 30 31;;; Code: 32 33(require 'quail) 34(require 'lao-util) 35 36;; LRT (Lao Roman Transcription) input method accepts the following 37;; key sequence: 38;; consonant [+ semi-vowel-sign-lo ] + vowel [+ maa-sakod ] [+ tone-mark ] 39 40(defun quail-lao-update-translation (control-flag) 41 (if (integerp control-flag) 42 ;; Non-composable character typed. 43 (setq quail-current-str 44 (buffer-substring (overlay-start quail-overlay) 45 (overlay-end quail-overlay)) 46 unread-command-events 47 (string-to-list 48 (substring quail-current-key control-flag))) 49 (let ((lao-str (lao-transcribe-roman-to-lao-string quail-current-key))) 50 (if (> (aref lao-str 0) 255) 51 (setq quail-current-str lao-str) 52 (or quail-current-str 53 (setq quail-current-str quail-current-key))))) 54 control-flag) 55 56 57(quail-define-package 58 "lao-lrt" "Lao" "(1E(BR" t 59 "Lao input method using LRT (Lao Roman Transcription). 60`\\' (backslash) + number-key => (1p(B,(1q(B,(1r(B,... LAO DIGIT ZERO, ONE, TWO, ... 61`\\' (backslash) + `\\' => (1f(B LAO KO LA (REPETITION) 62`\\' (backslash) + `$' => (1O(B LAO ELLIPSIS 63" 64 nil 'forget-last-selection 'deterministic 'kbd-translate 'show-layout 65 nil nil nil 'quail-lao-update-translation nil t) 66 67;; LRT (Lao Roman Transcription) input method accepts the following 68;; key sequence: 69;; consonant [ semi-vowel-sign-lo ] vowel [ maa-sakod ] [ tone-mark ] 70 71(quail-install-map 72 (quail-map-from-table 73 '((base-state (lao-transcription-consonant-alist . sv-state) 74 lao-transcription-vowel-alist 75 lao-transcription-tone-alist) 76 (sv-state (lao-transcription-semi-vowel-alist . v-state) 77 (lao-transcription-vowel-alist . mt-state)) 78 (v-state (lao-transcription-vowel-alist . mt-state)) 79 (mt-state (lao-transcription-maa-sakod-alist . t-state) 80 lao-transcription-tone-alist) 81 (t-state lao-transcription-tone-alist)))) 82 83;;; arch-tag: f65e4038-e187-4906-997b-d2de7ed813d2 84;;; lrt.el ends here 85