imalison:let-advise-around
This commit is contained in:
parent
e202d51e0a
commit
840e2cedd8
@ -249,6 +249,11 @@
|
|||||||
(setq current-prefix-arg nil)
|
(setq current-prefix-arg nil)
|
||||||
(call-interactively function)))
|
(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 ()
|
(defun imalison:uuid ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(s-replace "\n" "" (shell-command-to-string "uuid")))
|
(s-replace "\n" "" (shell-command-to-string "uuid")))
|
||||||
|
Loading…
Reference in New Issue
Block a user