From 41b5157be52772dadfecd9bbc660e0af2efa4581 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 3 Aug 2024 19:01:36 +0300 Subject: New function: dashboard-decks-view-deck. * View deck notes for DECK-ID. --- gnosis-dashboard.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnosis-dashboard.el') diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index 331e19f..dee5273 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -383,6 +383,12 @@ When called with called with a prefix, unsuspend all notes of deck." (gnosis-dashboard-output-decks) (revert-buffer t t t))) +(defun gnosis-dashboard-decks-view-deck (&optional deck-id) + "View notes of DECK-ID." + (interactive) + (let ((deck-id (or deck-id (string-to-number (tabulated-list-get-id))))) + (gnosis-dashboard-output-notes (gnosis-collect-note-ids :deck deck-id)))) + (defvar-keymap gnosis-dashboard-mode-map :doc "gnosis-dashboard keymap" "q" #'quit-window) -- cgit v1.2.3