From 18dbb9828fd794d6745d6e3188fa26d1894e538f Mon Sep 17 00:00:00 2001 From: Akira Komamura Date: Sun, 13 Jun 2021 23:38:40 +0900 Subject: [PATCH] Fix: (link) :regexp-p argument Closes #220. --- org-ql.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/org-ql.el b/org-ql.el index 49542523..aad2afd8 100644 --- a/org-ql.el +++ b/org-ql.el @@ -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)))