feat(org): themeable agenda header-row faces via org-faces-config

Each TODO keyword and priority cookie gets its own named face instead of sharing org's built-in org-todo / org-done / org-priority. org-faces-config.el defines org-faces-<keyword> and org-faces-priority-a..d (plus -dim variants for auto-dim), each with a real default color, and wires them through org-todo-keyword-faces and org-priority-faces once org loads. The file is org-faces-config, not org-faces, because org ships its own org-faces feature that the bare name would shadow.

This re-introduces the per-keyword/priority coloring that was stripped earlier, now as a named, theme-agnostic layer a theme can override. The design and the four resolved decisions are in docs/design/org-faces-spec.org; a theme-studio "org-faces" app and the auto-dim repoint follow in later phases.

1 files changed, 54 insertions, 0 deletions

diff --git a/tests/test-org-faces-config.el b/tests/test-org-faces-config.el
new file mode 100644
index 000000000..8e7da3309
--- /dev/null
+++ b/tests/test-org-faces-config.el
@@ -0,0 +1,54 @@
+;;; test-org-faces-config.el --- Tests for org-faces-config -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Verifies the custom agenda header-row faces exist and that the keyword and
+;; priority maps wire each keyword / priority to its org-faces-* face.  org is
+;; required first so the `with-eval-after-load' wiring in org-faces-config fires
+;; on load.
+
+;;; Code:
+
+(require 'ert)
+(require 'org)
+(require 'org-faces-config)
+
+(ert-deftest test-org-faces-config-base-faces-exist ()
+  "Normal: every base keyword and priority face is defined."
+  (dolist (f '(org-faces-todo org-faces-project org-faces-doing org-faces-waiting
+               org-faces-verify org-faces-stalled org-faces-delegated org-faces-failed
+               org-faces-done org-faces-cancelled
+               org-faces-priority-a org-faces-priority-b org-faces-priority-c org-faces-priority-d))
+    (should (facep f))))
+
+(ert-deftest test-org-faces-config-dim-faces-exist ()
+  "Normal: every dim variant is defined (auto-dim remaps onto these)."
+  (dolist (f '(org-faces-todo-dim org-faces-project-dim org-faces-doing-dim org-faces-waiting-dim
+               org-faces-verify-dim org-faces-stalled-dim org-faces-delegated-dim org-faces-failed-dim
+               org-faces-done-dim org-faces-cancelled-dim
+               org-faces-priority-a-dim org-faces-priority-b-dim org-faces-priority-c-dim org-faces-priority-d-dim))
+    (should (facep f))))
+
+(ert-deftest test-org-faces-config-keyword-map ()
+  "Normal: representative keywords map to their org-faces-* face."
+  (should (eq (cdr (assoc "TODO" org-todo-keyword-faces)) 'org-faces-todo))
+  (should (eq (cdr (assoc "VERIFY" org-todo-keyword-faces)) 'org-faces-verify))
+  (should (eq (cdr (assoc "CANCELLED" org-todo-keyword-faces)) 'org-faces-cancelled))
+  (should (eq (cdr (assoc "DELEGATED" org-todo-keyword-faces)) 'org-faces-delegated)))
+
+(ert-deftest test-org-faces-config-keyword-coverage ()
+  "Boundary: all ten keywords are mapped, each to a real face."
+  (dolist (kw '("TODO" "PROJECT" "DOING" "WAITING" "VERIFY" "STALLED"
+                "DELEGATED" "FAILED" "DONE" "CANCELLED"))
+    (let ((face (cdr (assoc kw org-todo-keyword-faces))))
+      (should face)
+      (should (facep face)))))
+
+(ert-deftest test-org-faces-config-priority-map ()
+  "Normal: each priority A-D maps to its org-faces-priority-* face."
+  (should (eq (cdr (assq ?A org-priority-faces)) 'org-faces-priority-a))
+  (should (eq (cdr (assq ?B org-priority-faces)) 'org-faces-priority-b))
+  (should (eq (cdr (assq ?C org-priority-faces)) 'org-faces-priority-c))
+  (should (eq (cdr (assq ?D org-priority-faces)) 'org-faces-priority-d)))
+
+(provide 'test-org-faces-config)
+;;; test-org-faces-config.el ends here