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

Prune

Browse source
This commit is contained in:
Adam Porter 2018-01-03 11:00:30 -06:00
parent e6b4b5223b
commit 090f77ece9
1 changed files with 0 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

22
org-agenda-ng.el
View file

@ -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))))) (let ((face (org-get-priority-face (string-to-char (match-string 2)))))
(org-add-props string nil 'face face 'font-lock-fontified t)))) (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) (defun org-agenda-ng--add-scheduled-face (element)
"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