From 06c7f55b218b0a68ad21aa91c0c5e26d894ea127 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 23 Jul 2019 21:32:44 -0500 Subject: [PATCH] Change: (--query-preamble) Simplify --- org-ql.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/org-ql.el b/org-ql.el index 4874030..8d23add 100644 --- a/org-ql.el +++ b/org-ql.el @@ -281,10 +281,9 @@ replace the clause with a preamble." (pcase element (`(or _) element) (`(regexp . ,regexps) - (let* ((regexp (rx-to-string `(or ,@regexps) t))) - (setq org-ql-preamble regexp) - ;; Return nil - nil)) + (setq org-ql-preamble (rx-to-string `(or ,@regexps) t)) + ;; Return nil + nil) (`(todo . ,(and todo-keywords (guard todo-keywords))) ;; FIXME: With case-folding, a query like (todo "WAITING") ;; can find a non-todo heading named "Waiting". @@ -303,9 +302,8 @@ replace the clause with a preamble." (setq org-ql-preamble (rx-to-string `(seq bol ,repeat " ") t)) nil)) (`(level ,num) - (let* ((regexp (rx-to-string `(seq bol (repeat ,num "*") " ") t))) - (setq org-ql-preamble regexp) - nil)) + (setq org-ql-preamble (rx-to-string `(seq bol (repeat ,num "*") " ") t)) + nil) (`(and . ,rest) (let ((clauses (mapcar #'rec rest))) `(and ,@(-non-nil clauses))))