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

18

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

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

, который я использую с помощью следующего hook

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

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

Спасибо заранее.

    
задан Aaron Barclay 26.05.2011 в 13:53
источник

2 ответа

33

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

(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.
    
ответ дан Trey Jackson 26.05.2011 в 18:13
  • не означает, что лямбда должна быть процитирована? –  kindahero 26.05.2011 в 18:45
  • @kindahero, (lambda () ...) все равно оценивает себя, поэтому цитирование не имеет значения. –  Victor Deryagin 26.05.2011 в 19:31
  • Спасибо, это информация, которую я получил после. Погрузитесь обратно в документы. –  Aaron Barclay 27.05.2011 в 14:24
5

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

(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)
    
ответ дан Victor Deryagin 26.05.2011 в 14:24
  • Просто протестировал его, и он работает. –  Teemu Leisti 13.09.2012 в 16:10