[elpa] externals/pyim 592a628 3/3: * pyim-pymap.el (pyim-pymap-sort-cchar, pyim-pymap-sort-pymap): New functions.

[Feng Shu]

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

    * pyim-pymap.el (pyim-pymap-sort-cchar, pyim-pymap-sort-pymap): New 
functions.
---
 pyim-pymap.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/pyim-pymap.el b/pyim-pymap.el
index 6b4fa0e..50c1b63 100644
--- a/pyim-pymap.el
+++ b/pyim-pymap.el
@@ -706,6 +706,23 @@
 趯罍鼱鳠鳡鳣爟爚灈韂糵礵鹴皭龢鳤亹籥𫚭玃醾齇觿" ""))
   "常用汉字")
 
+(defun pyim-pymap-sort-cchar (a b)
+  "对汉字 A 和 B 按照使用频率排序。"
+  (< (or (cl-position a pyim-pymap-commonly-used-cchar :test #'equal) 1000000)
+     (or (cl-position b pyim-pymap-commonly-used-cchar :test #'equal) 
1000000)))
+
+(defun pyim-pymap-sort-pymap ()
+  "对 `pyim-pymap' 的取值进行排序, 用于维护 pyim-pymap."
+  (let (pymap)
+    (dolist (py pyim-pymap)
+      (push (list (car py)
+                  (mapconcat #'identity
+                             (sort (split-string (cadr py) "")
+                                   #'pyim-pymap-sort-cchar)
+                             ""))
+            pymap))
+    (reverse pymap)))
+
 ;; * Footer
 (provide 'pyim-pymap)