Run pre/post cube hooks on the cube macro

This commit is contained in:
Sameer Rahmani 2021-04-18 13:36:52 +01:00
джерело 4b2bdb6eb2
коміт bd0e09391e
1 змінених файлів з 6 додано та 2 видалено

@ -36,7 +36,9 @@
(pre-lang-server-up-hook (intern (format "%s-pre-lang-server-up-hook" cube-name)))
(post-lang-server-up-hook (intern (format "%s-post-lang-server-up-hook" cube-name)))
(pre-lang-server-down-hook (intern (format "%s-pre-lang-server-down-hook" cube-name)))
(post-lang-server-down-hook (intern (format "%s-post-lang-server-down-hook" cube-name))))
(post-lang-server-down-hook (intern (format "%s-post-lang-server-down-hook" cube-name)))
(pre-init-hook (intern (format "%s-pre-init-hook" cube-name)))
(post-init-hook (intern (format "%s-post-init-hook" cube-name))))
`(progn
;; Params variable contains the list of params the is passed to
@ -86,7 +88,9 @@
(progn
(setq ,active-var t)
(setq ,params-var params)
,@body))))))
(run-hook (quote ,pre-init-hook))
,@body
(run-hook (quote ,post-init-hook))))))))
(provide 'fg42/cube)