diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2014-10-19 22:25:47 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2014-10-19 22:25:47 (GMT) |
| commit | e20d4e3edb97b6c3719b9e4d1fe2d9795e06d178 (patch) | |
| tree | 8d3abc3df2a4b1aa6f9c5413c4a208fcf52fea60 | |
| parent | df5c0c1cacaf2906c406ba8cd19b6c57f74e139b (diff) | |
| download | dotemacs-e20d4e3edb97b6c3719b9e4d1fe2d9795e06d178.zip dotemacs-e20d4e3edb97b6c3719b9e4d1fe2d9795e06d178.tar.gz dotemacs-e20d4e3edb97b6c3719b9e4d1fe2d9795e06d178.tar.bz2 | |
Switch to existing mu4e window if possible
| -rw-r--r-- | ravi-init-mu.el | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/ravi-init-mu.el b/ravi-init-mu.el index 3a2de1a..1477629 100644 --- a/ravi-init-mu.el +++ b/ravi-init-mu.el @@ -36,11 +36,23 @@ (when ravi/use-mu-for-email (use-package mu4e :load-path ,(ravi/emacs-file "site-lisp/mu/mu4e") - :bind (("C-'" . mu4e)) + :commands mu4e :init (progn (add-to-list 'Info-additional-directory-list (ravi/emacs-file "site-lisp/mu/mu4e")) - (unless ravi/mu4e-account-alist (error "Email account list not found"))) + (unless ravi/mu4e-account-alist (error "Email account list not found")) + (defun ravi/switch-to-mu4e () + (interactive) + (let ((buf (or (and (boundp 'mu4e~headers-buffer-name) + (get-buffer mu4e~headers-buffer-name)) + (get-buffer "*mu4e-main*")))) + (if buf + (if (get-buffer-window buf t) + (select-window (get-buffer-window buf t)) + (switch-to-buffer buf)) + (mu4e)))) + (bind-key "C-'" 'ravi/switch-to-mu4e) + ) :config (progn |