From 046584f86d9fa049a1409f868f00bfdaef0f53ef Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 17 Apr 2024 16:04:48 +0300 Subject: [Feature] gnosis-dashboard: View notes of deck - From gnosis-dashboard of decks, press RET to view all notes of deck --- gnosis.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/gnosis.el b/gnosis.el index f124017..9508286 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1690,7 +1690,7 @@ QUERY: String value," (mapcar 'string-to-number (gnosis-dashboard-deck-note-count id))) when (listp item) do (cl-remove-if (lambda (x) (and (vectorp x) (zerop (length x)))) item) - collect (prin1-to-string item))) + collect (format "%s" item))) (defun gnosis-dashboard-output-decks () "Return deck contents for gnosis dashboard." @@ -1719,7 +1719,11 @@ QUERY: String value," (gnosis-suspend-deck (string-to-number (tabulated-list-get-id))) (gnosis-dashboard-output-decks) - (revert-buffer t t t)))) + (revert-buffer t t t))) + (local-set-key (kbd "RET") #'(lambda () (interactive) + (gnosis-dashboard "notes" + (gnosis-collect-note-ids + :deck (string-to-number (tabulated-list-get-id))))))) (defun gnosis-dashboard-edit-note (&optional dashboard) "Get note id from tabulated list and edit it. -- cgit v1.2.3