diff options
| author | Thanos Apollo <[email protected]> | 2024-08-03 18:59:38 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-08-03 18:59:38 +0300 |
| commit | 2146a0286abf2b6434bfc25cac5707617a27f677 (patch) | |
| tree | 77af4f9942033e7042c83f4b0254aef037288fb4 | |
| parent | 2b58101fdac47d879a0dd7650739169063cbc744 (diff) | |
Add dashboard-tags-mode with custom map.
| -rw-r--r-- | gnosis-dashboard.el | 10 |
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 |