From dc5dd505aadf04e19e6d4be4b2bf4b142c4e5202 Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Thu, 18 Aug 2022 15:15:25 +1200 Subject: [PATCH] :lipstick: rename function for clarity --- lisp/org-roam-dblocks.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/org-roam-dblocks.el b/lisp/org-roam-dblocks.el index 295074f..68b776e 100644 --- a/lisp/org-roam-dblocks.el +++ b/lisp/org-roam-dblocks.el @@ -171,15 +171,15 @@ their blocks updated automatically." (rx-to-string (cons 'and args) t)))))) -(defun org-roam-dblocks--parse-predicate (keyword form) +(defun org-roam-dblocks--parse-filter-fn (keyword form) ;; Quick tests: - ;; (org-roam-dblocks--parse-predicate :foo nil) - ;; (org-roam-dblocks--parse-predicate :foo t) - ;; (org-roam-dblocks--parse-predicate :foo 'ignore) - ;; (org-roam-dblocks--parse-predicate :foo (lambda (node) node)) - ;; (org-roam-dblocks--parse-predicate :foo '(lambda (node) node)) - ;; (org-roam-dblocks--parse-predicate :foo 'it) - ;; (org-roam-dblocks--parse-predicate :foo '(equal it 0)) + ;; (org-roam-dblocks--parse-filter-fn :foo nil) + ;; (org-roam-dblocks--parse-filter-fn :foo t) + ;; (org-roam-dblocks--parse-filter-fn :foo 'ignore) + ;; (org-roam-dblocks--parse-filter-fn :foo (lambda (node) node)) + ;; (org-roam-dblocks--parse-filter-fn :foo '(lambda (node) node)) + ;; (org-roam-dblocks--parse-filter-fn :foo 'it) + ;; (org-roam-dblocks--parse-filter-fn :foo '(equal it 0)) (cl-macrolet ((lambda-with-error-handling (binding &rest body) `(lambda ,binding (condition-case err @@ -208,8 +208,8 @@ their blocks updated automatically." ;; (funcall (org-roam-dblocks--compile-filter-fns '(:filter integerp :remove stringp)) "foo") ;; (funcall (org-roam-dblocks--compile-filter-fns '(:filter integerp :remove stringp)) 1) (pcase-exhaustive - (cons (org-roam-dblocks--parse-predicate :filter (org-roam-dblocks-args-filter params)) - (org-roam-dblocks--parse-predicate :remove (org-roam-dblocks-args-remove params))) + (cons (org-roam-dblocks--parse-filter-fn :filter (org-roam-dblocks-args-filter params)) + (org-roam-dblocks--parse-filter-fn :remove (org-roam-dblocks-args-remove params))) (`(nil . nil) (-const t)) (`(,filter . nil) filter)