summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-08-03 18:59:38 +0300
committerThanos Apollo <[email protected]>2024-08-03 18:59:38 +0300
commit2146a0286abf2b6434bfc25cac5707617a27f677 (patch)
tree77af4f9942033e7042c83f4b0254aef037288fb4
parent2b58101fdac47d879a0dd7650739169063cbc744 (diff)
Add dashboard-tags-mode with custom map.
-rw-r--r--gnosis-dashboard.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el
index 5b9469e..bb86dd0 100644
--- a/gnosis-dashboard.el
+++ b/gnosis-dashboard.el
@@ -293,6 +293,16 @@ Optionally, use when using multiple months."
(let ((tag (or tag (tabulated-list-get-id))))
(gnosis-dashboard-output-notes (gnosis-get-tag-notes tag))))
+(defvar-keymap gnosis-dashboard-tags-mode-map
+ "RET" #'gnosis-dashboard-tag-view-notes
+ "e" #'gnosis-dashboard-rename-tag
+ "r" #'gnosis-dashboard-rename-tag
+ "g" #'gnosis-dashboard-return)
+
+(define-minor-mode gnosis-dashboard-tags-mode
+ "Mode for dashboard output of tags."
+ :keymap gnosis-dashboard-tags-mode-map)
+
(defun gnosis-dashboard-output-deck (id)
"Output contents from deck with ID, formatted for gnosis dashboard."
(cl-loop for item in (append (gnosis-select