From 28dae3bfeb6a7d6ba751adc31a6fb540935cb072 Mon Sep 17 00:00:00 2001 From: Laurens Miers Date: Tue, 7 Jan 2025 22:05:29 +0100 Subject: [PATCH 1/2] add(org-roam): don't limit tags to 10 chars --- config.org | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/config.org b/config.org index 7600947..fd17ab9 100644 --- a/config.org +++ b/config.org @@ -957,7 +957,7 @@ Preserve indentation in SRC blocks (org-roam-completion-everywhere t) :config (org-roam-setup) - (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag))) + (setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags}" 'face 'org-tag))) (org-roam-db-autosync-mode) ;; Add todo lists to org-agenda (custom-set-variables '(org-agenda-files (directory-files-recursively org-roam-directory "todo\\.org$"))) From e692a9de93f5a6afd8e97cc674b1cd8339d9b581 Mon Sep 17 00:00:00 2001 From: Laurens Miers Date: Tue, 7 Jan 2025 22:05:46 +0100 Subject: [PATCH 2/2] 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