wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

imalison:prefix-alternative

Browse Source
This commit is contained in:
Ivan Malison 2015-08-05 11:22:28 -07:00
parent d67861b96e
commit a464c18a15
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

@ -157,6 +157,11 @@
;; functions ;; functions
;; ============================================================================= ;; =============================================================================
(defmacro imalison:prefix-alternative (name default alternative)
`(defun ,name (arg) (interactive "P")
(if arg (call-interactively (quote ,alternative))
(call-interactively (quote ,default)))))
(defun imalison:uuid () (defun imalison:uuid ()
(interactive) (interactive)
(s-replace "\n" "" (shell-command-to-string "uuid"))) (s-replace "\n" "" (shell-command-to-string "uuid")))