;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\320%\207" [require cl-lib pyim-common custom-declare-group pyim-scheme nil "Scheme tools for pyim." :group pyim custom-declare-variable pyim-default-scheme funcall function #[0 "\300\207" [quanpin] 1] "设置 pyim 使用哪一种输入法方案，默认使用全拼输入." :type symbol pyim-assistant-scheme #[0 "\300\207" [quanpin] 1] "设置辅助输入法方案.\n\n这个功能主要用于五笔等形码输入法，在忘记编码的情况下，\n临时激活某种辅助输入法（比如：拼音输入法）来输入汉字。"] 6) #@74 设置临时 scheme, 用于五笔等形码输入法临时拼音输入。 (defvar pyim-assistant-scheme-enable nil (#$ . 1085)) (pyim-register-local-variables '(pyim-assistant-scheme-enable)) #@35 Pyim 支持的所有拼音方案. (defvar pyim-schemes nil (#$ . 1282)) #@30 (fn &optional SCHEME-NAME) (defalias 'pyim-default-scheme #[256 "\302\303\"\206\304\305\306\"!\211>\203\211\307\310\"\210\211\202&\307\311 #\210\312\207" [pyim-schemes pyim-default-scheme mapcar car intern completing-read "PYIM: 将 pyim-default-scheme 设置为：" message "PYIM: `pyim-default-scheme' 已经设置为 %s." "PYIM: %s 不是一个有效的 scheme 名称, 继续使用 %s." nil] 7 (#$ . 1360) nil]) #@43 Add SCHEME to `pyim-schemes' (fn SCHEME) (defalias 'pyim-scheme-add #[257 "\211<\203\211@\2119\203\301\302\"\"B\211\207\303\304!\207" [pyim-schemes remove assoc message "PYIM: Invalid pyim scheme config!"] 6 (#$ . 1795)]) #@69 获取名称为 SCHEME-NAME 的输入法方案。 (fn SCHEME-NAME) (defalias 'pyim-scheme-get #[257 "\211\205\301\"\207" [pyim-schemes assoc] 4 (#$ . 2035)]) #@48 获取输入法 scheme (fn &optional DEFAULT) (defalias 'pyim-scheme-name #[256 "\304\203\204 \206\n\262\202\n\262\211 \236\203 \211\202!\305\207" [pyim-assistant-scheme-enable pyim-assistant-scheme pyim-default-scheme pyim-schemes nil quanpin] 4 (#$ . 2204)]) #@105 获取名称为 SCHEME-NAME 的输入法方案，并提取其属性 OPTION 。 (fn SCHEME-NAME OPTION) (defalias 'pyim-scheme-get-option #[514 "\205$\300!\300\301A\302\"!@A\235\203\301A\"\202\"\303\"\266\202\207" [pyim-scheme-get plist-get :inherit pyim-scheme-get-option] 7 (#$ . 2487)]) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311!\207" [pyim-scheme-add (quanpin :document "全拼输入法方案（不可删除）。" :class quanpin :first-chars "abcdefghijklmnopqrstuwxyz" :rest-chars "vmpfwckzyjqdltxuognbhsrei'-a" :prefer-triggers ("v")) (wubi :document "五笔输入法。" :class xingma :first-chars "abcdefghijklmnopqrstuvwxyz" :rest-chars "abcdefghijklmnopqrstuvwxyz'" :code-prefix "wubi/" :code-prefix-history (".") :code-split-length 4 :code-maximum-length 4 :prefer-triggers nil) (cangjie :document "倉頡输入法。" :class xingma :first-chars "abcdefghijklmnopqrstuvwxyz" :rest-chars "abcdefghijklmnopqrstuvwxyz" :code-prefix "cangjie/" :code-prefix-history ("@") :code-split-length 5 :code-maximum-length 5 :prefer-triggers nil) (pyim-shuangpin :document "与 pyim 配合良好的双拼输入法方案，源自小鹤双拼方案。" :class shuangpin :first-chars "abcdefghijklmnpqrstuvwxyz" :rest-chars "abcdefghijklmnopqrstuvwxyz" :prefer-triggers ("o") :keymaps (("a" "a" "a") ("b" "b" "in") ("c" "c" "ao") ("d" "d" "ai") ("e" "e" "e") ("f" "f" "en") ("g" "g" "eng") ("h" "h" "ang") ("i" "ch" "i") ("j" "j" "an") ("k" "k" "ing" "uai") ("l" "l" "iang" "uang") ("m" "m" "ian") ("n" "n" "iao") ("o" "o" "uo" "o") ("p" "p" "ie") ("q" "q" "iu") ("r" "r" "uan") ("s" "s" "iong" "ong") ("t" "t" "ue" "ve") ("u" "sh" "u") ("v" "zh" "v" "ui") ("w" "w" "ei") ("x" "x" "ia" "ua") ("y" "y" "un") ("z" "z" "ou") ("aa" "a") ("aj" "an") ("ad" "ai") ("ac" "ao") ("ah" "ang") ("ee" "e") ("ew" "ei") ("ef" "en") ("er" "er") ("eg" "eng") ("ag" "ng") ("ao" "o") ("au" "ou"))) (microsoft-shuangpin :document "微软双拼方案。" :class shuangpin :first-chars "abcdefghijklmnopqrstuvwxyz" :rest-chars "abcdefghijklmnopqrstuvwxyz;" :prefer-triggers nil :keymaps (("a" "a" "a") ("b" "b" "ou") ("c" "c" "iao") ("d" "d" "uang" "iang") ("e" "e" "e") ("f" "f" "en") ("g" "g" "eng") ("h" "h" "ang") ("i" "ch" "i") ("j" "j" "an") ("k" "k" "ao") ("l" "l" "ai") ("m" "m" "ian") ("n" "n" "in") ("o" "o" "uo" "o") ("p" "p" "un") ("q" "q" "iu") ("r" "r" "uan" "er") ("s" "s" "iong" "ong") ("t" "t" "ue") ("u" "sh" "u") ("v" "zh" "ve" "ui") ("w" "w" "ia" "ua") ("x" "x" "ie") ("y" "y" "uai" "v") ("z" "z" "ei") (";" ";" "ing") ("oa" "a") ("oj" "an") ("ol" "ai") ("ok" "ao") ("oh" "ang") ("oe" "e") ("oz" "ei") ("of" "en") ("or" "er") ("og" "eng") ("oo" "o") ("ob" "ou"))) (zhinengabc-shuangpin :document "智能ABC双拼方案" :class shuangpin :first-chars "abcdefghjklmnopqrstvwxyz" :rest-chars "abcdefghijklmnopqrstuvwxyz" :prefer-triggers nil :keymaps (("q" "q" "ei") ("w" "w" "ian") ("e" "ch" "e") ("r" "r" "iu" "er") ("t" "t" "uang" "iang") ("y" "y" "ing") ("u" "u" "u") ("i" "i" "i") ("o" "o" "o" "uo") ("p" "p" "uan" "van") ("a" "zh" "a") ("s" "s" "ong" "iong") ("d" "d" "ua" "ia") ("f" "f" "en") ("g" "g" "eng") ("h" "h" "ang") ("j" "j" "an") ("k" "k" "ao") ("l" "l" "ai") ("z" "z" "iao") ("x" "x" "ie") ("c" "c" "in" "uai") ("v" "sh" "v") ("b" "b" "ou") ("n" "n" "un") ("m" "m" "ue" "ui") ("oa" "a") ("oj" "an") ("ol" "ai") ("ok" "ao") ("oh" "ang") ("oe" "e") ("oz" "ei") ("of" "en") ("or" "er") ("og" "eng") ("oo" "o") ("ob" "ou"))) (xiaohe-shuangpin :document "小鹤双拼输入法方案。" :class shuangpin :first-chars "abcdefghijklmnopqrstuvwxyz" :rest-chars "abcdefghijklmnopqrstuvwxyz" :prefer-triggers nil :keymaps (("a" "a" "a") ("b" "b" "in") ("c" "c" "ao") ("d" "d" "ai") ("e" "e" "e") ("f" "f" "en") ("g" "g" "eng") ("h" "h" "ang") ("i" "ch" "i") ("j" "j" "an") ("k" "k" "ing" "uai") ("l" "l" "iang" "uang") ("m" "m" "ian") ("n" "n" "iao") ("o" "o" "uo" "o") ("p" "p" "ie") ("q" "q" "iu") ("r" "r" "uan") ("s" "s" "iong" "ong") ("t" "t" "ue" "ve") ("u" "sh" "u") ("v" "zh" "v" "ui") ("w" "w" "ei") ("x" "x" "ia" "ua") ("y" "y" "un") ("z" "z" "ou") ("aa" "a") ("an" "an") ("ai" "ai") ("ao" "ao") ("ah" "ang") ("ee" "e") ("ei" "ei") ("en" "en") ("er" "er") ("eg" "eng") ("og" "ng") ("oo" "o") ("ou" "ou"))) provide pyim-scheme] 2)