;;; jbo-evolved.mim

(input-method jbo evolved)

(description (_ "An input method to simulate the evolved optimal Lojban keyboard (http://www.lojban.org/tiki/tiki-pagehistory.php?page=Evolved%20Lojban%20Keyboard&source=0)."))

(title "Evolved Lojban")

(map (evolved
       ("q" ?w) ("w" ?h) ("e" ?y) ("r" ?s) ("t" ?f) ("y" ?g) ("u" ?v) ("i" ?\') ("o" ?n) ("p" ?m)
       ("Q" ?W) ("W" ?H) ("E" ?Y) ("R" ?S) ("T" ?F) ("Y" ?G) ("U" ?V) ("I" ?\') ("O" ?N) ("P" ?M)
       ("@" ?W) ; @ is apparently rendered as its Dvorak counterpart.  For some reason.
                ; Oh well, it's not used in Lojban, so scrap it.
       ("a" ?i) ("s" ?o) ("d" ?a) ("f" ?e) ("g" ?u) ("h" ?d) ("j" ?c) ("k" ?l) ("l" ?z) (";" ?j)
       ("A" ?I) ("S" ?O) ("D" ?A) ("F" ?E) ("G" ?U) ("H" ?D) ("J" ?C) ("K" ?L) ("L" ?Z) (":" ?J)
       ("z" ?q) ("x" ?\,) ("c" ?\;) ("v" ?b) ("b" ?.) ("n" ?p) ("m" ?t) ("," ?k) ("." ?r) ("/" ?x)
       ("Z" ?Q) ("X" ?\,) ("C" ?\;) ("V" ?B) ("B" ?.) ("N" ?P) ("M" ?T) ("," ?K) ("." ?R) ("/" ?X)))

(state (init (evolved)))