diff options
| -rw-r--r-- | dashboard.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/dashboard.el b/dashboard.el index 988cd8c..ae2a081 100644 --- a/dashboard.el +++ b/dashboard.el @@ -159,6 +159,8 @@ common functionalities more conveniently." mode-line-format (list "%e" (list :eval (list 'modeline-format-dashboard))))) +() + (let ((m dashboard-mode-map)) (define-key m (vector ?l) #'blist) (define-key m (vector ?L) #'rlist-list-registers) @@ -169,6 +171,7 @@ common functionalities more conveniently." (define-key m (vector ?o) #'durand-open-object) (define-key m (vector ?g) #'gnus) (define-key m (vector ?h) #'durand-ibuffer) + (define-key m (vector ?e) #'eshell) (define-key m (vector ?f) #'find-file) (define-key m (vector ?F) #'find-file-other-tab) (define-key m (vector ?a) #'dashboard-org-agenda) @@ -177,8 +180,17 @@ common functionalities more conveniently." (define-key m (vector ?p) #'project-switch-project) (define-key m (vector ?x) #'execute-extended-command) (define-key m (vector ?w) #'durand-wifi-toggle) + (define-key m (vector ?v) #'dashboard-load-view-map) (define-key m (vector ?n) #'novel)) +;;; Define a wrapper for loading view-conf if needed. + +(defun dashboard-load-view-map () + "Load view-conf.el and then change the binding in dashboard mode." + (interactive) + (load-config "view-conf.el") + (define-key dashboard-mode-map (vector ?v) durand-view-map)) + ;;; Define novel command as a wrapper, if not already loaded (cond |