branch: externals/pyim
commit 574214112f84311464ea5d05906635b5a378a0db
Author: Feng Shu <[email protected]>
Commit: Feng Shu <[email protected]>
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)
