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

Fix: (link) :regexp-p argument

Browse source 
See #220.  Thanks to Akira Komamura (@akirak).
This commit is contained in:
Adam Porter 2021-06-16 17:38:07 -05:00
parent e05de210c7
commit 0cc4c5b549
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
org-ql.el
View file

@ -810,19 +810,26 @@ replace the clause with a preamble."
;; have to use `plist-get' here for now. Maybe when we drop
;; support for Emacs <28...
(`(link ,(and description-or-target
(guard (not (keywordp description-or-target)))))
(guard (not (keywordp description-or-target))))
. ,plist)
(setq org-ql-preamble
(org-ql--link-regexp :description-or-target
(regexp-quote description-or-target)))
(if (plist-get plist :regexp-p)
description-or-target
(regexp-quote description-or-target))))
nil)
(`(link . ,plist)
(setq org-ql-preamble
(org-ql--link-regexp
:description
(when (plist-get plist :description)
(regexp-quote (plist-get plist :description)))
(if (plist-get plist :regexp-p)
(plist-get plist :description)
(regexp-quote (plist-get plist :description))))
:target (when (plist-get plist :target)
(regexp-quote (plist-get plist :target)))))
(if (plist-get plist :regexp-p)
(plist-get plist :target)
(regexp-quote (plist-get plist :target))))))
nil)
;; Planning lines.