Как добавить хук, чтобы он запускался только в определенном режиме? - PullRequest
Новая
       26

Как добавить хук, чтобы он запускался только в определенном режиме?

25 голосов
/ 26 мая 2011

У меня есть следующий defun 

(defun a-test-save-hook()
  "Test of save hook"
  (message "banana")
  )

, который я использую через следующий хук 

(add-hook 'after-save-hook 'a-test-save-hook)

Это работает, как и ожидалось.То, что я хотел бы сделать, это ограничить хук до определенного режима, в данном случае org-mode.Есть идеи, как мне поступить?

Заранее спасибо.

Ответы [ 2 ]

44 голосов
/ 26 мая 2011

Если вы посмотрите на документацию для add-hook (или Ch f add-hook RET ), вы увидите, что одним из возможных решений является создание хука локальные для основных режимов, которые вы хотите. Это немного сложнее, чем ответ Вдерягина , и выглядит так: 

(add-hook 'org-mode-hook 
          (lambda () 
             (add-hook 'after-save-hook 'a-test-save-hook nil 'make-it-local)))

'make-it-local - это флаг (может быть любым, кроме nil), который указывает add-hook добавить перехват только в текущем буфере. С учетом вышеизложенного вы получите только a-test-save-hook, добавленное в org-mode.

Это хорошо, если вы хотите использовать a-test-save-hook в нескольких режимах.

Документация для add-hook: 

add-hook is a compiled Lisp function in `subr.el'.

(add-hook HOOK FUNCTION &optional APPEND LOCAL)

Add to the value of HOOK the function FUNCTION.
FUNCTION is not added if already present.
FUNCTION is added (if necessary) at the beginning of the hook list
unless the optional argument APPEND is non-nil, in which case
FUNCTION is added at the end.

The optional fourth argument, LOCAL, if non-nil, says to modify
the hook's buffer-local value rather than its default value.
This makes the hook buffer-local if needed, and it makes t a member
of the buffer-local value.  That acts as a flag to run the hook
functions in the default value as well as in the local value.

HOOK should be a symbol, and FUNCTION may be any valid function.  If
HOOK is void, it is first set to nil.  If HOOK's value is a single
function, it is changed to a list of functions.
6 голосов
/ 26 мая 2011

Самое простое решение, я полагаю, заключается в добавлении проверки основного режима в самом хуке: 

(defun a-test-save-hook()
  "Test of save hook"
  (when (eq major-mode 'org-mode)
    (message "banana")))

(add-hook 'after-save-hook 'a-test-save-hook)
...