From dda4e42b49dc44c8aeef2bdfcc33698d71fd4434 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 3 Aug 2024 19:07:41 +0300 Subject: Add gnosis-dashboard-decks-mode with custom map. --- gnosis-dashboard.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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*") -- cgit v1.2.3