imalison:let-advise-around

This commit is contained in:
Ivan Malison 2016-03-20 20:26:00 -07:00
parent e202d51e0a
commit 840e2cedd8

View File

@ -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")))