diff options
| -rw-r--r-- | gnosis-dashboard.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gnosis-dashboard.el b/gnosis-dashboard.el index 9b7f4c8..528c570 100644 --- a/gnosis-dashboard.el +++ b/gnosis-dashboard.el @@ -67,6 +67,19 @@ '((t :foreground "#ff0a6a" :weight bold)) "My custom face for both light and dark backgrounds.") +(defun gnosis-dashboard-return (&optional current-values) + "Return to dashboard for CURRENT-VALUES." + (interactive) + (let* ((current-values (or current-values gnosis-dashboard--current)) + (type (plist-get current-values :type)) + (ids (plist-get current-values :ids))) + (cond ((eq type 'notes) + (gnosis-dashboard-output-notes ids)) + ((eq type 'decks ) + (gnosis-dashboard-output-decks)) + ((eq type 'tags ) + (gnosis-dashboard-output-tags))))) + (defun gnosis-dashboard-generate-dates (&optional year) "Return a list of all dates (year month day) for YEAR." (let* ((current-year (or (decoded-time-year (decode-time)) year)) |