From 8c5de749f6ed6b99df314df6bc6d72f050fc55b2 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 16 Feb 2024 22:41:26 +0000 Subject: jao-org-notes: open-tags -> consult-tags --- attic/elisp/misc.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'attic') 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") -- cgit v1.2.3