借助pinyinlib实现使用汉语拼音首字母搜索

[K-gihu]

希望可以实现类似evil-pinyin的功能，我使用pinyinlib库修改了meow-find、meow-till相关的函数。现在find和till还行，但是在Grab中还有问题：meow-find+meow-change没有效果。另外，由于pinyinlib库的问题，现在还不能对英文忽略大小写地搜索。下面是patch。

From 6a31009f810d0d2dd383c0c0453b3c2181041da9 Mon Sep 17 00:00:00 2001
From: klu <[email protected]>
Date: Wed, 4 May 2022 17:59:50 +0800
Subject: [PATCH] add pinyinlib to support pinyin search

---
 meow-beacon.el  |  6 +++---
 meow-command.el | 24 ++++++++++++------------
 2 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/meow-beacon.el b/meow-beacon.el
index d109baf..df885d1 100644
--- a/meow-beacon.el
+++ b/meow-beacon.el
@@ -328,7 +328,7 @@ MATCH is the search regexp."
   "Add beacon for find movement."
   (let ((ch-str (if (eq meow--last-find 13)
                    "\n"
-                 (char-to-string meow--last-find))))
+                 (pinyinlib-build-regexp-char meow--last-find nil nil nil t))))
     (save-restriction
       (meow--narrow-secondary-selection)
       (let ((orig (point))
@@ -336,12 +336,12 @@ MATCH is the search regexp."
         (if (meow--direction-forward-p)
             (save-mark-and-excursion
               (goto-char (point-min))
-              (while (search-forward ch-str nil t)
+              (while (search-forward-regexp ch-str nil t)
                 (unless (= orig (point))
                   (meow--beacon-add-overlay-at-point (meow--hack-cursor-pos (point))))))
           (save-mark-and-excursion
               (goto-char (point-max))
-              (while (search-backward ch-str nil t)
+              (while (search-backward-regexp ch-str nil t)
                 (unless (= orig (point))
                   (meow--beacon-add-overlay-at-point (point))))))))
     (meow--beacon-shrink-selection)))
diff --git a/meow-command.el b/meow-command.el
index 965c7a8..0c292f0 100644
--- a/meow-command.el
+++ b/meow-command.el
@@ -1092,33 +1092,33 @@ with UNIVERSAL ARGUMENT, search both side."
 (defun meow--find-continue-forward ()
   (when meow--last-find
     (let ((case-fold-search nil)
-          (ch-str (char-to-string meow--last-find)))
-      (when (search-forward ch-str nil t 1)
+          (ch-str (pinyinlib-build-regexp-char meow--last-find nil nil nil t)))
+      (when (search-forward-regexp ch-str nil t 1)
         (meow--hack-cursor-pos (point))))))
 
 (defun meow--find-continue-backward ()
   (when meow--last-find
     (let ((case-fold-search nil)
-          (ch-str (char-to-string meow--last-find)))
-      (search-backward ch-str nil t 1))))
+          (ch-str (pinyinlib-build-regexp-char meow--last-find nil nil nil t)))
+      (search-backward-regexp ch-str nil t 1))))
 
 (defun meow--till-continue-forward ()
   (when meow--last-till
     (let ((case-fold-search nil)
-          (ch-str (char-to-string meow--last-till)))
+          (ch-str (pinyinlib-build-regexp-char meow--last-till nil nil nil t)))
       (when (< (point) (point-max))
         (forward-char 1)
-        (when (search-forward ch-str nil t 1)
+        (when (search-forward-regexp ch-str nil t 1)
           (backward-char 1)
           (meow--hack-cursor-pos (point)))))))
 
 (defun meow--till-continue-backward ()
   (when meow--last-till
     (let ((case-fold-search nil)
-          (ch-str (char-to-string meow--last-till)))
+          (ch-str (pinyinlib-build-regexp-char meow--last-till nil nil nil t)))
       (when (> (point) (point-min))
         (backward-char 1)
-        (when (search-backward ch-str nil t 1)
+        (when (search-backward-regexp ch-str nil t 1)
           (forward-char 1)
           (point))))))
 
@@ -1127,11 +1127,11 @@ with UNIVERSAL ARGUMENT, search both side."
   (interactive "p")
   (let* ((case-fold-search nil)
          (ch (read-char (or prompt (message "Find(%d):" n))))
-         (ch-str (if (eq ch 13) "\n" (char-to-string ch)))
+         (ch-str (if (eq ch 13) "\n" (pinyinlib-build-regexp-char ch nil nil nil t)))
          (beg (point))
          end)
     (save-mark-and-excursion
-      (setq end (search-forward ch-str nil t n)))
+      (setq end (search-forward-regexp ch-str nil t n)))
     (if (not end)
         (message "char %s not found" ch-str)
       (thread-first
@@ -1151,13 +1151,13 @@ with UNIVERSAL ARGUMENT, search both side."
   (interactive "p")
   (let* ((case-fold-search nil)
          (ch (read-char (message (or prompt "Till(%d):") n)))
-         (ch-str (if (eq ch 13) "\n" (char-to-string ch)))
+         (ch-str (if (eq ch 13) "\n" (pinyinlib-build-regexp-char ch nil nil nil t)))
          (beg (point))
          (fix-pos (if (< n 0) 1 -1))
          end)
     (save-mark-and-excursion
       (if (> n 0) (forward-char 1) (forward-char -1))
-      (setq end (search-forward ch-str nil t n)))
+      (setq end (search-forward-regexp ch-str nil t n)))
     (if (not end)
         (message "char %s not found" ch-str)
       (thread-first

base-commit: 6a0e74eb2ef507818291cd53dd5757435d6c79f8
-- 
2.36.0