imalison:let-advise-around

2016-03-20 20:26:00 -07:00 · 2016-03-20 20:26:00 -07:00 · 840e2cedd8
commit 840e2cedd8
parent e202d51e0a
1 changed files with 5 additions and 0 deletions
--- a/dotfiles/emacs.d/init.el
+++ b/dotfiles/emacs.d/init.el
@ -249,6 +249,11 @@
     (setq current-prefix-arg nil)
     (call-interactively function)))

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