From a75f8bbba89f62f3ede2c1dd3aeb1ac0aff681b9 Mon Sep 17 00:00:00 2001
From: Christian Cunningham <cc@localhost>
Date: Fri, 14 Jun 2024 15:52:03 -0700
Subject: Display Face Colorings

---
 elchemy-functions.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'elchemy-functions.el')

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"
-- 
cgit v1.2.1