diff options
author | Christian Cunningham <cc@localhost> | 2024-06-14 15:52:03 -0700 |
---|---|---|
committer | Christian Cunningham <cc@localhost> | 2024-06-14 15:52:03 -0700 |
commit | a75f8bbba89f62f3ede2c1dd3aeb1ac0aff681b9 (patch) | |
tree | 95ff8abd4b138f3dc3eb8e29c665017b627c78a3 | |
parent | 702f6a9e6ef16638660905c71380e615f90d8e0e (diff) |
Display Face Colorings
-rw-r--r-- | elchemy-functions.el | 2 | ||||
-rw-r--r-- | 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 . <Heading Text>) (:level <Org Heading Level>) (:priority . <Org Priority>) (:todo-keyword . <Org Todo Keyword>) (:scheduled . <Date Scheduled as Text>))" (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 |