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

Deal with "heading:[abc]+[def]+" style search regexp. Fix #64

Browse source 
*  (org-ql--query-preamble): use (regexp ,regexp) to proper insert
regexp string.
This commit is contained in:
Feng Shu 2019-12-08 13:25:58 +08:00
parent 2ae4d1b3ed
commit cc61045c3f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql.el
View file

@ -685,14 +685,14 @@ replace the clause with a preamble."
;; Only one regexp: match with preamble, then let predicate confirm (because ;; Only one regexp: match with preamble, then let predicate confirm (because
;; the match could be in e.g. the tags rather than the heading text). ;; the match could be in e.g. the tags rather than the heading text).
(setq org-ql-preamble (rx-to-string `(seq bol (1+ "*") (1+ blank) (0+ nonl) (setq org-ql-preamble (rx-to-string `(seq bol (1+ "*") (1+ blank) (0+ nonl)
,regexp) (regexp ,regexp))
'no-group)) 'no-group))
element) element)
(`(heading . ,regexps) (`(heading . ,regexps)
;; Multiple regexps: use preamble to match against first ;; Multiple regexps: use preamble to match against first
;; regexp, then let the predicate match the rest. ;; regexp, then let the predicate match the rest.
(setq org-ql-preamble (rx-to-string `(seq bol (1+ "*") (1+ blank) (0+ nonl) (setq org-ql-preamble (rx-to-string `(seq bol (1+ "*") (1+ blank) (0+ nonl)
,(car regexps)) (regexp ,(car regexps)))
'no-group)) 'no-group))
element) element)