From b4ba9e78fdafe92129d4e56baf1e0629dc357482 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 22 Aug 2018 01:37:08 -0500 Subject: [PATCH] Fix: (--add-scheduled-face) Remove broken prefix code Also unnecessary since we use --format-relative-date. If we ever want to exactly emulate the Agenda, this can be replaced. See https://github.com/alphapapa/org-ql/issues/5#issuecomment-414717478. --- org-ql-agenda.el | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/org-ql-agenda.el b/org-ql-agenda.el index 623916d..dda1e7a 100644 --- a/org-ql-agenda.el +++ b/org-ql-agenda.el @@ -283,19 +283,7 @@ Its property list should be the second item in the list, as returned by `org-ele 'face face))) (properties (--> (cadr element) (plist-put it :title title) - (plist-put it :relative-due-date relative-due-date))) - (prefix (cl-destructuring-bind (first next) org-agenda-scheduled-leaders - (cond ((> scheduled-day-number today-day-number) - ;; Future - first) - ((and (not show-all) - (= repeat today-day-number))) - ((= today-day-number scheduled-day-number) - ;; Today - first) - (t - ;; Subsequent reminders. Count from base schedule. - (format next (1+ (- today-day-number scheduled-day-number)))))))) + (plist-put it :relative-due-date relative-due-date)))) (list (car element) properties)) ;; Not scheduled