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