Run pre/post cube hooks on the cube macro
This commit is contained in:
父節點
4b2bdb6eb2
當前提交
bd0e09391e
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue