Author: jhyeon Date: Tue Jan 1 09:48:15 2008 New Revision: 5085
Modified: trunk/scm/byeoru-custom.scm trunk/scm/byeoru-dic.scm trunk/scm/byeoru-key-custom.scm trunk/scm/byeoru-symbols.scm trunk/scm/byeoru.scm Log: * scm/byeoru.scm - added a 2-beol layout which works like MS-Windows IME; the difference from the existing (hanterm-style) 2-beol layout is that it maps an undefined shifted key to a jamo rather than an alphabet; for example, <Shift>e <Shift>k is translated to "따" instead of "ㄸK" as in hanterm; closes #13879; problem reported and patch submitted by ChangBeom Yoon <[EMAIL PROTECTED]> * scm/byeoru-custom.scm - follows the above addition to byeoru.scm - change default layout to byeoru-layout-hangul2windows * scm/byeoru-custom.scm * scm/byeoru-dic.scm * scm/byeoru-key-custom.scm * scm/byeoru-symbols.scm * scm/byeoru.scm - moved emacs mode and coding specs to the end of each file for cosmetic reasons Modified: trunk/scm/byeoru-custom.scm ============================================================================== --- trunk/scm/byeoru-custom.scm (original) +++ trunk/scm/byeoru-custom.scm Tue Jan 1 09:48:15 2008 @@ -1,5 +1,3 @@ -;; -*- mode: scheme; coding: utf-8 -*- - ;;; byeoru-custom.scm: Customization variables for byeoru.scm ;;; ;;; Copyright (c) 2003-2007 uim Project http://code.google.com/p/uim/ @@ -40,11 +38,15 @@ (define byeoru-im-long-desc (N_ "A comprehensive input method suite for Hangul. This covers most of the major input methods such as 2-beol and 3-beol variants, and provides features such as Hangul-Chinese conversion. The name 'byeoru' means inkstone in Korean.")) (define byeoru-layout-alist - (list - (list 'byeoru-layout-hangul2 + (list + (list 'byeoru-layout-hangul2hanterm + #f ; 2-beol can not be orderless. + (N_ "Hangul 2-beol Hanterm") + (N_ "Hangul 2-beol keyboard that maps an undefined shifted key to an alphabet")) + (list 'byeoru-layout-hangul2windows #f ; 2-beol can not be orderless. - (N_ "Hangul 2-beol") - (N_ "Standard Hangul 2-beol keyboard")) + (N_ "Hangul 2-beol Windows") + (N_ "Hangul 2-beol keyboard that maps an undefined shifted key to a jamo")) (list 'byeoru-layout-strict3final #f ; neither can strict 3-beol. (N_ "Hangul 3-beol final strict") @@ -89,7 +91,7 @@ (N_ "long description will be here.")) ;; Changing keyboard layout should flush the automata. -(define-custom 'byeoru-layout 'byeoru-layout-hangul2 +(define-custom 'byeoru-layout 'byeoru-layout-hangul2windows '(byeoru byeoru-keyboard) (cons 'choice (map (lambda (entry) @@ -165,3 +167,8 @@ '(boolean) (N_ "Represent incomplete syllables using compatibility jamos") (N_ "long description will be here.")) + +;; Local Variables: +;; mode: scheme +;; coding: utf-8 +;; End: Modified: trunk/scm/byeoru-dic.scm ============================================================================== --- trunk/scm/byeoru-dic.scm (original) +++ trunk/scm/byeoru-dic.scm Tue Jan 1 09:48:15 2008 @@ -1,5 +1,3 @@ -;; -*- mode: scheme; coding: utf-8 -*- - ;;; byeoru-dic.scm: Hangul character to Chinese character ;;; dictionary for byeoru.scm ;;; @@ -70904,3 +70902,8 @@ ("黠" . "약을 힐")) ("힐난" "詰難"))) + +;; Local Variables: +;; mode: scheme +;; coding: utf-8 +;; End: Modified: trunk/scm/byeoru-key-custom.scm ============================================================================== --- trunk/scm/byeoru-key-custom.scm (original) +++ trunk/scm/byeoru-key-custom.scm Tue Jan 1 09:48:15 2008 @@ -1,5 +1,3 @@ -;; -*- mode: scheme; coding: utf-8 -*- - ;;; byeoru-key-custom.scm: Key customization variables for byeoru.scm ;;; ;;; Copyright (c) 2003-2007 uim Project http://code.google.com/p/uim/ @@ -132,3 +130,8 @@ '(key) (N_ "[Byeoru] end of word") (N_ "long description will be here")) + +;; Local Variables: +;; mode: scheme +;; coding: utf-8 +;; End: Modified: trunk/scm/byeoru-symbols.scm ============================================================================== --- trunk/scm/byeoru-symbols.scm (original) +++ trunk/scm/byeoru-symbols.scm Tue Jan 1 09:48:15 2008 @@ -1,5 +1,3 @@ -;; -*- mode: scheme; coding: utf-8 -*- - ;;; byeoru-symbols.scm: Symbols list for byeoru.scm ;;; ;;; Copyright (c) 2003-2007 uim Project http://code.google.com/p/uim/ @@ -1113,3 +1111,8 @@ 1101 1102 1103))) + +;; Local Variables: +;; mode: scheme +;; coding: utf-8 +;; End: Modified: trunk/scm/byeoru.scm ============================================================================== --- trunk/scm/byeoru.scm (original) +++ trunk/scm/byeoru.scm Tue Jan 1 09:48:15 2008 @@ -1,5 +1,3 @@ -;; -*- mode: scheme; coding: utf-8 -*- - ;;; byeoru.scm: a Hangul input module for uim. ;;; ;;; Copyright (c) 2003-2007 uim Project http://code.google.com/p/uim/ @@ -204,7 +202,7 @@ cands)))) layout)))) -(define byeoru-layout-hangul2 +(define byeoru-layout-hangul2hanterm (byeoru-expand-layout ;; Unshifted keys '(("q" (choseong-bieub . 1) (jongseong-bieub . (3 4))) @@ -242,6 +240,63 @@ ("O" (jungseong-yae . 1)) ("P" (jungseong-ye . 1))))) +(define byeoru-layout-hangul2windows + (byeoru-expand-layout + ;; Unshifted keys + '(("q" (choseong-bieub . 1) (jongseong-bieub . (3 4))) + ("w" (choseong-jieuj . 1) (jongseong-jieuj . (1 4))) + ("e" (choseong-digeud . 1) (jongseong-digeud . 1)) + ("r" (choseong-giyeog . 1) (jongseong-giyeog . (3 4))) + ("t" (choseong-sios . 1) (jongseong-sios . (1 4))) + ("y" (jungseong-yo . 1)) + ("u" (jungseong-yeo . 1)) + ("i" (jungseong-ya . 1)) + ("o" (jungseong-ae . (1 4))) + ("p" (jungseong-e . (1 4))) + ("a" (choseong-mieum . 1) (jongseong-mieum . (1 4))) + ("s" (choseong-nieun . 1) (jongseong-nieun . 3)) + ("d" (choseong-ieung . 1) (jongseong-ieung . 1)) + ("f" (choseong-rieul . 1) (jongseong-rieul . 3)) + ("g" (choseong-hieuh . 1) (jongseong-hieuh . (1 4))) + ("h" (jungseong-o . 3)) + ("j" (jungseong-eo . (1 4))) + ("k" (jungseong-a . (1 4))) + ("l" (jungseong-i . (1 4))) + ("z" (choseong-kieuk . 1) (jongseong-kieuk . 1)) + ("x" (choseong-tieut . 1) (jongseong-tieut . (1 4))) + ("c" (choseong-chieuch . 1) (jongseong-chieuch . 1)) + ("v" (choseong-pieup . 1) (jongseong-pieup . (1 4))) + ("b" (jungseong-yu . 1)) + ("n" (jungseong-u . 3)) + ("m" (jungseong-eu . 3)) + ;; Shifted keys + ("Q" (choseong-ssangbieub . 5)) + ("W" (choseong-ssangjieuj . 5)) + ("E" (choseong-ssangdigeud . 5)) + ("R" (choseong-ssanggiyeog . 5) (jongseong-ssanggiyeog . 5)) + ("T" (choseong-ssangsios . 5) (jongseong-ssangsios . 5)) + ("Y" (jungseong-yo . 1)) + ("U" (jungseong-yeo . 1)) + ("I" (jungseong-ya . 1)) + ("O" (jungseong-yae . 1)) + ("P" (jungseong-ye . 1)) + ("A" (choseong-mieum . 1) (jongseong-mieum . (1 4))) + ("S" (choseong-nieun . 1) (jongseong-nieun . 3)) + ("D" (choseong-ieung . 1) (jongseong-ieung . 1)) + ("F" (choseong-rieul . 1) (jongseong-rieul . 3)) + ("G" (choseong-hieuh . 1) (jongseong-hieuh . (1 4))) + ("H" (jungseong-o . 3)) + ("J" (jungseong-eo . (1 4))) + ("K" (jungseong-a . (1 4))) + ("L" (jungseong-i . (1 4))) + ("Z" (choseong-kieuk . 1) (jongseong-kieuk . 1)) + ("X" (choseong-tieut . 1) (jongseong-tieut . (1 4))) + ("C" (choseong-chieuch . 1) (jongseong-chieuch . 1)) + ("V" (choseong-pieup . 1) (jongseong-pieup . (1 4))) + ("B" (jungseong-yu . 1)) + ("N" (jungseong-u . 3)) + ("M" (jungseong-eu . 3))))) + ;; The following definitions of 3-beol variants [final, 390, no-shift] ;; are based on the US keyboard layout. A user of a different layout ;; (such as dvorak, Japanese) may want to write their own definition @@ -1898,3 +1953,8 @@ #f #f ) + +;; Local Variables: +;; mode: scheme +;; coding: utf-8 +;; End:
