jao-org-notes: open-tags -> consult-tags

1 files changed, 12 insertions, 0 deletions

diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el
index 59a3c60..482f68a 100644
--- a/attic/elisp/misc.el
+++ b/attic/elisp/misc.el
@@ -808,6 +808,18 @@
 
 (pulsar-global-mode 1)
 ;;; snippets
+(defun jao-org-notes-open-tags ()
+  "Search for a note file, matching all tags with completion."
+  (let* ((tags (jao-org-notes--read-tags))
+         (fn (lambda ()
+               (prog1 (jao-org-notes--find-tag (car tags))
+                 (setq tags (cdr tags)))))
+         (res (funcall fn)))
+    (while (and res tags) (setq res (seq-intersection res (funcall fn))))
+    (unless res (user-error "No notes found"))
+    (when-let (f (completing-read "Select file: " (mapcar #'car res)))
+      (find-file (cadr (assoc f res))))))
+
 (defun jao-sway-run-or-focus-tidal ()
   (interactive)
   (if (jao-shell-running-p "tidal-hifi")