Emacs lisp“shell-command-on-region”

Question

在 GNU Emacs 中，我想在当前选定的文本上运行一个程序 figlet。然后我想评论产生的区域。

我已经知道如何使用标准的 Emacs 命令来做到这一点：

• 在单词的开头用 C- 设置标记
• 将光标移到词尾
• C-u M-x shell-command-on-region RET figlet RET
• M-x 评论区域 RET

但是，我没有弄清楚如何编写一个 Emacs lisp 程序来完成这一切。这是我的尝试：

(defun figlet-region () 
  (interactive)
  (push-mark)
  (shell-command-on-region "figlet")
  (comment-region (mark) (point))
  (pop-mark)
)

(global-set-key "\C-c\C-f" 'figlet-region)

然后C-<space>; M-x figlet-region产生垃圾：

figlet-region: 参数数量错误: #[(start end command &optional output-buffer replace error-buffer display-error-buffer) "ÆÇÈ \"!É 'jÊ!j;j 0Wb ?Ë`Ì\"Í ÎQÎDRÎÉ!\"& ffÏ )ãÐqÑ!#Ò#p=¬É$]d|e^|Íed ΠÎD¡ÎÉ!\"&â%qÉ$Á&%Ó *Í ÉØ#DÚ#É!\"&*#Ô!#ÕÖ ×!8WrС!qd`Z'o ØcÙÉ\"d'Zb)(Úp!)Û!*" [error-buffer small-temporary-file-directorytemporary-file-directory exit-status error-file replace make-temp -file expand-file-name "scor" nil ...] 9 1945557 (let (string) (unless (mark) (error "The mark is not set now, so there is no region")) (setq string (read -from-minibuffer "区域上的 Shell 命令：" nil nil nil (quote shell-command-history))) (list (region-beginning) (region-end) string current-prefix-arg current-prefix-arg shell-command -default-error-buffer t))], 1

回答

(defun figlet-region (&optional b e) 
  (interactive "r")
  (shell-command-on-region b e "figlet" (current-buffer) t)
  (comment-region (mark) (point)))

（这是基于 Trey Jackson 的回答。）

示例（Lisp 交互模式）

;;  _   _                 _        
;; | |_| |__   __ _ _ __ | | _____ 
;; | __| '_ \ / _` | '_ \| |/ / __|
;; | |_| | | | (_| | | | |   <\__ \
;;  \__|_| |_|\__,_|_| |_|_|\_\___/

示例（CPerl 模式）

#  _   _                 _        
# | |_| |__   __ _ _ __ | | _____ 
# | __| '_ \ / _` | '_ \| |/ / __|
# | |_| | | | (_| | | | |   <\__ \
#  \__|_| |_|\__,_|_| |_|_|\_\___/

Answer 1

好吧，我不确定垃圾来自哪里，但错误本身来自shell-command-region。在 elisp 中使用时，它至少需要 3 个参数，START END 和 COMMAND。

另外，一般来说，在函数中弄乱标记是不好的做法。以下是 push-mark 的文档对这个主题的看法：

新手 Emacs Lisp 程序员经常 尝试使用错误的标记 目的。参见文档 `set-mark' 了解更多信息。

Answer 2

我不确定你想通过推动和弹出标记来完成什么，我相信你会通过这样做获得相同的功能：

(defun figlet-region (&optional b e) 
  (interactive "r")
  (shell-command-on-region b e "figlet")
  (comment-region b e))

interactive 的参数告诉 Emacs 将区域（点和标记）作为前两个参数传递给命令。

Answer 3

在 lisp 程序中使用像 shell-command-on-region 这样的交互式命令不是一个好主意。你应该改用call-process-region：

(defun figlet-region (&optional b e) 
  (interactive "r")
  (call-process-region b e "figlet" t t)
  (comment-region (mark) (point)))

它应该对各种用户选项更具弹性。