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

Show relative due date (with actual date as tooltip)

Browse source
This commit is contained in:
Adam Porter 2018-05-10 14:01:49 -05:00
parent b2b0d068e0
commit 96fb97d4bd
1 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
org-agenda-ng.el
View file

@ -164,7 +164,10 @@ Its property list should be the second item in the list, as returned by `org-ele
(habit-property (org-with-point-at (org-element-property :begin element) (habit-property (org-with-point-at (org-element-property :begin element)
(when (org-is-habit-p) (when (org-is-habit-p)
(org-habit-parse-todo)))) (org-habit-parse-todo))))
(string (s-join " " (list todo-keyword priority-string title tag-string)))) (due-string (pcase (org-element-property :relative-due-date element)
('nil "")
(string (format " %s " (org-add-props string nil 'face 'underline)))))
(string (s-join " " (list todo-keyword priority-string title due-string tag-string))))
(remove-list-of-text-properties 0 (length string) '(line-prefix) string) (remove-list-of-text-properties 0 (length string) '(line-prefix) string)
;; Add all the necessary properties and faces to the whole string ;; Add all the necessary properties and faces to the whole string
(--> string (--> string
@ -249,11 +252,18 @@ Its property list should be the second item in the list, as returned by `org-ele
element)) element))
(defun org-agenda-ng--add-deadline-face (element) (defun org-agenda-ng--add-deadline-face (element)
"Add faces to ELEMENT's title for its deadline status." "Add faces to ELEMENT's title for its deadline status.
Also store relative due date as string in `:relative-due-date'
property."
(if-let ((deadline-date (org-element-property :deadline element))) (if-let ((deadline-date (org-element-property :deadline element)))
(let* ((today-day-number (org-today)) (let* ((today-day-number (org-today))
(deadline-day-number (org-time-string-to-absolute (deadline-day-number (org-time-string-to-absolute
(org-element-timestamp-interpreter deadline-date 'ignore))) (org-element-timestamp-interpreter deadline-date 'ignore)))
(difference-days (- today-day-number deadline-day-number))
(relative-due-date (pcase difference-days
(0 "today")
(_ (org-add-props (format "%sd ago" difference-days) nil
'help-echo (org-element-property :raw-value deadline-date)))))
(todo-keyword (org-element-property :todo-keyword element)) (todo-keyword (org-element-property :todo-keyword element))
(done-p (member todo-keyword org-done-keywords)) (done-p (member todo-keyword org-done-keywords))
(today-p (= today-day-number deadline-day-number)) (today-p (= today-day-number deadline-day-number))
@ -266,7 +276,8 @@ Its property list should be the second item in the list, as returned by `org-ele
(org-add-props it nil (org-add-props it nil
'face face))) 'face face)))
(properties (--> (second element) (properties (--> (second element)
(plist-put it :title title)))) (plist-put it :title title)
(plist-put it :relative-due-date relative-due-date))))
(list (car element) (list (car element)
properties)) properties))
;; No deadline ;; No deadline