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

Remove need to quote date comparators

Browse source
This commit is contained in:
Adam Porter 2018-05-10 16:14:20 -05:00
parent 41b1e0e837
commit 2aa3ba008e
2 changed files with 24 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

16
org-agenda-ng.el
View file

@ -47,12 +47,19 @@
(symbol-function ,target)))
,@body))
;; FIXME: DRY these two macros.
(cl-defmacro org-agenda-ng (files pred-body)
"Display an agenda-like buffer of entries in FILES that match PRED-BODY."
(declare (indent defun))
`(org-agenda-ng--agenda ,files
(byte-compile (lambda ()
,pred-body))
(cl-symbol-macrolet ((= #'=)
(< #'<)
(> #'>)
(<= #'<=)
(>= #'>=))
,pred-body)))
#'org-agenda-ng--format-element))
(cl-defmacro org-ql (files pred-body &key (action-fn (lambda (element) (list element))))
@ -63,7 +70,12 @@ of calling `org-element-headline-parser' at each matching entry."
(declare (indent defun))
`(org-ql--query ,files
(byte-compile (lambda ()
,pred-body))
(cl-symbol-macrolet ((= #'=)
(< #'<)
(> #'>)
(<= #'<=)
(>= #'>=))
,pred-body)))
#',action-fn))