2

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

(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)

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

4

1 回答 1

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 并清除所有以前添加的钩子。那是不文明的。

于 2014-05-15T13:48:38.483 回答