diff options
| -rw-r--r-- | gnosis-dashboard.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index d0bb93c..96d4ffe 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -161,7 +161,7 @@ Optionally, use when using multiple months." (cl-incf month)))) ;; TODO: Create a dashboard utilizing widgets -(defun gnosis-dashboard-test () +(defun gnosis-dashboard () "Test function to create an editable field and a search button." (interactive) (let ((buffer-name "*Gnosis Dashboard*")) @@ -200,7 +200,8 @@ Optionally, use when using multiple months." (use-local-map widget-keymap) (widget-setup)) (pop-to-buffer-same-window buffer) - (goto-char (point-min))))) + (goto-char (point-min)) + (gnosis-dashboard-transient)))) (defun gnosis-dashboard-output-note (id) "Output contents for note with ID, formatted for gnosis dashboard." @@ -324,7 +325,7 @@ DASHBOARD: Dashboard to return to after editing." tabulated-list-sort-key nil)) ;;;###autoload -(cl-defun gnosis-dashboard (&optional dashboard-type (note-ids nil)) +(cl-defun gnosis--dashboard (&optional dashboard-type (note-ids nil)) "Display gnosis dashboard. NOTE-IDS: List of note ids to display on dashboard. When nil, prompt @@ -349,5 +350,10 @@ DASHBOARD-TYPE: either 'Notes' or 'Decks' to display the respective dashboard." (tabulated-list-print t))) +(transient-define-prefix gnosis-dashboard-transient () + "Transient buffer for gnosis dashboard interactions." + [["Actions" ("r" "Start Review" gnosis-review)] + ["Dashboard" ("d" "Dashboard" gnosis--dashboard)]]) + (provide 'gnosis-dashboard) ;;; gnosis-dashboard.el ends here |