diff options
| author | Thanos Apollo <[email protected]> | 2024-08-03 19:01:07 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-08-03 19:01:07 +0300 |
| commit | fb52e080855f1533907fcd831a5d22803773dd63 (patch) | |
| tree | e84b8f274a53d1d30a5f87edbdc546763b06b220 /gnosis-dashboard.el | |
| parent | cd0608d19e61d33e39379ca68512b57798a4bec3 (diff) | |
New function: Add dashboard-decks-delete.
* Delete deck at point.
Diffstat (limited to 'gnosis-dashboard.el')
| -rw-r--r-- | gnosis-dashboard.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index c3dd1d1..331e19f 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -375,6 +375,14 @@ When called with called with a prefix, unsuspend all notes of deck." (gnosis-dashboard-output-decks) (revert-buffer t t t))) +(defun gnosis-dashboard-decks-delete (&optional deck-id) + "Delete DECK-ID." + (interactive) + (let ((deck-id (or deck-id (string-to-number (tabulated-list-get-id))))) + (gnosis-delete-deck deck-id) + (gnosis-dashboard-output-decks) + (revert-buffer t t t))) + (defvar-keymap gnosis-dashboard-mode-map :doc "gnosis-dashboard keymap" "q" #'quit-window) |