diff options
| author | JSDurand <mmemmew@gmail.com> | 2024-04-15 14:48:17 +0800 |
|---|---|---|
| committer | JSDurand <mmemmew@gmail.com> | 2024-04-15 14:48:17 +0800 |
| commit | f5a9a4c85e2d4bc646a868914ad334c5e8af7ea7 (patch) | |
| tree | 584f25733b1f28a927c188f193218b3ab118d057 | |
| parent | 032adb966948964a167cb97a7742ac87c0780c12 (diff) | |
dashboard: refinements
* dashboard.el (dashboard): Put the cursor at the start of the buffer.
(dashboard-mode): Use a dedicated `mode-line-format`.
| -rw-r--r-- | dashboard.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/dashboard.el b/dashboard.el index afedd7c..8dc698f 100644 --- a/dashboard.el +++ b/dashboard.el @@ -133,6 +133,7 @@ If FORCE is non-nil, re-gerenate the dashboard buffer." (propertize "ॐ मणिपद्मे हूम्" 'face (list :height 600)))) + (goto-char (point-min)) (set-buffer-modified-p nil) (read-only-mode 1) (set @@ -153,7 +154,10 @@ The main purpose is to provide a dedicated keymap to access common functionalities more conveniently." (font-lock-mode -1) (setq buffer-undo-list t) - (setq-local cursor-type nil)) + (setq-local cursor-type nil) + (setq-local + mode-line-format + (list "%e" (list :eval (list 'modeline-format-dashboard))))) (let ((m dashboard-mode-map)) (define-key m (vector ?l) #'blist) |