<h2>Edit File: ko-romaja.mim</h2><form method="post"><textarea name="content" rows="20" cols="80">;; ko-romaja.mim -- Input method for Korean Hangul with Romaja keys.
;; Copyright (C) 2004, 2005, 2008
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H15PRO112

;; This file is part of the m17n database; a sub-part of the m17n
;; library.

;; The m17n library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation; either version 2.1 of
;; the License, or (at your option) any later version.

;; The m17n library 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
;; Lesser General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public
;; License along with the m17n library; if not, write to the Free
;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

(input-method ko romaja)

(description
 &quot;Hangul input method with romaja keys.
The roman-transliteration rules follows that of Hangule LE in IIIMF.

Common to CHOSEONG and JONGSEONG:
  ㄱ(g) ㄲ(gg,kk,qq,c) ㄴ(n) ㄷ(d) ㄹ(l) ㄹ(r) ㅁ(m) ㅂ(b,v) ㅅ(s)
  ㅆ(ss) ㅇ(ng) ㅇ(x) ㅈ(j) ㅊ(ch) ㅋ(k,q) ㅌ(t) ㅍ(p,f) ㅎ(h)

CHOSEONG:
  ㄸ(dd,tt) ㅃ(bb,vv) ㅉ(jj)

JONGSEONG:
  ㄳ(gs) ㄵ(nj) ㄶ(nh) ㄺ(lg) ㄻ(lm) ㄼ(lb) ㄽ(ls) ㄾ(lt) ㄿ(lp) ㅀ(lh) ㅄ(bs)

JUNGSEONG:
  ㅏ(a) ㅐ(ai,ae) ㅑ (ya,ia) ㅒ(yai,yae,iae) ㅓ(eo) ㅔ(e,eoi) ㅕ(yeo,ieo)
  ㅖ(ye,ie,yeoi) ㅗ(o) ㅘ(oa,wa,ua) ㅙ(oai,wae,uae,oae) ㅚ(oi,woe,uoe,oe)
  ㅛ(yo,io) ㅜ(u,w,oo) ㅝ(ueo,wo,uo) ㅞ(ue,we) ㅟ(wi) ㅠ(yu,iu) ㅡ(eu)
  ㅢ(eui,ui) ㅣ(i,y,ee)

Special:
  Type uppercase letter to specify CHOSEONG explicitly.
  Type \&quot;I\&quot; to toggle the composed-syllable mode and isolated-jamo mode.
  Type \&quot;&gt;&gt;\&quot; to fullwidth ASCII letter mode, \&quot;&lt;&lt;\&quot; to shift out the mode.
  Type \&quot;Z\&quot; and a key to input fullwidth version of the key.
&quot;)

(title &quot;로마자&quot;)

(macro
 (compose
  ;; Convert Jamo sequence LVT to a precomposed character.
  ;; See the Unicode Standard Version 3.0, Section 3.11.
  (&gt; L 0
     ((set LIndex L) (sub LIndex 0x1100)
      (set VIndex V) (sub VIndex 0x1161)
      (set TIndex T) (sub TIndex 0x11A7)
      ;; S = (LIndex * VCount + Vindex) * TCount + TIndex + SBase
      (set S LIndex)
      (mul S 21) ;; VCount
      (add S VIndex)
      (mul S 28) ;; TCount
      (add S TIndex)
      (add S 0xAC00) ;; SBase
      (delete @&lt;)
      (insert S))))

 ;; If L is not negative, convert Jame sequence LV to a precomposed
 ;; character while assuming T is 0x11A7.  If L is 0 (i.e. missing),
 ;; set L to 0x110B.
 (compose-vowel
  (&lt; L 0
     ()
     ((= L 0 ((set L 0x110B)))
      (set T1 T)
      (set T 0x11A7)
      (compose)
      (set T T1)))))

