From e692a9de93f5a6afd8e97cc674b1cd8339d9b581 Mon Sep 17 00:00:00 2001
From: Laurens Miers <laurensmiers@protonmail.com>
Date: Tue, 7 Jan 2025 22:05:46 +0100
Subject: [PATCH] add(org-roam): custom command to filter on a tag

---
 config.org | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/config.org b/config.org
index fd17ab9..4b14626 100644
--- a/config.org
+++ b/config.org
@@ -1034,6 +1034,22 @@ Preserve indentation in SRC blocks
 
 * Custom
 
+** Org-roam
+
+Inspired by https://github.com/org-roam/org-roam/wiki/User-contributed-Tricks#filter-by-a-tag .
+
+#+BEGIN_SRC emacs-lisp
+(defun myrmi/org-roam-node-find-tag-filter ()
+  "Select a single tag from list and filter `org-roam-node' by it."
+  (interactive)
+  (let ((tag (car (completing-read-multiple "Tag: "
+                                            (org-roam-tag-completions)))))
+    (org-roam-node-find nil nil
+                        (lambda (node)
+                          (member tag
+                                  (org-roam-node-tags node))))))
+#+END_SRC
+
 ** Sudo current buffer
 
 #+BEGIN_SRC emacs-lisp