From 77eeac78b93087198479e01039e0bee68ab31eb9 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Thu, 28 May 2026 15:22:12 +0800 Subject: dashboard: durand-view-map is not loaded before dashboard. * dashboard.el (dashboard-load-view-map): I have to define a wrapper for this key so that dashboard can automatically define the key once the view-conf.el is loaded. --- dashboard.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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 -- cgit v1.2.3-18-g5258