如何覆盖咖啡模式的前奏模块挂钩？

Question

我已经使用prelude 大约一年了，并且开发了一个不错的设置。我开始编写咖啡脚本并尝试使用prelude-coffee module。这包含以下行：

(setq coffee-command "~/dev/coffee")

这在我的机器上不正确。我想改成：

(setq coffee-command "coffee")

现在显然我可以简单地更改这一行并完成它，但我喜欢将所有更改保留在 personal 文件夹中，以便于更新和保持我的点文件在我的所有机器上同步。

我尝试通过以下方式覆盖它：

(setq coffee-mode "coffee")
(eval-after-load 'coffee-mode
  (setq coffee-command "coffee"))

(add-hook 'prelude-coffee-mode-hook (setq coffee-command "coffee"))
(add-hook 'coffee-mode-hook (setq coffee-command "coffee"))

但这些都不起作用。更改需要在似乎使用eval-after-load 运行的另一个文件之后运行。

额外信息为了完整起见，我将在此处复制 prelude-coffee.el 文件：

(require 'prelude-programming)

(eval-after-load 'coffee-mode
  '(progn
     (defun prelude-coffee-mode-defaults ()
       "coffee-mode-defaults"

       ;; CoffeeScript uses two spaces.
       (setq coffee-tab-width 2)

       ;; If you don't have js2-mode
       (setq coffee-js-mode 'javascript-mode)

       ;; If you don't want your compiled files to be wrapped
       (setq coffee-args-compile '("-c" "--bare"))

       ;; *Messages* spam
       (setq coffee-debug-mode t)

       ;; Emacs key binding
       (define-key coffee-mode-map [(meta r)] 'coffee-compile-buffer)

       ;; Riding edge.
       (setq coffee-command "~/dev/coffee")

       ;; Compile '.coffee' files on every save
       (and (buffer-file-name)
            (file-exists-p (buffer-file-name))
            (file-exists-p (coffee-compiled-file-name (buffer-file-name)))
            (coffee-cos-mode t)))

     (setq prelude-coffee-mode-hook 'prelude-coffee-mode-defaults)

     (add-hook 'coffee-mode-hook (lambda ()
                                   (run-hooks 'prelude-coffee-mode-hook)))))
(provide 'prelude-coffee)

总之，我如何覆盖咖啡模式挂钩上发生的事情？

Answer 1

哦，这太可怕了。我会提出一个关于前奏的问题。至少它 应该在设置coffee-command之前检查是否存在。

这条线很近

(add-hook 'prelude-coffee-mode-hook (setq coffee-command "coffee"))

试试这个：

(add-hook 'prelude-coffee-mode-hook (lambda () (setq coffee-command "coffee")))

我发现prelude-coffee.el 的其他问题：

您不能在钩子上使用 setq 并清除所有以前添加的钩子。那是不文明的。