diff options
| -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 |