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

Merge cd89bed9c2 into 4b8330a683

Browse source
This commit is contained in:
guidao 2025-11-10 20:45:42 +08:00 • committed by GitHub
commit 57ca4103a1
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-ql-view.el
View file

@ -959,6 +959,14 @@ return an empty string."
(org-element-property :org-marker element)) (org-element-property :org-marker element))
(when (org-is-habit-p) (when (org-is-habit-p)
(org-habit-parse-todo)))) (org-habit-parse-todo))))
(marker (or (org-element-property :org-hd-marker element)
(org-element-property :org-marker element)))
(org-not-done-regexp (when marker
(with-current-buffer (marker-buffer marker)
org-not-done-regexp)))
(org-todo-regexp (when marker
(with-current-buffer (marker-buffer marker)
org-todo-regexp)))
(due-string (pcase (org-element-property :relative-due-date element) (due-string (pcase (org-element-property :relative-due-date element)
('nil "") ('nil "")
(string (format " %s " (org-add-props string nil 'face 'org-ql-view-due-date))))) (string (format " %s " (org-add-props string nil 'face 'org-ql-view-due-date)))))
@ -973,7 +981,9 @@ return an empty string."
'org-category category 'org-category category
'todo-state todo-keyword 'todo-state todo-keyword
'tags tag-list 'tags tag-list
'org-habit-p habit-property))))) 'org-habit-p habit-property
'org-not-done-regexp org-not-done-regexp
'org-todo-regexp org-todo-regexp)))))
(defun org-ql-view--add-faces (element) (defun org-ql-view--add-faces (element)
"Return ELEMENT with deadline and scheduled faces added." "Return ELEMENT with deadline and scheduled faces added."