From 248bd3876235f7c97021c5dd3c5e825d295676fb Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 4 Jan 2024 09:40:55 +0200 Subject: Add gnosis-due-tags --- gnosis.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/gnosis.el b/gnosis.el index f84b34a..47a5d33 100644 --- a/gnosis.el +++ b/gnosis.el @@ -710,7 +710,15 @@ if DUE is t, return only due notes" when (not (gnosis-suspended-p note)) collect note))) -(defun gnosis-tag-prompt (&optional prompt match) +(defun gnosis-due-tags () + "Return a list of due note tags." + (let ((due-notes (gnosis-review-get-due-notes))) + (cl-remove-duplicates + (cl-mapcan (lambda (note-id) + (gnosis-get-note-tags note-id)) + due-notes) + :test 'equal))) + "PROMPT user to select tags, until they enter `q'. Prompt user to select tags, generated from `gnosis-get-tags--unique'. -- cgit v1.2.3