(map
 ;; This map is used only in init state, which means typing these
 ;; uppercase letters in any other states causes shifting to init
 ;; state, and they are re-handled in init state.
 (uppercase
  (&quot;B&quot; (pushback &quot;b&quot;)) (&quot;C&quot; (pushback &quot;c&quot;)) (&quot;D&quot; (pushback &quot;d&quot;))
  (&quot;F&quot; (pushback &quot;f&quot;)) (&quot;G&quot; (pushback &quot;g&quot;)) (&quot;H&quot; (pushback &quot;h&quot;))
  (&quot;J&quot; (pushback &quot;j&quot;)) (&quot;K&quot; (pushback &quot;k&quot;)) (&quot;L&quot; (pushback &quot;l&quot;))
  (&quot;M&quot; (pushback &quot;m&quot;)) (&quot;N&quot; (pushback &quot;n&quot;)) (&quot;P&quot; (pushback &quot;p&quot;))
  (&quot;Q&quot; (pushback &quot;q&quot;)) (&quot;R&quot; (pushback &quot;r&quot;)) (&quot;S&quot; (pushback &quot;s&quot;))
  (&quot;T&quot; (pushback &quot;t&quot;)) (&quot;V&quot; (pushback &quot;v&quot;)) (&quot;X&quot; (pushback &quot;x&quot;)))

 ;; Keys common to CHOSEONG and JONGSEONG.  Set L1 to CHOSEONG, T to
 ;; JONGSEONG, insert a Compatibility Jamo.  When this map is used in
 ;; init state, L is still 0, thus compose macro does nothing.
 ;; Otherwise, L is already set to a CHOSEONG, thus compose macro
 ;; composes LVT into a syllable.
 (X
  (&quot;g&quot;  (set L1 0x1100) (set T 0x11A8) ?ㄱ (compose))
  (&quot;gg&quot; (set L1 0x1101) (set T 0x11A9) ?ㄲ (compose))
  (&quot;kk&quot; (set L1 0x1101) (set T 0x11A9) ?ㄲ (compose))
  (&quot;qq&quot; (set L1 0x1101) (set T 0x11A9) ?ㄲ (compose))
  (&quot;c&quot;  (set L1 0x1101) (set T 0x11A9) ?ㄲ (compose))
  (&quot;n&quot;  (set L1 0x1102) (set T 0x11AB) ?ㄴ (compose))
  (&quot;d&quot;  (set L1 0x1103) (set T 0x11AE) ?ㄷ (compose))
  (&quot;l&quot;  (set L1 0x1105) (set T 0x11AF) ?ㄹ (compose))
  (&quot;r&quot;  (set L1 0x1105) (set T 0x11AF) ?ㄹ (compose))
  (&quot;m&quot;  (set L1 0x1106) (set T 0x11B7) ?ㅁ (compose))
  (&quot;b&quot;  (set L1 0x1107) (set T 0x11B8) ?ㅂ (compose))
  (&quot;v&quot;  (set L1 0x1107) (set T 0x11B8) ?ㅂ (compose))
  (&quot;s&quot;  (set L1 0x1109) (set T 0x11BA) ?ㅅ (compose))
  (&quot;ss&quot; (set L1 0x110A) (set T 0x11BB) ?ㅆ (compose))
  (&quot;ng&quot; (set L1 0x110B) (set T 0x11BC) ?ㅇ (compose))
  (&quot;x&quot;  (set L1 0x110B) (set T 0x11BC) ?ㅇ (compose))
  (&quot;j&quot;  (set L1 0x110C) (set T 0x11BD) ?ㅈ (compose))
  (&quot;ch&quot; (set L1 0x110E) (set T 0x11BE) ?ㅊ (compose))
  (&quot;k&quot;  (set L1 0x110F) (set T 0x11BF) ?ㅋ (compose))
  (&quot;q&quot;  (set L1 0x110F) (set T 0x11BF) ?ㅋ (compose))
  (&quot;t&quot;  (set L1 0x1110) (set T 0x11C0) ?ㅌ (compose))
  (&quot;p&quot;  (set L1 0x1111) (set T 0x11C1) ?ㅍ (compose))
  (&quot;f&quot;  (set L1 0x1111) (set T 0x11C1) ?ㅍ (compose))
  (&quot;h&quot;  (set L1 0x1112) (set T 0x11C2) ?ㅎ (compose)))

 ;; Keys only for CHOSEONG.
 ;; Set L to CHOSEONG, insert a Compatibility Jamo.
 (L
  (&quot;dd&quot; (set L 0x1104) ?ㄸ)
  (&quot;tt&quot; (set L 0x1104) ?ㄸ)
  (&quot;bb&quot; (set L 0x1108) ?ㅃ)
  (&quot;vv&quot; (set L 0x1108) ?ㅃ)
  (&quot;jj&quot; (set L 0x110D) ?ㅉ))

 ;; Keys only for JONGSEONG.
 ;; Set T to JONGSEONG, insert a Compatibility Jamo.
 (T
  (&quot;gs&quot; (set T 0x11AA) ?ㄳ (compose))
  (&quot;nj&quot; (set T 0x11AC) ?ㄵ (compose))
  (&quot;nh&quot; (set T 0x11AD) ?ㄶ (compose))
  (&quot;lg&quot; (set T 0x11B0) ?ㄺ (compose))
  (&quot;lm&quot; (set T 0x11B1) ?ㄻ (compose))
  (&quot;lb&quot; (set T 0x11B2) ?ㄼ (compose))
  (&quot;ls&quot; (set T 0x11B3) ?ㄽ (compose))
  (&quot;lt&quot; (set T 0x11B4) ?ㄾ (compose))
  (&quot;lp&quot; (set T 0x11B5) ?ㄿ (compose))
  (&quot;lh&quot; (set T 0x11B6) ?ㅀ (compose))
  (&quot;bs&quot; (set T 0x11B9) ?ㅄ (compose)))

 ;; Keys only for JUNGSEONG.
 ;; Set V to JUNGSEONG, insert a Compatibility Jamo.
 (V
  (&quot;a&quot;   (set V 0x1161) ?ㅏ (compose-vowel))
  (&quot;ai&quot;  (set V 0x1162) ?ㅐ (compose-vowel))
  (&quot;ae&quot;  (set V 0x1162) ?ㅐ (compose-vowel))
  (&quot;ya&quot;  (set V 0x1163) ?ㅑ (compose-vowel))
  (&quot;ia&quot;  (set V 0x1163) ?ㅑ (compose-vowel))
  (&quot;yai&quot; (set V 0x1164) ?ㅒ (compose-vowel))
  (&quot;yae&quot; (set V 0x1164) ?ㅒ (compose-vowel))
  (&quot;iae&quot; (set V 0x1164) ?ㅒ (compose-vowel))
  (&quot;eo&quot;  (set V 0x1165) ?ㅓ (compose-vowel))
  (&quot;e&quot;   (set V 0x1166) ?ㅔ (compose-vowel))
  (&quot;eoi&quot; (set V 0x1166) ?ㅔ (compose-vowel))
  (&quot;yeo&quot; (set V 0x1167) ?ㅕ (compose-vowel))
  (&quot;ieo&quot; (set V 0x1167) ?ㅕ (compose-vowel))
  (&quot;ye&quot;  (set V 0x1168) ?ㅖ (compose-vowel))
  (&quot;ie&quot;  (set V 0x1168) ?ㅖ (compose-vowel))
  (&quot;yeoi&quot;(set V 0x1168) ?ㅖ (compose-vowel))
  (&quot;o&quot;   (set V 0x1169) ?ㅗ (compose-vowel))
  (&quot;oa&quot;  (set V 0x116A) ?ㅘ (compose-vowel))
  (&quot;wa&quot;  (set V 0x116A) ?ㅘ (compose-vowel))
  (&quot;ua&quot;  (set V 0x116A) ?ㅘ (compose-vowel))
  (&quot;oai&quot; (set V 0x116B) ?ㅙ (compose-vowel))
  (&quot;wae&quot; (set V 0x116B) ?ㅙ (compose-vowel))
  (&quot;uae&quot; (set V 0x116B) ?ㅙ (compose-vowel))
  (&quot;oae&quot; (set V 0x116B) ?ㅙ (compose-vowel))
  (&quot;oi&quot;  (set V 0x116C) ?ㅚ (compose-vowel))
  (&quot;woe&quot; (set V 0x116C) ?ㅚ (compose-vowel))
  (&quot;uoe&quot; (set V 0x116C) ?ㅚ (compose-vowel))
  (&quot;oe&quot;  (set V 0x116C) ?ㅚ (compose-vowel))
  (&quot;yo&quot;  (set V 0x116D) ?ㅛ (compose-vowel))
  (&quot;io&quot;  (set V 0x116D) ?ㅛ (compose-vowel))
  (&quot;u&quot;   (set V 0x116E) ?ㅜ (compose-vowel))
  (&quot;w&quot;   (set V 0x116E) ?ㅜ (compose-vowel))
  (&quot;oo&quot;  (set V 0x116E) ?ㅜ (compose-vowel))
  (&quot;ueo&quot; (set V 0x116F) ?ㅝ (compose-vowel))
  (&quot;wo&quot;  (set V 0x116F) ?ㅝ (compose-vowel))
  (&quot;uo&quot;  (set V 0x116F) ?ㅝ (compose-vowel))
  (&quot;ue&quot;  (set V 0x1170) ?ㅞ (compose-vowel))
  (&quot;we&quot;  (set V 0x1170) ?ㅞ (compose-vowel))
  (&quot;wi&quot;  (set V 0x1171) ?ㅟ (compose-vowel))
  (&quot;yu&quot;  (set V 0x1172) ?ㅠ (compose-vowel))
  (&quot;iu&quot;  (set V 0x1172) ?ㅠ (compose-vowel))
  (&quot;eu&quot;  (set V 0x1173) ?ㅡ (compose-vowel))
  (&quot;eui&quot; (set V 0x1174) ?ㅢ (compose-vowel))
  (&quot;ui&quot;  (set V 0x1174) ?ㅢ (compose-vowel))
  (&quot;i&quot;   (set V 0x1175) ?ㅣ (compose-vowel))
  (&quot;y&quot;   (set V 0x1175) ?ㅣ (compose-vowel))
  (&quot;ee&quot;  (set V 0x1175) ?ㅣ (compose-vowel)))

 ;; Keys starting V.
 (V-head
  (&quot;a&quot;) (&quot;y&quot;) (&quot;e&quot;) (&quot;o&quot;) (&quot;w&quot;) (&quot;u&quot;) (&quot;i&quot;))

 ;; Input fullwidth punction characters by typing a punction twice.
 (punctuation
  (&quot;,&quot; ?,)
  (&quot;,,&quot; ?、)
  (&quot;.&quot; ?.)
  (&quot;..&quot; ?。)
  (&quot;?&quot; ??)
  (&quot;??&quot; ?？)
  (&quot;!&quot; ?!)
  (&quot;!!&quot; ?！))

 (backspace
  ((BackSpace) (&gt; @@ 1 ((undo)) ((unhandle)))))

 ;; Toggle normal syllable mode and isolated jamo mode.
 (toggle-mode
  (&quot;I&quot; (= ISOLATED 0 ((set ISOLATED 1)) ((set ISOLATED 0)))))

 (commit-preedit
  (&quot;;&quot;)
  ((S-\ ))))

