diff options
author | Leon Rische <leon.rische@me.com> | 2021-03-07 18:08:11 +0100 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2021-03-07 18:08:11 +0100 |
commit | 9694ae644851d42365de27e5bdfb690b792909d1 (patch) | |
tree | 692753c608ee88b5969b4d24de1a6233621561d7 /org-fc-dashboard.el | |
parent | 38412f4a2fe4d05fbb5a790e778b233438d6c840 (diff) |
Fix dashboard revert
Diffstat (limited to 'org-fc-dashboard.el')
-rw-r--r-- | org-fc-dashboard.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/org-fc-dashboard.el b/org-fc-dashboard.el index 38a7f8e..cf25056 100644 --- a/org-fc-dashboard.el +++ b/org-fc-dashboard.el @@ -256,16 +256,20 @@ environment without svg support." (interactive) (org-fc-review org-fc-dashboard-context)) +(defun org-fc-dashboard-revert (_ignore-auto _noconfirm) + "Reload the current dashboard." + (interactive) + (org-fc-dashboard-view org-fc-dashboard-context)) + (defvar org-fc-dashboard-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "r") 'org-fc-dashboard-review) (define-key map (kbd "q") 'quit-window) - (define-key map (kbd "G") 'org-fc-dashboard-view) map)) (define-derived-mode org-fc-dashboard-mode special-mode "org-fc main" "Major mode providing an overview of the flashcard system" - (set (make-local-variable 'revert-buffer-function) #'org-fc-dashboard-view) + (set (make-local-variable 'revert-buffer-function) #'org-fc-dashboard-revert) (setq-local cursor-type nil)) ;;;###autoload |