From 2b58101fdac47d879a0dd7650739169063cbc744 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 3 Aug 2024 18:58:22 +0300 Subject: New function: Add dashboard-tag-view-notes. * Output all notes for tag in dashboard. --- gnosis-dashboard.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnosis-dashboard.el') diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index cab77a1..5b9469e 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -287,6 +287,12 @@ Optionally, use when using multiple months." (new-tags (cl-substitute new-tag tag tags :test #'string-equal))) (gnosis-update 'notes `(= tags ',new-tags) `(= id ,note)))))) +(defun gnosis-dashboard-tag-view-notes (&optional tag) + "View notes for TAG." + (interactive) + (let ((tag (or tag (tabulated-list-get-id)))) + (gnosis-dashboard-output-notes (gnosis-get-tag-notes tag)))) + (defun gnosis-dashboard-output-deck (id) "Output contents from deck with ID, formatted for gnosis dashboard." (cl-loop for item in (append (gnosis-select -- cgit v1.2.3