awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-04 15:03:32 -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))) (not (string-prefix-p "(" input)))
(format "(%s)" input) (format "(%s)" input)
input)))) input))))
(let ((nodes (org-roam-search--ripgrep-for-nodes query)))
(org-roam-review-display-buffer-and-select (org-roam-review-display-buffer-and-select
(org-roam-review-create-buffer (org-roam-review-create-buffer
:title (format "Search Results: %s" query) :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 :buffer-name org-roam-search-buffer-name
:nodes :nodes
(lambda () (lambda ()
(org-roam-search--ripgrep-for-nodes query)) (seq-remove #'org-roam-review-node-ignored-p nodes))
:render :render
(-lambda ((&plist :nodes :placeholder :root-section)) (-lambda ((&plist :nodes :placeholder :root-section))
(cond (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-review-insert-preview top-node)
(org-roam-search--highlight-matches query) (org-roam-search--highlight-matches query)
(magit-section-maybe-remove-visibility-indicator section)))))) (magit-section-maybe-remove-visibility-indicator section))))))
(org-roam-search--highlight-matches query))))))) (org-roam-search--highlight-matches query))))))))
;;;###autoload ;;;###autoload
(defun org-roam-search-tags (query) (defun org-roam-search-tags (query)