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

Bind org-roam-node slots in anaphoric predicates for convenience

Browse Source
This commit is contained in:
Chris Barrett
2022-08-25 12:02:24 +12:00
parent 015789e2da
commit ee480c2254
1 changed files with 28 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -99,8 +99,17 @@
;; ;;
;; Examples: ;; Examples:
;; - my-predicate ;; - my-predicate
;; - (lambda (node) (equal 0 (org-roam-node-depth node))) ;; - (lambda (node) (zerop (org-roam-node-level node)))
;; - (equal 0 (org-roam-node-depth it)) ;; - (zerop (org-roam-node-level it))
;;
;; For convenience, the slots on an org-roam node are bound within an
;; anaphoric predicate. This allows you to rewrite:
;;
;; (zerop (org-roam-node-level it))
;;
;; As the more convenient:
;;
;; (zerop level)
;; ;;
;; If :filter and :remove are both provided, they are logically and-ed. ;; If :filter and :remove are both provided, they are logically and-ed.
@@ -171,6 +180,22 @@ their blocks updated automatically."
(rx-to-string (cons 'and args) (rx-to-string (cons 'and args)
t)))))) t))))))
(defconst org-roam-dblocks--node-slot-symbols
'(file file-title file-hash file-atime file-mtime
id level point todo priority scheduled deadline title properties olp
tags aliases refs)
"A list of slots names on org-roam-nodes.
This list is used to create lexical bindings in anaphoric
predicates.")
(defun org-roam-dblocks--bindings-for-lexical-scope (node)
(cons `(it . ,node)
(seq-map (lambda (sym)
(let ((slot-accessor (intern (format "org-roam-node-%s" sym))))
(cons sym (funcall slot-accessor node))))
org-roam-dblocks--node-slot-symbols)))
(defun org-roam-dblocks--parse-filter-fn (keyword form) (defun org-roam-dblocks--parse-filter-fn (keyword form)
;; Quick tests: ;; Quick tests:
;; (org-roam-dblocks--parse-filter-fn :foo nil) ;; (org-roam-dblocks--parse-filter-fn :foo nil)
@@ -196,7 +221,7 @@ their blocks updated automatically."
(funcall form node))) (funcall form node)))
(t (t
(lambda-with-error-handling (node) (lambda-with-error-handling (node)
(eval form `((it . ,node)))))))) (eval form (org-roam-dblocks--bindings-for-lexical-scope node)))))))
(defun org-roam-dblocks--compile-filter-fns (params) (defun org-roam-dblocks--compile-filter-fns (params)
;; Quick tests: ;; Quick tests: