From fb52e080855f1533907fcd831a5d22803773dd63 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Sat, 3 Aug 2024 19:01:07 +0300
Subject: New function: Add dashboard-decks-delete.

* Delete deck at point.
---
 gnosis-dashboard.el | 8 ++++++++
 1 file changed, 8 insertions(+)

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)
-- 
cgit v1.2.3