Skip to content

Commit

Permalink
Fix: (link) :regexp-p argument
Browse files Browse the repository at this point in the history
  • Loading branch information
@akirak @alphapapa
akirak authored and alphapapa committed Jun 16, 2021
1 parent f34e525 commit 6422f84
Showing 1 changed file with 11 additions and 4 deletions.
15 changes: 11 additions & 4 deletions org-ql.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1137,17 +1137,24 @@ any link is found."
"]"
(or eol blank))))
(`(,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
(regexp-quote description-or-target)))
(if (plist-get plist :regexp-p)
description-or-target
(regexp-quote description-or-target))))
nil)
(`(,predicate-names . ,plist)
(list :regexp (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))
:body (let* (plist description-or-target description target regexp-p)
(if (not (keywordp (car args)))
Expand Down

0 comments on commit 6422f84

Please sign in to comment.