Commit f477219ff1ae

Vincent Demeester <vincent@sbr.pm>
2025-01-14 12:17:03
tools/emacs: some mu4e and org configuration updates.
- More icon for org categories - Configure context and a few other niceties in mu4e Signed-off-by: Vincent Demeester <vincent@sbr.pm>
main
1 parent 53be442
Changed files (2)
tools
emacs
config
config-mu4e.el
config-org.el
tools/emacs/config/config-mu4e.el
@@ -4,11 +4,52 @@
 
 (use-package mu4e
   :commands (mu4e)
+  :custom
+  (mu4e-context-policy 'pick-first)
   :config
-  (setopt mu4e-completing-read-function completing-read-function))
 
-(use-package consult-mu
-  :commands (consult-mu))
+ (setq
+   mu4e-headers-draft-mark     '("D" . "💈")
+   mu4e-headers-flagged-mark   '("F" . "📍")
+   mu4e-headers-new-mark       '("N" . "🔥")
+   mu4e-headers-passed-mark    '("P" . "❯")
+   mu4e-headers-replied-mark   '("R" . "❮")
+   mu4e-headers-seen-mark      '("S" . "☑")
+   mu4e-headers-trashed-mark   '("T" . "💀")
+   mu4e-headers-attach-mark    '("a" . "📎")
+   mu4e-headers-encrypted-mark '("x" . "🔒")
+   mu4e-headers-signed-mark    '("s" . "🔑")
+   mu4e-headers-unread-mark    '("u" . "⎕")
+   mu4e-headers-list-mark      '("l" . "🔈")
+   mu4e-headers-personal-mark  '("p" . "👨")
+   mu4e-headers-calendar-mark  '("c" . "📅"))
+
+  (setopt mu4e-completing-read-function completing-read-function)
+  (setq mu4e-contexts `( ,(make-mu4e-context
+			   :name "icloud"
+			   :match-func (lambda (msg) (when msg
+						       (string-prefix-p "/icloud" (mu4e-message-field msg :maildir))))
+			   :vars '(
+				   (mu4e-trash-folder . "/icloud/Deleted Messages")
+				   ;; (mu4e-refile-folder . vde/mu4e-icloud-refile)
+				   (mu4e-sent-folder . "/icloud/Sent Messages")
+				   (mu4e-draft-folder . "/icloud/Drafts")
+				   (mu4e-get-mail-command . "mbsync icloud")
+				   ))
+			 ;; ,(make-mu4e-context
+			 ;;   :name "gmail"
+			 ;;   :match-func (lambda (msg) (when msg
+			 ;; 			       (string-prefix-p "/gmail" (mu4e-message-field msg :maildir))))
+			 ;;   :vars '(
+			 ;; 	   (mu4e-trash-folder . "/Gmail/[Gmail].Trash")
+			 ;; 	   (mu4e-refile-folder . "/Gmail/[Gmail].Archive")
+			 ;; 	   (mu4e-get-mail-command . "mbsync gmail")
+			 ;; 	   ))
+			 ))
+  (add-to-list 'mu4e-bookmarks
+  '( :name  "All Inboxes"
+        :query "maildir:/icloud/INBOX OR maildir:/gmail/INBOX"
+     :key   ?b)))
 
 (provide 'config-mu4e)
 ;;; config-mu4e.el ends here
tools/emacs/config/config-org.el
@@ -138,7 +138,9 @@
 
   (org-agenda-category-icon-alist `(("journal"  ,(list (propertize "📝")))
 				    ("project--" ,(list (propertize "💼" )))
-				    ("tekton-", (list (propertize "😼")))
+				    ("tekton", (list (propertize "😼")))
+				    ("openshift-pipelines", (list (propertize "🎩")))
+				    ("redhat", (list (propertize "🎩")))
 				    ("area--"  ,(list (propertize"🏢" )))
 				    ("area--home"  ,(list (propertize"🏡" )))
 				    ("home"  ,(list (propertize"🏡" )))