fix(dashboard): trim padding newlines and reset window-start on open

The dashboard often opened already scrolled: content sat partly above the visible window with empty lines stranded at the bottom. There were two causes. The startupify list inserted five padding newlines that pushed the content past one screenful, and cj/dashboard-only moved point to point-min without resetting window-start, so a previously-scrolled view leaked into the next display.

I trimmed the padding to one newline after the banner title and one before the items, and added a set-window-start to point-min in cj/dashboard-only so the view always starts at the top. A characterization test locks the window-start reset.

1 files changed, 60 insertions, 0 deletions

diff --git a/tests/test-dashboard-config.el b/tests/test-dashboard-config.el
new file mode 100644
index 00000000..2dbcd4f4
--- /dev/null
+++ b/tests/test-dashboard-config.el
@@ -0,0 +1,60 @@
+;;; test-dashboard-config.el --- Tests for dashboard-config -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Exercises `cj/dashboard-only', the F1-bound entry point that displays the
+;; *dashboard* buffer and resets the view to the top.  The fix this test
+;; locks in: window-start is forced to point-min, not left wherever a prior
+;; view had scrolled to.  Without that, a dashboard buffer taller than the
+;; window opens with content above the visible area.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(add-to-list 'load-path (expand-file-name "tests" user-emacs-directory))
+(setq load-prefer-newer t)
+
+;; Stub package-level deps that dashboard-config pulls transitively.
+(declare-function cj/kill-all-other-buffers-and-windows "undead-buffers")
+(unless (fboundp 'cj/kill-all-other-buffers-and-windows)
+  (defun cj/kill-all-other-buffers-and-windows () nil))
+(unless (fboundp 'cj/make-buffer-undead)
+  (defun cj/make-buffer-undead (_name) nil))
+
+(require 'dashboard-config)
+
+(ert-deftest test-dashboard-only-resets-window-start-to-point-min ()
+  "Normal: `cj/dashboard-only' forces `window-start' to `point-min'.
+
+The dashboard buffer can be taller than the selected window's height
+(banner + 3 navigator rows + sections).  A prior call that left the
+window scrolled into the buffer's middle must not leak into the next
+display -- point should land at the top AND the window's view should
+start at the top.  Without `set-window-start', batch redisplay leaves
+`window-start' wherever it was set."
+  (let ((dash (get-buffer-create "*dashboard*")))
+    (unwind-protect
+        (progn
+          (with-current-buffer dash
+            (let ((inhibit-read-only t))
+              (erase-buffer)
+              (insert (make-string 5000 ?x))
+              (insert "\n")))
+          (save-window-excursion
+            (switch-to-buffer dash)
+            (let ((win (selected-window)))
+              ;; Simulate a prior view that scrolled into the middle.
+              (set-window-start win 1000)
+              (should (= (window-start win) 1000))
+              (cl-letf (((symbol-function 'cj/kill-all-other-buffers-and-windows)
+                         #'ignore))
+                (cj/dashboard-only))
+              (should (= (window-start win) (point-min)))
+              (should (= (point) (point-min))))))
+      (when (buffer-live-p dash)
+        (kill-buffer dash)))))
+
+(provide 'test-dashboard-config)
+;;; test-dashboard-config.el ends here