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)