我该如何改进Emacs lisp功能？

Question

意图是使用git grep作为M-x grep的命令，以及随之而来的所有缓冲区优势。所需的功能：

• 它读取点作为默认值的字/件事（做，那种）
• 它读取当前区域作为缺省参数，如果区域设置。

以下是我到目前为止的代码：

(defun bw-read-string-at-point() 
    (interactive) 
    (let ((word (word-at-point))) 
    (set-text-properties 0 (length word) nil word) 
    word)) 

(defun bw-git-grep (search-str) 
    "Uses `git-grep` to find `search-str`" 
    (interactive 
    (list 
    (read-string (format "Search for (%s): " (bw-read-string-at-point))))) 
    (let ((search-str (if (= (length search-str) 0) 
         (bw-read-string-at-point) search-str))) 
    (grep (concat "git --no-pager grep -i -I -nH --no-color --extended-regexp " search-str)))) 

我觉得像interactive位有相当笨拙，可以作出更好的。

Answer 1

其实它看起来不错。除了你应该使用default' argument of读取字符串，并且bw-read-string-at-point中的interactive不应该在那里。或者更好，只需使用grep-tag-default即可。 以下是我想调整它：

(defun bw-git-grep (search-str) 
    "Uses `git-grep` to find `search-str`" 
    (interactive 
    (let ((default (grep-tag-default))) 
    (list 
    (read-string (format "Search for (default %s): " default) 
        nil nil default)))) 
    (grep (concat "git --no-pager grep -i -I -nH --no-color --extended-regexp " search-str))) 

Answer 2

我会用read-from-minibuffer代替read-string：

(defun bw-git-grep (pattern) 
    (interactive 
    (list 
    (read-from-minibuffer 
    "Search for: " 
    (if (region-active-p) 
     (buffer-substring-no-properties (region-beginning) (region-end)) 
     (thing-at-point 'word))))) 

    (let* ((grep-command "git --no-pager grep -i -I -nH --no-color --extended-regexp ") 
     (command  (concat grep-command pattern)) 
     (grep-use-null-device nil)) 
    (grep command))) 

此外，你可能需要确保grep-use-null-device是零，以避免grep附加/dev/null到您的命令（git似乎并不喜欢太多）