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

dynamic-let-advise-around

Browse Source
This commit is contained in:
Ivan Malison 2016-04-27 15:40:17 -07:00
parent 412e2241d4
commit 80da7a550f
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

@ -256,6 +256,11 @@
(let ,forms (let ,forms
(apply orig-func args)))) (apply orig-func args))))
(defmacro imalison:dynamic-let-advise-around (name getter)
`(defun ,name (orig-func &rest args)
(let ,(funcall getter)
(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")))