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

Merge: 0.4.2

Browse source
This commit is contained in:
Adam Porter 2020-02-26 19:15:52 -06:00
commit 60d1bd1f97
3 changed files with 72 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

10
org-ql-view.el
View file

@ -802,10 +802,12 @@ property."
element))
(defun org-ql-view--add-todo-face (keyword)
"Return KEYWORD with TODO face added."
(when-let* ((org-done-keywords org-done-keywords-for-agenda)
(face (org-get-todo-face keyword)))
(org-add-props keyword nil 'face face)))
"Return KEYWORD with Org to-do face added."
(let* ((org-done-keywords org-done-keywords-for-agenda)
(face (org-get-todo-face keyword)))
(when face
(add-text-properties 0 (length keyword) (list 'face face) keyword))
keyword))
;;;;; Completion