(description "Tibetan input method based on EWTS.
This implementation is based on THDL Extended Wylie Transliteration Scheme
-Version 2.0 <http://www.thdl.org/collections/langling/ewts/ewts.php>.")
+Version 2.0 <http://www.thlib.org/reference/transliteration/#essay=/thl/ewts>.")
+
+(title "ཀ")
(variable
(precomposed
If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
0 0 1))
-(title "ཀ")
-
(map
;; This map is used also for subjoined consonants.
(consonant
("<" "༺")
(">" "༻")
("(" "༼")
- (">" "༽")
+ (")" "༽")
;; Miscellaneous
("~X" "༵")
("X" "༷")
("^" "༹"))
(escape
- ("\\" (mark @BEG) "\\"))
+ ("\\" (mark BEG) "\\"))
(non-tibetan
("["))
(others)
(escape (shift dispatch-escape))
(non-tibetan (shift non-tibetan))
- (backsapce))
+ (backspace))
(after-consonant
(force-stack (shift consonant-stack))
(dispatch-escape
(unicode (shift unicode))
- (nil (delete @BEG) (shift init) (unhandle)))
+ (nil (delete BEG) (shift init) (unhandle)))
(unicode
"ཀu"
(hexadigit (cond ((> @-1 ?9) (set UNICODE (+ (* UNICODE 16) (- @-1 55))))
(1 (set UNICODE (+ (* UNICODE 16) (- @-1 48)))))
(set COUNT (+ COUNT 1))
- (cond ((= COUNT MAX-COUNT) (delete @BEG) (insert UNICODE)
+ (cond ((= COUNT MAX-COUNT) (delete BEG) (insert UNICODE)
(shift init)))))
(non-tibetan