awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-02 14:53:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Teach org-roam-search to respect tags filters

Browse Source
This commit is contained in:
Chris Barrett
2022-09-24 19:09:21 +12:00
parent d8db5ccf84
commit ce9e35f9cf
1 changed files with 35 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-roam-search.el
View File

@@ -195,6 +195,7 @@ QUERY is a PRCE regexp string that will be passed to ripgrep."
(not (string-prefix-p "(" input)))
(format "(%s)" input)
input))))
(let ((nodes (org-roam-search--ripgrep-for-nodes query)))
(org-roam-review-display-buffer-and-select
(org-roam-review-create-buffer
:title (format "Search Results: %s" query)
@@ -202,7 +203,7 @@ QUERY is a PRCE regexp string that will be passed to ripgrep."
:buffer-name org-roam-search-buffer-name
:nodes
(lambda ()
(org-roam-search--ripgrep-for-nodes query))
(seq-remove #'org-roam-review-node-ignored-p nodes))
:render
(-lambda ((&plist :nodes :placeholder :root-section))
(cond
@@ -228,7 +229,7 @@ QUERY is a PRCE regexp string that will be passed to ripgrep."
(org-roam-review-insert-preview top-node)
(org-roam-search--highlight-matches query)
(magit-section-maybe-remove-visibility-indicator section))))))
(org-roam-search--highlight-matches query)))))))
(org-roam-search--highlight-matches query))))))))
;;;###autoload
(defun org-roam-search-tags (query)