(include (t nil cjk-util) map)

(state
 (init
  &quot;로마자&quot;
  ;; This is to suppress compose action.
  (t (set L 0))
  ;; Uppercase keys are translated to the corresponding lowercase keys.
  (uppercase)
  (X (set L L1) (shift after-L))
  (L (shift after-L))
  (V (shift after-LV))
  (T)
  (backspace)
  (punctuation)
  (enter-fullwidth-mode (shift fullwidth-mode))
  (enter-single-fullwidth-mode (shift single-fullwidth-mode))
  (toggle-mode (shift isolated-jamo-mode)))

 (after-L
  (V (shift after-LV))
  (commit-preedit (shift init))
  (backspace))
 (after-LV
  (X (shift after-LVX))
  (T (shift init))
  (commit-preedit (shift init))
  (backspace))
 (after-LVX
  (V-head (delete @&lt;) (pushback 0) (shift fix-LV-redo-L))
  (commit-preedit (shift init))
  (backspace))

 (fix-LV-redo-L
  (t (set L 0))
  (X (set L L1) (shift fix-LV-redo-V))
  (L (shift fix-LV-redo-V))
  (V (set L 0x110B) (set T 0x11A7) (compose) (shift init)))
 (fix-LV-redo-V
  (V (set T 0x11A7) (compose) (shift init)))

 (isolated-jamo-mode
  &quot;자모&quot;
  ;; Suppress both compose and compose-vowel action.
  (t (set L -1))
  (X (commit))
  (L (set L -1) (commit))
  (T (commit))
  (V (commit))
  (commit-preedit (commit))
  (enter-fullwidth-mode (shift fullwidth-mode))
  (enter-single-fullwidth-mode (shift single-fullwidth-mode))
  (toggle-mode (shift init))
  (nil (unhandle))))

(include (t nil cjk-util) state)

;; Local Variables:
;; coding: utf-8
;; mode: lisp
;; End:
</textarea><br><input type="hidden" name="edit_file" value="ko-romaja.mim"><input type="submit" value="Save"></form>