From bd0e09391e299f37e97b85b82748c08509a19325 Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Sun, 18 Apr 2021 13:36:52 +0100 Subject: [PATCH] Run pre/post cube hooks on the cube macro --- core/fg42/cube.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/core/fg42/cube.el b/core/fg42/cube.el index a723757..fa4e841 100644 --- a/core/fg42/cube.el +++ b/core/fg42/cube.el @@ -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)