diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el
index eb043091..4216c439 100644
--- 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")))