summaryrefslogtreecommitdiff
path: root/gnosis-dashboard.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnosis-dashboard.el')
-rw-r--r--gnosis-dashboard.el8
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)