Question

我想配置emacs以使用外部应用程序当我从dired模式打开图像文件时。

另一方面，我也想在emacs缓冲区中使用内嵌图像。

要在外部应用程序中打开文件，我使用openwith.el 包http://www.emacswiki.org/emacs/OpenWith

openwith minor模式的问题在于它全局以及何时由dired-mode-hook启用

(add-hook 'dired-mode-hook
          (lambda ()
            (setq truncate-lines t)
            (openwith-mode t)
            ))

它遍布各处以及emacs缓冲区中的所有内嵌图像在外部应用程序中打开。

我试图改变

:global t

到

:global nil

<{3>}中的

，但它以某种方式完全禁用了openwith模式。

所以，我的问题是：如何告诉emacs仅使用openwith minor模式使用dired缓冲区而不是其他地方？

感谢。

Answer 1

openwith-mode的工作方式有点奇怪：它确实假设您全局使用或根本不使用它。但是，你想要的是在本地使用它，即只在一个直接缓冲区内使用它。

这不可能很容易实现，但这是一种方式。

打开openwith-mode的源文件， openwith.el 。然后一直向下滚动，直到达到实际次要模式的定义。然后通过在每行的开头放置一个分号来注释掉该定义：

;;;###autoload
; (define-minor-mode openwith-mode
;   "Automatically open files with external programs."
;   :lighter ""
;   :global t
;   (if openwith-mode
;       (progn
;         ;; register `openwith-file-handler' for all files
;         (put 'openwith-file-handler 'safe-magic t)
;         (put 'openwith-file-handler 'operations '(insert-file-contents))
;         (add-to-list 'file-name-handler-alist '("" . openwith-file-handler)))
;     (setq file-name-handler-alist
;           (delete '("" . openwith-file-handler) file-name-handler-alist))))

然后在此代码下面（但在(provide 'openwith)之前），插入以下代码：

(defvar openwith-mode nil)

(mapc (lambda (function) 
        (ad-add-advice function 
                       '(dired-openwith nil t (advice . (lambda () (let ((openwith-mode t)) ad-do-it))))
                       'around 0))
      '(dired-find-alternate-file 
        dired-find-file 
        dired-find-file-other-window
        dired-mouse-find-file-other-window
        dired-view-file))

(put 'openwith-file-handler 'safe-magic t)
(put 'openwith-file-handler 'operations '(insert-file-contents))
(add-to-list 'file-name-handler-alist '("" . openwith-file-handler))

这段代码做了一些事情。

首先，它定义了一个名为openwith-mode的变量。此变量在openwith-mode的一个函数中使用，该函数决定是否使用外部应用程序。通常，当您定义次模式时，Emacs会自动提供这样的变量 - 但是由于我们只是注释了上面实际次要模式的定义，我们在这里明确地重新引入了这个变量。

变量的目的是作为一种开关，通过它我们可以控制图像文件是否应该内联或传递给外部查看器。

接下来我们有(mapc ...)表达式。我们在这里做的是迭代五个函数的列表：

dired-找到-备用文件
dired找到的文件
dired找到的文件-其他窗口
dired - 小鼠找到文件-其他窗口
dired - 视图 - 文件

函数dired用于打开文件。对于这些函数中的每一个，我们在一个名为advising的技术中添加少量代码：只要这五个函数中的一个函数(ad-add-advice...)所做的就是将变量openwith-mode设置为t叫做。在函数调用之外，变量保持设置为nil。

这就是无论何时使用dired函数之一打开文件，负责调用外部应用程序的openwith-mode函数都会将变量设置为t并立即尝试打开外部应用程序，如果它知道一个。我们必须跳过这样的环节的原因是，无论何时使用 Cx Cf 打开图像文件，都会调用相同的openwith-mode函数 - 这就是openwith-mode实现的方式

（注意：遗憾的是，我们不能只将当前的主模式用作交换机，因为这将是已经为文件打开创建的新缓冲区的主要模式。它总是{{1} }。）

最后，最后三行只是复制＆amp;从我们之前评论过的次模式定义中粘贴。他们说我已经提到了很多函数，并负责调用外部应用程序 - 称为fundamental-mode - 是一个所谓的文件处理程序。它实际上并没有对文件的实际访问做任何特殊操作，因此我们将该函数的open-with-filehandler设置为safe-magic。此外，我们声明操作t由我们的函数以非平凡的方式处理。（有关这些属性的更多信息，请参阅here。）

最后，我们实际安装了文件处理程序。

重要：openwith-mode文档建议您将以下两行放入.emacs文件中：

insert-file-contents

既然没有次要模式(require 'openwith) (openwith-mode t)了（在我们对其定义进行评论之后），请确保删除第二行，例如通过评论它：

openwith-mode

重新启动Emacs后，如果用dired打开图像文件，它应该在外部应用程序中打开;如果你通过 C-x C-f 打开它，它将在缓冲区中内联。

Answer 2

我不使用openwith。我使用

中定义的函数

http://ergoemacs.org/emacs/emacs_dired_open_file_in_ext_apps.html

Answer 3

一种方法是将emacsclient设置为openwith.el中openwith-associations中您喜欢的文件类型的首选程序，然后开始使用emacsclient。

你可以每次都开始新的emacs会话，但这听起来比之前的建议更难。

emacs dired和openwith

3 个答案: