mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: Bind s-m to helm-mu4e-switch

master
Pierre Neidhardt 2019-03-03 11:40:10 +01:00
parent da2d750ec3
commit bafddf836a
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.emacs.d/lisp/init-exwm.el
View File

@ -96,7 +96,10 @@
(exwm-input-set-key (kbd "s-A") #'emms)))
(when (or (fboundp 'mu4e)
(delq nil (mapcar (lambda (path) (string-match "/mu4e/\\|/mu4e$" path)) load-path)))
(exwm-input-set-key (kbd "s-m") #'ambrevar/mu4e-headers))
(if (not (fboundp 'helm-mu4e-switch))
(exwm-input-set-key (kbd "s-m") #'ambrevar/mu4e-headers)
(exwm-input-set-key (kbd "s-m") #'helm-mu4e-switch)
(exwm-input-set-key (kbd "s-M") #'helm-mu4e-switch-other-window)))
(exwm-input-set-key (kbd "s-n") #'ambrevar/elfeed-switch-back) ; "n" for "news"
(exwm-input-set-key (kbd "s-e") #'ambrevar/eww-switch-back)
(exwm-input-set-key (kbd "s-E") #'eww)

12
.emacs.d/lisp/init-mu4e.el
View File

@ -352,6 +352,18 @@ If MSG is nil, use message at point."
(interactive)
(kill-new (mu4e-message-field (or msg (mu4e-message-at-point)) :message-id)))
(when (require 'patch-helm nil 'noerror)
(helm-defswitcher
"mu4e"
(lambda (b)
(with-current-buffer b
(or
(derived-mode-p 'mu4e-headers-mode)
(derived-mode-p 'mu4e-view-mode)
(when (require 'mu4e-conversation nil 'noerror)
(mu4e-conversation--buffer-p b)))))
ambrevar/mu4e-headers))
(require 'patch-mu4e-account)
(load "~/personal/mail/mu4e.el" t)