awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-22 16:20:55 -05:00
Code Issues Packages Projects Releases Wiki Activity

💄 rename function for clarity

Browse Source
This commit is contained in:
Chris Barrett
2022-08-18 15:15:25 +12:00
parent c99f0a3a06
commit dc5dd505aa
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/org-roam-dblocks.el
View File

@@ -171,15 +171,15 @@ their blocks updated automatically."
(rx-to-string (cons 'and args) (rx-to-string (cons 'and args)
t)))))) t))))))
(defun org-roam-dblocks--parse-predicate (keyword form) (defun org-roam-dblocks--parse-filter-fn (keyword form)
;; Quick tests: ;; Quick tests:
;; (org-roam-dblocks--parse-predicate :foo nil) ;; (org-roam-dblocks--parse-filter-fn :foo nil)
;; (org-roam-dblocks--parse-predicate :foo t) ;; (org-roam-dblocks--parse-filter-fn :foo t)
;; (org-roam-dblocks--parse-predicate :foo 'ignore) ;; (org-roam-dblocks--parse-filter-fn :foo 'ignore)
;; (org-roam-dblocks--parse-predicate :foo (lambda (node) node)) ;; (org-roam-dblocks--parse-filter-fn :foo (lambda (node) node))
;; (org-roam-dblocks--parse-predicate :foo '(lambda (node) node)) ;; (org-roam-dblocks--parse-filter-fn :foo '(lambda (node) node))
;; (org-roam-dblocks--parse-predicate :foo 'it) ;; (org-roam-dblocks--parse-filter-fn :foo 'it)
;; (org-roam-dblocks--parse-predicate :foo '(equal it 0)) ;; (org-roam-dblocks--parse-filter-fn :foo '(equal it 0))
(cl-macrolet ((lambda-with-error-handling (binding &rest body) (cl-macrolet ((lambda-with-error-handling (binding &rest body)
`(lambda ,binding `(lambda ,binding
(condition-case err (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)) "foo")
;; (funcall (org-roam-dblocks--compile-filter-fns '(:filter integerp :remove stringp)) 1) ;; (funcall (org-roam-dblocks--compile-filter-fns '(:filter integerp :remove stringp)) 1)
(pcase-exhaustive (pcase-exhaustive
(cons (org-roam-dblocks--parse-predicate :filter (org-roam-dblocks-args-filter params)) (cons (org-roam-dblocks--parse-filter-fn :filter (org-roam-dblocks-args-filter params))
(org-roam-dblocks--parse-predicate :remove (org-roam-dblocks-args-remove params))) (org-roam-dblocks--parse-filter-fn :remove (org-roam-dblocks-args-remove params)))
(`(nil . nil) (-const t)) (`(nil . nil) (-const t))
(`(,filter . nil) filter) (`(,filter . nil) filter)