jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix: (--add-scheduled-face) Remove broken prefix code

Browse source 
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.
This commit is contained in:
Adam Porter 2018-08-22 01:37:08 -05:00
parent d3cb2bfeed
commit b4ba9e78fd
1 changed files with 1 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
org-ql-agenda.el
View file

@ -283,19 +283,7 @@ Its property list should be the second item in the list, as returned by `org-ele
'face face))) 'face face)))
(properties (--> (cadr element) (properties (--> (cadr element)
(plist-put it :title title) (plist-put it :title title)
(plist-put it :relative-due-date relative-due-date))) (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))))))))
(list (car element) (list (car element)
properties)) properties))
;; Not scheduled ;; Not scheduled