summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-08-03 19:07:41 +0300
committerThanos Apollo <[email protected]>2024-08-03 19:07:41 +0300
commitdda4e42b49dc44c8aeef2bdfcc33698d71fd4434 (patch)
tree6de150aa80ce4cbacec71287364f85cdb5e5be93
parent8374f9b081fac7477194d92974bdf47c9cc4ba94 (diff)
Add gnosis-dashboard-decks-mode with custom map.
-rw-r--r--gnosis-dashboard.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el
index e1fc1c3..2813cc2 100644
--- a/gnosis-dashboard.el
+++ b/gnosis-dashboard.el
@@ -331,6 +331,17 @@ Optionally, use when using multiple months."
do (cl-remove-if (lambda (x) (and (vectorp x) (zerop (length x)))) item)
collect (format "%s" item)))
+(defvar-keymap gnosis-dashboard-decks-mode-map
+ "e" #'gnosis-dashboard-edit-deck
+ "a" #'gnosis-dashboard-decks-add
+ "s" #'gnosis-dashboard-decks-suspend-deck
+ "d" #'gnosis-dashboard-decks-delete
+ "RET" #'gnosis-dashboard-decks-view-deck)
+
+(define-minor-mode gnosis-dashboard-decks-mode
+ "Minor mode for deck output."
+ :keymap gnosis-dashboard-decks-mode-map)
+
(defun gnosis-dashboard-output-decks ()
"Return deck contents for gnosis dashboard."
(pop-to-buffer-same-window "*gnosis-dashboard*")