Run pre/post cube hooks on the cube macro

这个提交包含在:
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)