Add gnosis-dashboard-output-notes

1 files changed, 6 insertions, 0 deletions

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)