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

Add: org-ql-agenda-face

Browse source
This commit is contained in:
Adam Porter 2019-08-12 20:45:44 -05:00
parent fbdfe58a08
commit e97d2c0af3
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
org-ql-agenda.el
View file

@ -48,6 +48,12 @@
(when (version< org-version "9.2")
(defalias 'org-get-tags #'org-get-tags-at))
;;;; Faces
(defface org-ql-agenda-due-date
'((t (:slant italic :weight bold)))
"Face for due dates in `org-ql-agenda' views.")
;;;; Variables
(defvar org-ql-agenda-buffer-name "*Org-QL-Agenda*"
@ -385,7 +391,7 @@ return an empty string."
(org-habit-parse-todo))))
(due-string (pcase (org-element-property :relative-due-date element)
('nil "")
(string (format " %s " (org-add-props string nil 'face 'underline)))))
(string (format " %s " (org-add-props string nil 'face 'org-ql-agenda-due-date)))))
(string (s-join " " (-non-nil (list todo-keyword priority-string title due-string tag-string)))))
(remove-list-of-text-properties 0 (length string) '(line-prefix) string)
;; Add all the necessary properties and faces to the whole string