emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add :hook property to def-project-mode!

Browse source
This commit is contained in:
Henrik Lissner 2017-10-03 03:02:53 +02:00
parent f4b59cb71f
commit 55f584646b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/core-projects.el
View file

@ -118,6 +118,8 @@ should be activated. If they are *all* true, NAME is activated.
:init FORM -- FORM to run the first time this project mode is enabled.
:hook FORM -- FORM is run each time the mode is activated.
Relevant: `doom-project-hook'."
(declare (indent 1))
(let ((modes (plist-get plist :modes))
@ -125,6 +127,7 @@ Relevant: `doom-project-hook'."
(when (plist-get plist :when))
(match (plist-get plist :match))
(init-form (plist-get plist :init))
(hook-form (plist-get plist :hook))
(keymap-sym (intern (format "%s-map" name))))
`(progn
(defvar ,keymap-sym (make-sparse-keymap)
@ -132,7 +135,8 @@ Relevant: `doom-project-hook'."
(define-minor-mode ,name
"A project minor mode."
:init-value nil
:keymap ,keymap-sym)
:keymap ,keymap-sym
,hook-form)
,(when (or modes match files when)
`(associate! ,name
:modes ,modes