Propertize categories in agenda view

1 files changed, 31 insertions, 0 deletions

diff --git a/emacs-config.org b/emacs-config.org
index 13f5d9c..0b3bb7d 100644
--- a/emacs-config.org
+++ b/emacs-config.org
@@ -872,6 +872,36 @@ Set time grid.
      "⏰" "——————————————————————————————"))
 #+end_src
 
+Procedure to colour categories in agenda.
+#+begin_src elisp
+  (defvar +category-faces '(("Task" . "tan")
+                            ("Rcur" . "MediumPurple")
+                            ("Evnt" . "orchid")
+                            ("Hbit" . "MediumSeaGreen")
+                            ("Proj" . "DeepSkyBlue")
+                            ("Work" . "indianred"))
+    "Category labels and colours that will be displayed in \\[org-agenda].")
+
+  (defun +propertize-face (regexp attributes)
+    "Propertise REGEXP with a list of face ATTRIBUTES."
+    (interactive)
+    (save-excursion
+      (goto-char (point-min))
+      (while (re-search-forward regexp nil t)
+        (add-text-properties
+         (match-beginning 1) (match-end 0) `(face (,@attributes))))))
+
+  (defun +org-agenda-propertize-category ()
+    "Propertise `+category-faces' in buffer."
+    (dolist (category +category-faces)
+      (let ((name (car category))
+            (fg (cdr category)))
+        (+propertize-face (format "^\\s_\\W+\\(%s\\)" name)
+                          `(:foreground ,fg)))))
+
+  (add-hook 'org-agenda-finalize-hook
+            #'+org-agenda-propertize-category)
+#+end_src
 **** Org Agenda Commands
 Command to view to personal planner.
 #+begin_src elisp
@@ -1039,6 +1069,7 @@ Command to review the weekend.
                  (org-agenda-start-day "saturday")))
               org-agenda-custom-commands)
 #+end_src
+
 *** Org Clock-table
 Define a custom clocktable formatter function for ~+org-clocktable-format~.
 #+begin_src elisp