From a75f8bbba89f62f3ede2c1dd3aeb1ac0aff681b9 Mon Sep 17 00:00:00 2001 From: Christian Cunningham Date: Fri, 14 Jun 2024 15:52:03 -0700 Subject: Display Face Colorings --- elchemy-functions.el | 2 +- elchemy-user.el | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/elchemy-functions.el b/elchemy-functions.el index 0c53bc5..7a27356 100644 --- a/elchemy-functions.el +++ b/elchemy-functions.el @@ -79,7 +79,7 @@ Returns '((:raw-value . ) (:level ) (:priority . ) (:todo-keyword . ) (:scheduled . ))" (let ((heading-alist (cl--plist-to-alist (car (cdr heading))))) - `(,(assoc :raw-value heading-alist) ,(assoc :level heading-alist) ,(assoc :priority heading-alist) (:todo-keyword . ,(substring-no-properties (cdr (assoc :todo-keyword heading-alist)))) (:scheduled . ,(cdr (assoc :raw-value (cl--plist-to-alist (nth 2 (assoc :scheduled heading-alist))))))))) + `(,(assoc :raw-value heading-alist) ,(assoc :level heading-alist) ,(assoc :priority heading-alist) ,(assoc :todo-keyword heading-alist) (:scheduled . ,(cdr (assoc :raw-value (cl--plist-to-alist (nth 2 (assoc :scheduled heading-alist))))))))) (defun elchemy/format-priority (priority) "Format a priority to the letter or '-' if no priority" diff --git a/elchemy-user.el b/elchemy-user.el index 0051d12..ef472d9 100644 --- a/elchemy-user.el +++ b/elchemy-user.el @@ -39,8 +39,10 @@ elchemy/user/org-hideaway t elchemy/elchemy-projects-file "projects" elchemy/dashboard-splash "assets/splash.png" - elchemy/dashboard-agenda-titles '("TODO" "STRT" "WAIT") - elchemy/dashboard-agenda-padding 4 + elchemy/dashboard-agenda-titles '(#("TODO" 0 4 (fontify t face (:foreground "red"))) + #("STRT" 0 4 (fontify t face (:foreground "dark cyan"))) + #("WAIT" 0 4 (fontify t face (:foreground "orange")))) + elchemy/dashboard-agenda-padding 2 elchemy/schedule-lookahead 7) ;; Modeline -- cgit v1.2.1