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

WIP

Browse source
This commit is contained in:
Adam Porter 2020-11-22 13:55:03 -06:00
parent 049485b813
commit 919f7fc010
1 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
org-ql.el
View file

@ -826,6 +826,7 @@ PREDICATES should be the value of `org-ql-predicates'."
(--map (plist-get (cdr it) :normalizers)) (--map (plist-get (cdr it) :normalizers))
(-flatten-n 1)))) (-flatten-n 1))))
(fset 'org-ql--normalize-query (fset 'org-ql--normalize-query
(byte-compile
`(lambda (query) `(lambda (query)
"FIXME" "FIXME"
(cl-labels ((rec (element) (cl-labels ((rec (element)
@ -844,7 +845,7 @@ PREDICATES should be the value of `org-ql-predicates'."
;; Any other form: passed through unchanged. ;; Any other form: passed through unchanged.
(_ element)))) (_ element))))
(rec query)))))) (rec query)))))))
(defun org-ql--define-preamble-fn (predicates) (defun org-ql--define-preamble-fn (predicates)
"Define function `org-ql--query-preamble' for PREDICATES. "Define function `org-ql--query-preamble' for PREDICATES.