diff options
| author | Thanos Apollo <[email protected]> | 2024-08-03 19:09:23 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-08-03 19:09:23 +0300 |
| commit | 3b1ecd789d3d712b08c0555f2181096b482242af (patch) | |
| tree | 7c310c83d730c24bb0a7428bb80e020173aba49b | |
| parent | 3bde664fe2ac12dad1f2e4ba9e34e26ff66fadc6 (diff) | |
New function: dashboard-deck-add.
* Create a new deck.
| -rw-r--r-- | gnosis-dashboard.el | 9 |
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." |