dynamic-let-advise-around

2016-04-27 15:40:17 -07:00 · 2016-04-27 15:40:17 -07:00 · 80da7a550f
commit 80da7a550f
parent 412e2241d4
1 changed files with 5 additions and 0 deletions
--- a/dotfiles/emacs.d/init.el
+++ b/dotfiles/emacs.d/init.el
@ -256,6 +256,11 @@
     (let ,forms
       (apply orig-func args))))

+(defmacro imalison:dynamic-let-advise-around (name getter)
+  `(defun ,name (orig-func &rest args)
+     (let ,(funcall getter)
+       (apply orig-func args))))
+
 (defun imalison:uuid ()
  (interactive)
  (s-replace "\n" "" (shell-command-to-string "uuid")))