emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(mu4e): more DWIM-y mu4e entry point (=mu4e)

Browse source 
Replace the rather crude "don't do anything if already in a mu4e-y
buffer" behaviour with a more refined approach that tries to find the
live mu4e buffer likely of the most interest and switch to that, before
calling (mu4e) if no such buffer is found.
This commit is contained in:
TEC 2022-09-24 19:34:39 +08:00 • committed by Henrik Lissner
parent 2c31028a56
commit a207a8b703
1 changed files with 25 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

36
modules/email/mu4e/autoload/email.el
View file

@ -67,17 +67,31 @@ default/fallback account."
(setq +mu4e--old-wconf (current-window-configuration))
(delete-other-windows)
(switch-to-buffer (doom-fallback-buffer)))
(unless (memq (buffer-local-value 'major-mode
(window-buffer (selected-window)))
'(mu4e-main-mode
mu4e-headers-mode
mu4e-view-mode
mu4e-compose-mode
org-msg-edit-mode))
(mu4e))
;; (save-selected-window
;; (prolusion-mail-show))
)
;; At this point, we're going to guess what the user wants to do.
;; To help with this, we'll collect potentially-useful buffers.
;; Then we'll try to jump to in order of preference:
;; 1. A draft message buffer
;; 2. A viewed message buffer
;; 3. A headers buffer
;; If none of those exist and are appropiate to jump to,
;; `mu4e' will be called.
(let (compose-buffer view-buffer headers-buffer)
(dolist (buf (buffer-list))
(pcase (buffer-local-value 'major-mode buf)
((and (or 'org-msg-edit-mode 'mu4e-compose-mode)
(guard (not compose-buffer)))
(setq compose-buffer buf))
((and 'mu4e-view-mode (guard (not view-buffer)))
(setq view-buffer buf))
((and 'mu4e-headers-mode (guard (not headers-buffer)))
(setq headers-buffer buf))))
(if (and compose-buffer (not (eq compose-buffer (current-buffer))))
(switch-to-buffer compose-buffer)
(if (and view-buffer (not (eq view-buffer (current-buffer))))
(switch-to-buffer view-buffer)
(if (and headers-buffer (not (eq headers-buffer (current-buffer))))
(switch-to-buffer headers-buffer)
(mu4e))))))
;;;###autoload
(defun +mu4e/compose ()