New function: dashboard-deck-add.

* Create a new deck.

1 files changed, 5 insertions, 4 deletions

diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el
index acd3b01..64a4783 100644
--- a/gnosis-dashboard.el
+++ b/gnosis-dashboard.el
@@ -358,11 +358,12 @@ Optionally, use  when using multiple months."
   (tabulated-list-print t)
   (setf gnosis-dashboard--current `(:type decks :ids ,(gnosis-select 'id 'decks '1=1 t))))
 
+(defun gnosis-dashboard-decks-add ()
+  "Add deck & refresh."
   (interactive)
-  (let ((id (tabulated-list-get-id))
-	(dashboard (or dashboard "notes")))
-    (gnosis-edit-note (string-to-number id) nil dashboard)
-    (message "Editing note with id: %s" id)))
+  (gnosis-add-deck (read-string "Deck name: "))
+  (gnosis-dashboard-output-decks)
+  (revert-buffer t t t))
 
 (defun gnosis-dashboard-edit-deck ()
   "Get deck id from tabulated list and edit it."