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 /elchemy-functions.el | |
parent | 702f6a9e6ef16638660905c71380e615f90d8e0e (diff) |
Display Face Colorings
Diffstat (limited to 'elchemy-functions.el')
-rw-r--r-- | elchemy-functions.el | 2 |
1 files changed, 1 insertions, 1 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" |