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

Fix: (org-ql-agenda--add-scheduled-face) todo-keyword error

Browse source 
Mentioned in #5.  Thanks again to @natrys.
This commit is contained in:
Adam Porter 2018-08-21 09:10:26 -05:00
parent 8716c9a087
commit d3cb2bfeed
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql-agenda.el
View file

@ -239,7 +239,8 @@ Its property list should be the second item in the list, as returned by `org-ele
"Add faces to ELEMENT's title for its scheduled status." "Add faces to ELEMENT's title for its scheduled status."
;; NOTE: Also adding prefix ;; NOTE: Also adding prefix
(if-let ((scheduled-date (org-element-property :scheduled element))) (if-let ((scheduled-date (org-element-property :scheduled element)))
(let* ((show-all (or (eq org-agenda-repeating-timestamp-show-all t) (let* ((todo-keyword (org-element-property :todo-keyword element))
(show-all (or (eq org-agenda-repeating-timestamp-show-all t)
(member todo-keyword org-agenda-repeating-timestamp-show-all))) (member todo-keyword org-agenda-repeating-timestamp-show-all)))
(raw-value (org-element-property :raw-value scheduled-date)) (raw-value (org-element-property :raw-value scheduled-date))
(sexp-p (string-prefix-p "%%" raw-value)) (sexp-p (string-prefix-p "%%" raw-value))
@ -273,7 +274,6 @@ Its property list should be the second item in the list, as returned by `org-ele
;; that. ;; that.
(current-buffer) (current-buffer)
(org-element-property :begin element))))) (org-element-property :begin element)))))
(todo-keyword (org-element-property :todo-keyword element))
(face (cond ((member todo-keyword org-done-keywords) 'org-agenda-done) (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-today)
((> today-day-number scheduled-day-number) 'org-scheduled-previously) ((> today-day-number scheduled-day-number) 'org-scheduled-previously)