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

Use existing ID if org-id-link-to-org-use-id is not nil

Browse source
This commit is contained in:
bhuztez 2022-08-22 20:59:33 +08:00
parent 9d0712a17a
commit 03349193da
1 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

26
org-ql-search.el
View file

@ -299,19 +299,19 @@ For example, an org-ql dynamic block header could look like:
(list (cons 'todo (lambda (element)
(org-element-property :todo-keyword element)))
(cons 'heading (lambda (element)
(cond
((and org-id-link-to-org-use-id
(org-element-property :ID element))
(org-make-link-string (format "id:%s" (org-element-property :ID element))
(org-element-property :raw-value element)))
((org-element-property :file element)
(org-make-link-string (format "file:%s::*%s"
(org-element-property :file element)
(org-element-property :raw-value element))
(org-element-property :raw-value element)))
(t (org-make-link-string (org-element-property :raw-value element)
(org-link-display-format
(org-element-property :raw-value element)))))))
(org-make-link-string
(cond
((or (eq org-id-link-to-org-use-id t)
(and org-id-link-to-org-use-id
(org-element-property :ID element)))
(format "id:%s" (org-element-property :ID element)))
((string-equal (org-element-property :file element) (buffer-file-name))
(org-element-property :raw-value element))
(t
(format "file:%s::*%s"
(org-element-property :file element)
(org-element-property :raw-value element))))
(org-link-display-format (org-element-property :raw-value element)))))
(cons 'priority (lambda (element)
(--when-let (org-element-property :priority element)
(char-to-string it))))