Skip to content

Instantly share code, notes, and snippets.

@kobapan

kobapan/def-add-hooks.el

Last active October 11, 2017 08:32
Show Gist options
  • Save kobapan/053da5f8b9a0461f70d6 to your computer and use it in GitHub Desktop.
Save kobapan/053da5f8b9a0461f70d6 to your computer and use it in GitHub Desktop.
Download ZIP
elisp 同じFUNCTIONを、複数モードのadd-hookに、一括で登録するマクロ
Raw
def-add-hooks.el
(defmacro def-add-hooks (lst body)
`(mapc #'(lambda (name)
(add-hook name #'(lambda () ,body)))
,lst))
; 使い方
; (def-add-hooks `(text-mode-hook markdown-mode-hook)
; (setq truncate-lines nil))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment