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(+)

(limited to 'config.org')

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