Make email command a bit spiffier.

2015-02-03 11:37:42 -08:00 · 2015-02-03 11:37:42 -08:00 · 0d7067b72e
commit 0d7067b72e
parent 19c6825c8d
1 changed files with 4 additions and 4 deletions
--- a/dotfiles/emacs.d/init.el
+++ b/dotfiles/emacs.d/init.el
@ -883,11 +883,11 @@ the same tree node, and the headline of the tree node in the Org-mode file."
  :bind ("C-c 0" . email)
  :config
  (progn
-    (defun email ()
-      (interactive)
+    (defun email (&optional arg)
+      (interactive "P")
      (persp-switch "email")
-      (unless (mu4e-running-p)
-        (mu4e)))
+      (when (or (not (mu4e-running-p)) arg)
+        (delete-other-windows) (mu4e)))
    ;; enable inline images
    (setq mu4e-view-show-images t)
    ;; show images