From de2068a23f6f60e48311b15e6829080b87aaaf9b Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Tue, 20 Feb 2024 13:30:05 +0200
Subject: Add gnosis-dashboard-output-notes

---
 gnosis.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'gnosis.el')

diff --git a/gnosis.el b/gnosis.el
index 1ef8b0b..006b4c2 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1367,6 +1367,12 @@ review."
            else
            collect (prin1-to-string item)))
 
+(defun gnosis-dashboard-output-notes ()
+  "Return note contents for gnosis dashboard."
+  (let ((max-id (apply 'max (gnosis-select 'id 'notes '1=1 t))))
+    (cl-loop for id from 1 to max-id collect
+	     (list (number-to-string id) (vconcat (gnosis-dashboard-output-note id))))))
+
 (defun gnosis-db-init ()
   "Create gnosis essential directories & database."
   (unless (length= (emacsql gnosis-db [:select name :from sqlite-master :where (= type table)]) 6)
-- 
cgit v1.2.3