如何绑定密钥以在dired emacs中运行shell命令

Question

当我在emacs中使用dired模式时,我可以按类型!xxx运行shell命令,但是如何绑定一个键来运行这个命令？例如,我想在文件上按O,然后dired将运行'cygstart'来打开这个文件.

Answer 1

你可以使用这个shell-command功能.例如:

(defun ls ()
  "Lists the contents of the current directory."
  (interactive)
  (shell-command "ls"))

(global-set-key (kbd "C-x :") 'ls); Or whatever key you want...

要在单个缓冲区中定义命令,可以使用local-set-key.在dired中,您可以使用获取文件的名称dired-file-name-at-point.那么,要完全按照你的要求去做:

(defun cygstart-in-dired ()
  "Uses the cygstart command to open the file at point."
  (interactive)
  (shell-command (concat "cygstart " (dired-file-name-at-point))))
(add-hook 'dired-mode-hook '(lambda () 
                              (local-set-key (kbd "O") 'cygstart-in-dired)))