From 3b422a8573bd53cca74387ac79851a2022c2e748 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Tue, 20 Feb 2024 13:31:16 +0200
Subject: Add gnosis-dashboard-mode

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

diff --git a/gnosis.el b/gnosis.el
index 0770976..9337848 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1385,6 +1385,20 @@ review."
   "e" #'gnosis-dashboard-edit-note
   "q" #'quit-window)
 
+(define-derived-mode gnosis-dashboard-mode tabulated-list-mode "Gnosis Dashboard"
+  "Major mode for displaying Gnosis dashboard."
+  :keymap gnosis-dashboard-mode-map
+  (interactive)
+  (display-line-numbers-mode 0)
+  (setq tabulated-list-format [("Main" 30 t)
+			       ("Options" 20 t)
+			       ("Answer" 25 t)
+			       ("Tags" 25 t)
+			       ("Suspend" 5 t)])
+  (setq tabulated-list-padding 2
+	tabulated-list-sort-key nil)
+  (tabulated-list-init-header))
+
 (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