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

Change: Rename fmap macro to flet

Browse source
This commit is contained in:
Adam Porter 2018-08-20 08:17:10 -05:00
parent 32f2b3304a
commit ad4aad16f1
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

@ -52,7 +52,7 @@ buffer. In this case, ACTION should return an Org element."
:narrow ,narrow :narrow ,narrow
:sort ',sort)) :sort ',sort))
(defmacro org-ql--fmap (fns &rest body) (defmacro org-ql--flet (fns &rest body)
(declare (indent defun) (debug (listp body))) (declare (indent defun) (debug (listp body)))
`(cl-letf ,(cl-loop for (fn target) in fns `(cl-letf ,(cl-loop for (fn target) in fns
collect `((symbol-function ',fn) collect `((symbol-function ',fn)
@ -127,7 +127,7 @@ a list of defined `org-ql' sorting methods: `date', `deadline',
(cl-defun org-ql--select (&key predicate action narrow) (cl-defun org-ql--select (&key predicate action narrow)
"Return results of mapping function ACTION across entries in current buffer matching function PREDICATE. "Return results of mapping function ACTION across entries in current buffer matching function PREDICATE.
If NARROW is non-nil, buffer will not be widened." If NARROW is non-nil, buffer will not be widened."
(org-ql--fmap ((category #'org-ql--category-p) (org-ql--flet ((category #'org-ql--category-p)
(date #'org-ql--date-plain-p) (date #'org-ql--date-plain-p)
(deadline #'org-ql--deadline-p) (deadline #'org-ql--deadline-p)
(scheduled #'org-ql--scheduled-p) (scheduled #'org-ql--scheduled-p)