diff options
Diffstat (limited to 'attic/elisp')
-rw-r--r-- | attic/elisp/misc.el | 12 |
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") |