From ce9e35f9cf1e6f8936c30f78fc5f2e5a7f1d1e99 Mon Sep 17 00:00:00 2001
From: Chris Barrett <chris@walrus.cool>
Date: Sat, 24 Sep 2022 19:09:21 +1200
Subject: [PATCH] Teach org-roam-search to respect tags filters

---
 lisp/org-roam-search.el | 69 +++++++++++++++++++++--------------------
 1 file changed, 35 insertions(+), 34 deletions(-)

diff --git a/lisp/org-roam-search.el b/lisp/org-roam-search.el
index fa4050c..69d16b8 100644
--- a/lisp/org-roam-search.el
+++ b/lisp/org-roam-search.el
@@ -195,40 +195,41 @@ QUERY is a PRCE regexp string that will be passed to ripgrep."
                            (not (string-prefix-p "(" input)))
                       (format "(%s)" input)
                     input))))
-  (org-roam-review-display-buffer-and-select
-   (org-roam-review-create-buffer
-    :title (format "Search Results: %s" query)
-    :placeholder "No search results"
-    :buffer-name org-roam-search-buffer-name
-    :nodes
-    (lambda ()
-      (org-roam-search--ripgrep-for-nodes query))
-    :render
-    (-lambda ((&plist :nodes :placeholder :root-section))
-      (cond
-       ((null nodes)
-        (insert placeholder)
-        (newline))
-       (t
-        (pcase-dolist (`(,_file . ,group) (seq-group-by #'org-roam-node-file nodes))
-          (when-let* ((top-node (-max-by (-on #'< #'org-roam-node-level)
-                                         group) )
-                      (node-id (org-roam-node-id top-node))
-                      (heading (org-link-display-format (org-roam-node-title top-node))))
-            (magit-insert-section section (org-roam-node-section node-id t)
-              (magit-insert-heading
-                (concat (propertize heading 'font-lock-face 'magit-section-heading)
-                        " "
-                        (when-let* ((mat (org-roam-review-node-maturity top-node)))
-                          (alist-get mat org-roam-review-maturity-emoji-alist nil nil #'equal))))
-              (oset section parent root-section)
-              (oset section node top-node)
-              (oset section washer
-                    (lambda ()
-                      (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)))))))
+  (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)
+      :placeholder "No search results"
+      :buffer-name org-roam-search-buffer-name
+      :nodes
+      (lambda ()
+        (seq-remove #'org-roam-review-node-ignored-p nodes))
+      :render
+      (-lambda ((&plist :nodes :placeholder :root-section))
+        (cond
+         ((null nodes)
+          (insert placeholder)
+          (newline))
+         (t
+          (pcase-dolist (`(,_file . ,group) (seq-group-by #'org-roam-node-file nodes))
+            (when-let* ((top-node (-max-by (-on #'< #'org-roam-node-level)
+                                           group) )
+                        (node-id (org-roam-node-id top-node))
+                        (heading (org-link-display-format (org-roam-node-title top-node))))
+              (magit-insert-section section (org-roam-node-section node-id t)
+                (magit-insert-heading
+                  (concat (propertize heading 'font-lock-face 'magit-section-heading)
+                          " "
+                          (when-let* ((mat (org-roam-review-node-maturity top-node)))
+                            (alist-get mat org-roam-review-maturity-emoji-alist nil nil #'equal))))
+                (oset section parent root-section)
+                (oset section node top-node)
+                (oset section washer
+                      (lambda ()
+                        (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))))))))
 
 ;;;###autoload
 (defun org-roam-search-tags (query)