Author: iratqq Date: Thu Jan 15 09:16:29 2009 New Revision: 5725
Modified: trunk/scm/im-switcher.scm Log: * scm/im-switcher.scm (imsw-iconic-label-alist): - Sort. - Add well known ims label. - Rename duplicated im name. Modified: trunk/scm/im-switcher.scm ============================================================================== --- trunk/scm/im-switcher.scm (original) +++ trunk/scm/im-switcher.scm Thu Jan 15 09:16:29 2009 @@ -38,19 +38,32 @@ '()) (define imsw-iconic-label-alist - '((direct . "-") - (anthy . "A") - (canna . "C") - (wnn . "W") - (mana . "M") - (sj3 . "3") - (skk . "S") - (tcode . "T") - (tutcode . "U") - (byeoru . "B") - (anthy-utf8 . "A") - (elatin . "E") - (look . "L"))) + '((direct . "-") + (ajax-ime . "Aj") + (anthy . "An") + (anthy-utf8 . "An") + (byeoru . "B") + (canna . "C") + (elatin . "E") + (hangul2 . "H2") + (hangul3 . "H3") + (ipa-x-sampa . "I") + (latin . "Lt") + (look . "Lo") + (mana . "M") + (pinyin-big5 . "Pi") + (pyunihan . "Py") + (prime . "Pm") + (romaja . "R") + (sj3 . "Sj") + (skk . "Sk") + (social-ime . "Si") + (tcode . "Tc") + (tutcode . "Tu") + (trycode . "Tr") + (viqr . "V") + (wnn . "W") + (yahoo-jp . "Yj"))) (define imsw-default-iconic-label "IM")
