EXWM: Bind s-m to mu4e-headers

.emacs.d/lisp/init-exwm.el

@@ -88,7 +88,7 @@
   (exwm-input-set-key (kbd "s-a") #'emms-smart-browse)
   (exwm-input-set-key (kbd "s-A") #'emms))
 (when (delq nil (mapcar (lambda (path) (string-match "/mu4e/\\|/mu4e$" path)) load-path))
-  (exwm-input-set-key (kbd "s-m") #'mu4e-headers-unread))
+  (exwm-input-set-key (kbd "s-m") #'mu4e-headers))
 
 ;;; External application shortcuts.
 (defun exwm-start-browser () (interactive) (start-process-shell-command browse-url-generic-program nil browse-url-generic-program))

.emacs.d/lisp/init-mu4e.el

@@ -15,9 +15,14 @@
 (when (require 'mu4e-alert nil t)
   (mu4e-alert-enable-mode-line-display))
 
-(defun mu4e-headers-unread ()
+(defun mu4e-headers ()
+  "Like `mu4e' but show the header view.
+Default to unread messages if no"
   (interactive)
-  (mu4e-headers-search "flag:unread AND NOT flag:trashed"))
+  (mu4e~start)
+  (if (get-buffer "*mu4e-headers*" )
+      (switch-to-buffer "*mu4e-headers*")
+    (mu4e-headers-search "flag:unread AND NOT flag:trashed")))
 
 (setq
  ;; Attachments