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

Fix: (link) :regexp-p argument

Browse source 
Closes #220.
This commit is contained in:
Akira Komamura 2021-06-13 23:38:40 +09:00 • committed by Adam Porter
parent 38133de650
commit 18dbb9828f
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

@ -1137,17 +1137,24 @@ any link is found."
"]" "]"
(or eol blank)))) (or eol blank))))
(`(,predicate-names ,(and description-or-target (`(,predicate-names ,(and description-or-target
(guard (not (keywordp description-or-target))))) (guard (not (keywordp description-or-target))))
. ,plist)
(list :regexp (org-ql--link-regexp :description-or-target (list :regexp (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) nil)
(`(,predicate-names . ,plist) (`(,predicate-names . ,plist)
(list :regexp (org-ql--link-regexp (list :regexp (org-ql--link-regexp
:description :description
(when (plist-get plist :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) :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)) nil))
:body (let* (plist description-or-target description target regexp-p) :body (let* (plist description-or-target description target regexp-p)
(if (not (keywordp (car args))) (if (not (keywordp (car args)))