diff options
| -rw-r--r-- | dashboard.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/dashboard.el b/dashboard.el index 5cd4255..b2ddede 100644 --- a/dashboard.el +++ b/dashboard.el @@ -81,7 +81,7 @@ common functionalities more conveniently.") (define-key dashboard-mode-map (vector ?o) #'durand-open-object) (define-key dashboard-mode-map (vector ?g) #'gnus) (define-key dashboard-mode-map (vector ?a) #'dashboard-org-agenda) -(define-key dashboard-mode-map (vector ?c) #'dashboard-org-capture) +(define-key dashboard-mode-map (vector ?c) #'dashboard-clear) ;; load Org if not loaded already @@ -109,6 +109,15 @@ calls `%s' otherwise." (dashboard-preload org-capture "org-conf.el") (dashboard-preload org-store-link "org-conf.el") +;; ibuffer clear + +(defun dashboard-clear () + "Run `durand-ibuffer-clear' while in the dashboard." + (interactive) + (let ((inhibit-message t)) + (ibuffer) + (durand-ibuffer-clear))) + ;;; Modify killing buffers ;;;###autoload |