emacs - 我可以在 emacs 中编写一个 jar 装的 find-grep 脚本吗？

Question

几乎总是，我想像这样运行 find-grep:

ack --no-heading --no-color "SOMETHING"~/myco/firmwaresrc

其中 SOMETHING 是唯一的变量。实际上，要实现这一点需要大量的按键和思考。

我将如何“装 jar ”这个，以便 M-x fgf 使用该命令运行 find-grep 并用当前区域代替 SOMETHING？

其实我已经想出了如何做到这一点(见下面的答案)。如果没有选定的区域，谁能告诉我如何让 emacs 请求一些东西？

Answer 1

(defun fgf (term)
  (interactive
   (list (if (use-region-p)
             (buffer-substring (region-beginning) (region-end))
           (read-string "grep-find: "))))
  (grep-find (concat "ack --no-heading --no-color \""
                     term  "\" ~/myco/firmwaresrc")))