diff --git a/org-agenda-ng.el b/org-agenda-ng.el index f503abc..e01987f 100644 --- a/org-agenda-ng.el +++ b/org-agenda-ng.el @@ -285,28 +285,6 @@ Its property list should be the second item in the list, as returned by `org-ele (let ((face (org-get-priority-face (string-to-char (match-string 2))))) (org-add-props string nil 'face face 'font-lock-fontified t)))) -(defun org-agenda-ng--add-scheduled-face (element) - "Add faces to ELEMENT's title for its scheduled status." - (if-let ((scheduled-date (org-element-property :scheduled element))) - (let* ((today-day-number (org-today)) - (scheduled-day-number (org-time-string-to-absolute - (org-element-timestamp-interpreter scheduled-date 'ignore))) - (todo-keyword (org-element-property :todo-keyword element)) - (face (cond - ((member todo-keyword org-done-keywords) 'org-agenda-done) - ((= today-day-number scheduled-day-number) 'org-scheduled-today) - ((> today-day-number scheduled-day-number) 'org-scheduled-previously) - (t 'org-scheduled))) - (title (--> (org-element-property :raw-value element) - (org-add-props it nil - 'face face))) - (properties (--> (second element) - (plist-put it :title title)))) - (list (car element) - properties)) - ;; Not scheduled - element)) - (defun org-agenda-ng--add-scheduled-face (element) "Add faces to ELEMENT's title for its scheduled status." ;; NOTE: Also adding prefix