[elpa] externals/pyim 5742141 1/2: Add pyim-default-scheme command.

[ELPA Syncer]

branch: externals/pyim
commit 574214112f84311464ea5d05906635b5a378a0db
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    Add pyim-default-scheme command.
    
        * README.org (如何快速切换 scheme): Adde.
    
        * pyim-scheme.el (pyim-default-scheme): New command.
---
 README.org     |  4 ++++
 pyim-scheme.el | 12 ++++++++++++
 2 files changed, 16 insertions(+)

diff --git a/README.org b/README.org
index 2dd82af..107e8f8 100644
--- a/README.org
+++ b/README.org
@@ -325,6 +325,10 @@ pyim 的选词框默认使用 *双行显示* 的样式，在一些特殊的情
 
 * Tips
 
+** 如何快速切换 scheme
+
+可以试试 pyim-default-scheme 命令。
+
 ** 关闭输入联想词功能 (默认开启)
 
 #+begin_example
diff --git a/pyim-scheme.el b/pyim-scheme.el
index 4912fb5..e0a35ca 100644
--- a/pyim-scheme.el
+++ b/pyim-scheme.el
@@ -53,6 +53,18 @@
 (defvar pyim-schemes nil
   "Pyim 支持的所有拼音方案.")
 
+;;;###autoload
+(defun pyim-default-scheme (&optional scheme-name)
+  (interactive)
+  (let* ((scheme-names (mapcar #'car pyim-schemes))
+         (scheme-name
+          (or scheme-name
+              (intern (completing-read "PYIM: 将 pyim-default-scheme 设置为：" 
scheme-names)))))
+    (when (memq scheme-name scheme-names)
+      (setq pyim-default-scheme scheme-name)
+      (message "PYIM: `pyim-default-scheme' 已经设置为 %s." scheme-name)
+      scheme-name)))
+
 (defun pyim-scheme-add (scheme)
   "Add SCHEME to `pyim-schemes'"
   (if (listp scheme)