From f5a9a4c85e2d4bc646a868914ad334c5e8af7ea7 Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Mon, 15 Apr 2024 14:48:17 +0800
Subject: dashboard: refinements

* dashboard.el (dashboard): Put the cursor at the start of the buffer.

(dashboard-mode): Use a dedicated `mode-line-format`.
---
 dashboard.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3-18-g5258