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) (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)
(cond (org-make-link-string
((and org-id-link-to-org-use-id (cond
(org-element-property :ID element)) ((or (eq org-id-link-to-org-use-id t)
(org-make-link-string (format "id:%s" (org-element-property :ID element)) (and org-id-link-to-org-use-id
(org-element-property :raw-value element))) (org-element-property :ID element)))
((org-element-property :file element) (format "id:%s" (org-element-property :ID element)))
(org-make-link-string (format "file:%s::*%s" ((string-equal (org-element-property :file element) (buffer-file-name))
(org-element-property :file element) (org-element-property :raw-value element))
(org-element-property :raw-value element)) (t
(org-element-property :raw-value element))) (format "file:%s::*%s"
(t (org-make-link-string (org-element-property :raw-value element) (org-element-property :file element)
(org-link-display-format (org-element-property :raw-value element))))
(org-element-property :raw-value element))))))) (org-link-display-format (org-element-property :raw-value element)))))
(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))))