imalison:prefix-alternative

2015-08-05 11:22:28 -07:00 · 2015-08-05 11:22:28 -07:00 · a464c18a15
commit a464c18a15
parent d67861b96e
1 changed files with 5 additions and 0 deletions
--- a/dotfiles/emacs.d/init.el
+++ b/dotfiles/emacs.d/init.el
@ -157,6 +157,11 @@
 ;;                                                                     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 ()
  (interactive)
  (s-replace "\n" "" (shell-command-to-string "uuid")))