From 56640df45c10dd285bbcafd1c7331c44c434df12 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 3 Aug 2024 18:53:19 +0300 Subject: New function: dashboard-output-tag. * Output tag name and total notes for tag. --- gnosis-dashboard.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'gnosis-dashboard.el') diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index a4d22a4..6f4a7ca 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -266,6 +266,11 @@ Optionally, use when using multiple months." (when (gnosis-select 'id 'decks `(= id ,id)) (list (number-to-string note-count))))) +(defun gnosis-dashboard-output-tag (tag) + "Output TAG name and total notes." + (let ((notes (gnosis-get-tag-notes tag))) + `(,tag ,(number-to-string (length notes))))) + (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