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

Exclude backlinks from nodes in same file by default

Browse Source
This commit is contained in:
Chris Barrett
2023-07-17 22:13:20 +12:00
parent 768b4c168f
commit 6eeacc9d2a
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,6 +65,9 @@
;;
;; As a use-case, you might use this to search for nodes that haven't been
;; worked into the text of the current node.
;;
;; - :include-same-file, when non-nil, includes backlinks from nodes within the
;; same file.
;; Implemented filters:
;;
@@ -190,7 +193,7 @@ their blocks updated automatically."
(-on #'string-lessp (-compose #'downcase #'org-roam-dblocks-link-desc)))
(plisty-define org-roam-dblocks-args
:optional (:id :match :tags :only-missing
:optional (:id :match :tags :only-missing :include-same-file
:name :indentation-column :content :forbidden-ids
:filter :remove :indent))
@@ -300,10 +303,13 @@ predicates.")
(defun org-roam-dblocks--compiled-predicates (params)
(let ((tags (org-tags-filter-parse (org-roam-dblocks-args-tags params)))
(match (org-roam-dblocks--parse-regexp-form (org-roam-dblocks-args-match params)))
(predicate (org-roam-dblocks--compile-filter-fns params)))
(predicate (org-roam-dblocks--compile-filter-fns params))
(file-for-id (org-roam-node-file (org-roam-node-from-id (org-roam-dblocks-args-id params)))))
(lambda (node)
(when (and (not (seq-contains-p (org-roam-dblocks-args-forbidden-ids params)
(org-roam-node-id node)))
(or (org-roam-dblocks-args-include-same-file params)
(not (equal file-for-id (org-roam-node-file node))))
(org-roam-dblocks--eval-regexp-predicate node match)
(org-roam-dblocks--eval-tags-predicate node tags)
(funcall predicate node))