emacs 相当于以下 vi 命令

Question

我正在寻找相当于以下 vi 命令的命令
<强>：！ nl%
这对当前打开的文件运行 nl 命令
emacs 检测打开文件名称的方法是什么？
MX shell-commnad nl

我无法找到当前打开/缓冲区的确定值和替代值。 谢谢/马赫什

Answer 1

编辑：将您的问题误读为想要将该更改应用于您正在处理的文件。如果您只想对缓冲区运行 shell 命令，可以使用 shell-command-on-region，它通常绑定到 M-|。

如果您只是想访问特定的行号，Mx goto-line 就可以了。我通过将 (define-key global-map "\Cx\Cl" 'goto-line) 放入我的 ~/.emacs< 中，将其绑定到 Cx Cl /代码>。

---

尝试一下（在您的 ~/.emacs 文件中）：

;;; Run a shell command on all text between the mark and the point and
;;; replace with the output.

(defun shell-command-in-region (start end command &optional flag interactive)
  "Execute shell-command-on-region and replace the region with the output
of the shell command."
  (interactive (list (region-beginning) (region-end)
                     (read-from-minibuffer "Shell command in region: "
                                           nil nil nil 'shell-command-history)
                     current-prefix-arg
                     (prefix-numeric-value current-prefix-arg)))

  (shell-command-on-region (point) (mark) command t)
)

(define-key esc-map "#" 'shell-command-in-region)

通过选择要操作的区域然后执行 M-# 来调用它。

Answer 2

如果您始终希望为 shell 命令插入缓冲区的文件名，您可以使用以下建议：

(defadvice read-shell-command (before read-shell-command-with-filename activate)
  "force the initial contents to contain the buffer's filename"
  (if (and (null (ad-get-arg 1))
       buffer-file-name)
  (ad-set-arg 1 buffer-file-name)))

添加上述代码后，Mx shell-command 将始终以缓冲区的文件名开头，因此您可以在命令中使用它。

Answer 3

我用这个：

(defun my-shell-command-on-current-file (command &optional output-buffer error-buffer)
  "Run a shell command on the current file (or marked dired files).
In the shell command, the file(s) will be substituted wherever a '%' is."
  (interactive (list (read-from-minibuffer "Shell command: "
                                           nil nil nil 'shell-command-history)
                     current-prefix-arg
                     shell-command-default-error-buffer))
  (cond ((buffer-file-name)
         (setq command (replace-regexp-in-string "%" (buffer-file-name) command nil t)))
        ((and (equal major-mode 'dired-mode) (save-excursion (dired-move-to-filename)))
         (setq command (replace-regexp-in-string "%" (mapconcat 'identity (dired-get-marked-files) " ") command nil t))))
  (shell-command command output-buffer error-buffer))

(global-set-key (kbd "M-!") 'my-shell-command-on-current-file)

然后你可以做M-！ nl%