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

Merge aba3e8f911 into 4b8330a683

Browse source
This commit is contained in:
chap9 2025-05-07 14:19:49 +00:00 • committed by GitHub
commit c24ea8ab5c
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-ql-search.el
View file

@ -329,9 +329,12 @@ this (must be a single line in the Org buffer):
(list (cons 'todo (lambda (element) (list (cons 'todo (lambda (element)
(org-element-property :todo-keyword element))) (org-element-property :todo-keyword element)))
(cons 'heading (lambda (element) (cons 'heading (lambda (element)
(let ((normalized-heading (let* ((normalized-heading
(org-ql-search--link-heading-search-string (org-element-property :raw-value element)))) (org-ql-search--link-heading-search-string (org-element-property :raw-value element)))
(org-ql-search--org-make-link-string normalized-heading (org-link-display-format normalized-heading))))) (id-value (org-element-property :ID element))
(link-value (or (and id-value (format "id:%s" id-value))
normalized-heading)))
(org-ql-search--org-make-link-string link-value (org-link-display-format normalized-heading)))))
(cons 'priority (lambda (element) (cons 'priority (lambda (element)
(--when-let (org-element-property :priority element) (--when-let (org-element-property :priority element)
(char-to-string it)))) (char-to-string it))))