summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2017-09-29 11:25:03 +0200
committerAlan Pearce2017-09-29 11:25:03 +0200
commitae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99 (patch)
treeb3be71ef0faab5509af89f02179d1765b00d8a2b
parent13cde4dbbb5df743899f45a84d5fc0f59b615efc (diff)
downloadnixfiles-ae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99.tar.lz
nixfiles-ae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99.tar.zst
nixfiles-ae4a6f6b4e6eac58fc9283f692dd2e8d5b58ae99.zip
Emacs: Add contextual shortcuts for mu4e
-rw-r--r--emacs/.emacs.d/main.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 177eefbb..93fe418f 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -1254,6 +1254,12 @@ With two prefix arguments, write out the day and month name."
                               (mu4e-drafts-folder . "/personal/alanpearce/Drafts")
                               (mu4e-refile-folder . "/personal/alanpearce/Archive")
                               (mu4e-trash-folder . "/personal/alanpearce/Trash")
+                              (mu4e-maildir-shortcuts . (("/personal/alanpearce/INBOX" . ?i)
+                                                         ("/personal/alanpearce/Archive" . ?s)
+                                                         ("/personal/alanpearce/Sent" . ?s)
+                                                         ("/personal/alanpearce/Spam" . ?p)
+                                                         ("/personal/alanpearce/Orders" . ?o)))
+                              ))
                      (make-mu4e-context
                       :name "Riseup"
                       :match-func (lambda (msg)
@@ -1266,6 +1272,10 @@ With two prefix arguments, write out the day and month name."
                               (mu4e-drafts-folder . "/riseup/Drafts")
                               (mu4e-refile-folder . "/riseup/Archive")
                               (mu4e-trash-folder . "/riseup/Trash")
+                              (mu4e-maildir-shortcuts . (("/personal/riseup/INBOX" . ?i)
+                                                         ("/personal/riseup/Archive" . ?r)
+                                                         ("/personal/riseup/Sent" . ?s)
+                                                         ("/personal/riseup/Spam" . ?p)))))
                      (make-mu4e-context
                       :name "Satoshipay"
                       :match-func (lambda (msg)
@@ -1278,6 +1288,10 @@ With two prefix arguments, write out the day and month name."
                               (mu4e-sent-folder .   "/satoshipay/[Gmail]/.Sent Mail")
                               (mu4e-refile-folder . "/satoshipay/[Gmail]/.All Mail")
                               (mu4e-trash-folder .  "/satoshipay/[Gmail]/.Bin")
+                              (mu4e-maildir-shortcuts . (("/satoshipay/INBOX" . ?i)
+                                                         ("/satoshipay/[Gmail]/.All Mail" . ?r)
+                                                         ("/satoshipay/[Gmail]/.Sent Mail" . ?s)
+                                                         ("/satoshipay/[Gmail]/.Spam" . ?p))))))
                     mu4e-user-mail-address-list (append
                                                  (delq nil
                                                        (mapcar (lambda (context)