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 --- lib/doc/jao-org-notes.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'lib/doc') diff --git a/lib/doc/jao-org-notes.el b/lib/doc/jao-org-notes.el index a91971e..2a166e9 100644 --- a/lib/doc/jao-org-notes.el +++ b/lib/doc/jao-org-notes.el @@ -141,18 +141,12 @@ (when-let (f (jao-org-notes--consult-rg "Search notes: ")) (find-file f))) -(defun jao-org-notes-open-tags () +(defun jao-org-notes-consult-tags () "Search for a note file, matching all tags with completion." (interactive) (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)))))) + (init (concat "^..tags: " (mapconcat #'identity tags " ")))) + (consult-ripgrep jao-org-notes-dir init))) (defun jao-org-notes-create () "Create a new note file, matching tags and titles with completion." -- cgit v1.2.3