From 840e2cedd8c67abbd0038a3564c4906506ab7347 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sun, 20 Mar 2016 20:26:00 -0700 Subject: [PATCH] imalison:let-advise-around --- dotfiles/emacs.d/init.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index cf1b52c9..2c725ce6 100644 --- 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")))