summaryrefslogtreecommitdiff
path: root/gnosis-dashboard.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-08-03 19:09:23 +0300
committerThanos Apollo <[email protected]>2024-08-03 19:09:23 +0300
commit3b1ecd789d3d712b08c0555f2181096b482242af (patch)
tree7c310c83d730c24bb0a7428bb80e020173aba49b /gnosis-dashboard.el
parent3bde664fe2ac12dad1f2e4ba9e34e26ff66fadc6 (diff)
New function: dashboard-deck-add.
* Create a new deck.
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."