From ad4aad16f174410ccb80d76ae779e342ccc5372f Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 20 Aug 2018 08:17:10 -0500 Subject: [PATCH] Change: Rename fmap macro to flet --- org-ql.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/org-ql.el b/org-ql.el index 0c43799..46b137d 100644 --- a/org-ql.el +++ b/org-ql.el @@ -52,7 +52,7 @@ buffer. In this case, ACTION should return an Org element." :narrow ,narrow :sort ',sort)) -(defmacro org-ql--fmap (fns &rest body) +(defmacro org-ql--flet (fns &rest body) (declare (indent defun) (debug (listp body))) `(cl-letf ,(cl-loop for (fn target) in fns 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) "Return results of mapping function ACTION across entries in current buffer matching function PREDICATE. 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) (deadline #'org-ql--deadline-p) (scheduled #'org-ql--scheduled-p)