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