From 3b1ecd789d3d712b08c0555f2181096b482242af Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 3 Aug 2024 19:09:23 +0300 Subject: New function: dashboard-deck-add. * Create a new deck. --- gnosis-dashboard.el | 9 +++++---- 1 file 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." -- cgit v1.2.3