From 39b46748d2cb1aac575cc58455c6b48ff50dce74 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 5 Jan 2021 17:16:49 -0600 Subject: Add mu4e shortcuts and keybinding --- config.org | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/config.org b/config.org index d383067..5440fb8 100644 --- a/config.org +++ b/config.org @@ -1649,12 +1649,31 @@ I’m only enabling this at home for now, since it requires building stuff. (:from-or-to . 22) (:subject))) + (cuss mu4e-maildir-shortcuts + `(("/INBOX" . ?i) + (,mu4e-refile-folder . ?a) + (,mu4e-sent-folder . ?s) + (,mu4e-drafts-folder . ?d) + (,mu4e-trash-folder . ?t))) + (defun acdw/setup-mu4e-view-mode () (visual-fill-column-mode +1)) (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode)) #+end_src +*** Add a keybinding + + #+begin_src emacs-lisp + (defun acdw/mu4e-or-warn () + "If `mu4e' is around, run it, or tell the user it isn't." + (interactive) + (if (featurep 'mu4e) + (mu4e) + (warn "Mu4e isn't available :/."))) + + (define-key acdw/map "m" #'acdw/mu4e-or-warn) + #+end_src * Appendices ** Emacs' files -- cgit 1.4.1-21-gabe81