feat(dashboard): theme-test layout for live face inspection

The dashboard's startupify-list, items, and item-generators move from inline :custom values into named defconsts, so the layout-toggle commands can reuse them.

cj/dashboard-show-theme-test-layout swaps in a layout that enables init-info, the footer, and a deliberately empty section, so the live dashboard exposes faces the normal layout hides, dashboard-no-items-face among them. cj/dashboard-restore-configured-layout returns to the normal layout. Both refresh the buffer in place.

1 files changed, 100 insertions, 17 deletions

diff --git a/modules/dashboard-config.el b/modules/dashboard-config.el
index 3b8a3c5ca..0bda14e96 100644
--- a/modules/dashboard-config.el
+++ b/modules/dashboard-config.el
@@ -66,6 +66,101 @@
 Positive values shift left, negative values shift right.
 Adjust this if the title doesn't appear centered under the banner image.")
 
+(defconst cj/dashboard--configured-startupify-list
+  '(dashboard-insert-banner
+    dashboard-insert-banner-title
+    dashboard-insert-newline
+    dashboard-insert-navigator
+    ;; dashboard-insert-init-info  ; Disabled: package count and startup time
+    dashboard-insert-newline
+    dashboard-insert-items)
+  "Normal dashboard sections for this configuration.")
+
+(defconst cj/dashboard--theme-test-startupify-list
+  '(dashboard-insert-banner
+    dashboard-insert-banner-title
+    dashboard-insert-newline
+    dashboard-insert-navigator
+    dashboard-insert-newline
+    dashboard-insert-init-info
+    dashboard-insert-newline
+    dashboard-insert-items
+    dashboard-insert-newline
+    dashboard-insert-footer)
+  "Dashboard sections used while checking theme face coverage.")
+
+(defconst cj/dashboard--configured-items
+  '((projects . 5)
+    (bookmarks . 5)
+    (recents . 10))
+  "Normal dashboard item sections for this configuration.")
+
+(defconst cj/dashboard--theme-test-items
+  '((projects . 5)
+    (bookmarks . 5)
+    (recents . 10)
+    (theme-test-empty . 1))
+  "Dashboard item sections used while checking theme face coverage.")
+
+(defconst cj/dashboard--configured-item-generators
+  '((projects . dashboard-insert-projects)
+    (bookmarks . dashboard-insert-bookmarks)
+    (recents . dashboard-insert-recents))
+  "Normal dashboard item generators for this configuration.")
+
+;; Forward declarations: these are dashboard's own variables, assigned by the
+;; layout-toggle commands below before the dashboard package loads.
+(defvar dashboard-startupify-list)
+(defvar dashboard-item-generators)
+(defvar dashboard-items)
+(defvar dashboard-set-footer)
+
+(defun cj/dashboard-insert-theme-test-empty (_list-size)
+  "Insert an empty Dashboard section to display `dashboard-no-items-face'."
+  (dashboard-insert-section
+   "No Items:"
+   nil
+   1
+   'theme-test-empty
+   nil
+   #'ignore
+   ""))
+
+(defconst cj/dashboard--theme-test-item-generators
+  (append cj/dashboard--configured-item-generators
+          '((theme-test-empty . cj/dashboard-insert-theme-test-empty)))
+  "Dashboard item generators used while checking theme face coverage.")
+
+(defun cj/dashboard-refresh ()
+  "Refresh and show the dashboard buffer, keeping the window at the top."
+  (when (fboundp 'dashboard-refresh-buffer)
+    (dashboard-refresh-buffer))
+  (when (get-buffer "*dashboard*")
+    (switch-to-buffer "*dashboard*")
+    (goto-char (point-min))
+    (set-window-start (selected-window) (point-min))))
+
+(defun cj/dashboard-restore-configured-layout ()
+  "Restore the normal dashboard layout after theme-face testing."
+  (interactive)
+  (setq dashboard-startupify-list cj/dashboard--configured-startupify-list)
+  (setq dashboard-item-generators cj/dashboard--configured-item-generators)
+  (setq dashboard-items cj/dashboard--configured-items)
+  (setq dashboard-set-footer nil)
+  (cj/dashboard-refresh))
+
+(defun cj/dashboard-show-theme-test-layout ()
+  "Show all Dashboard elements useful for live theme inspection.
+This temporarily enables init info, footer, and a deliberately empty section so
+the live dashboard exposes `dashboard-no-items-face'.  Use
+`cj/dashboard-restore-configured-layout' to return to the normal layout."
+  (interactive)
+  (setq dashboard-startupify-list cj/dashboard--theme-test-startupify-list)
+  (setq dashboard-item-generators cj/dashboard--theme-test-item-generators)
+  (setq dashboard-items cj/dashboard--theme-test-items)
+  (setq dashboard-set-footer t)
+  (cj/dashboard-refresh))
+
 ;; --------------------------- Launcher Definitions ----------------------------
 ;; Single source of truth for the dashboard launchers.  Both the navigator
 ;; icon rows and the dashboard-mode-map keybindings derive from this table, so
@@ -159,23 +254,11 @@ system-defaults) are preserved rather than overwritten."
   :custom
   (dashboard-projects-backend 'projectile)
 
-  (dashboard-item-generators
-   '((projects . dashboard-insert-projects)
-     (bookmarks . dashboard-insert-bookmarks)
-     (recents . dashboard-insert-recents)))
-
-  (dashboard-items '((projects . 5)
-                     (bookmarks . 5)
-                     (recents . 10)))
-
-  (dashboard-startupify-list
-   '(dashboard-insert-banner
-     dashboard-insert-banner-title
-     dashboard-insert-newline
-     dashboard-insert-navigator
-     ;; dashboard-insert-init-info  ; Disabled: package count and startup time
-     dashboard-insert-newline
-     dashboard-insert-items))
+  (dashboard-item-generators cj/dashboard--configured-item-generators)
+
+  (dashboard-items cj/dashboard--configured-items)
+
+  (dashboard-startupify-list cj/dashboard--configured-startupify-list)
   :config
 
   ;; == banner