diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index fe50f847..449c85de 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -256,9 +256,10 @@ (let ,forms (apply orig-func args)))) -(defmacro imalison:dynamic-let-advise-around (name getter) +(defmacro imalison:dynamic-let-advise-around (name &rest getters) `(defun ,name (orig-func &rest args) - (let ,(funcall getter) + (let ,(cl-loop for pair in getters + collect `(,(car pair) (funcall ,(cadr pair)))) (apply orig-func args)))) (defun imalison:uuid ()