colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

imalison:let-advise-around

Browse Source
This commit is contained in:
Ivan Malison 2016-03-20 20:26:00 -07:00
parent e202d51e0a
commit 840e2cedd8
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/emacs.d/init.el
View File

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