From c86b60c2140c2abff3c4cb77423cbec1332e6694 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Thu, 5 Mar 2026 22:18:16 +0100 Subject: [PATCH] Mention newcomer theme on "no-mouse" splash screen * lisp/startup.el (normal-no-mouse-startup-screen): Add a button to toggle the "newcomers-presets" theme. --- lisp/startup.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index ebe08ea8764..ed22fd3cdcd 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2566,6 +2566,31 @@ If you have no Meta key, you may instead type ESC followed by the character.)")) (get-scratch-buffer-create))) 'follow-link t) (insert "\n") + + (insert "New to Emacs? Consider enabling ") + (insert-button "newcomer presets" + 'action (lambda (_button) + (info "(emacs) Newcomers Theme")) + 'follow-link t) + (insert ": ") + (insert-button (if (custom-theme-enabled-p 'newcomers-presets) + "Disable" + "Enable") + 'action (lambda (button) + (let ((inhibit-read-only t)) + (replace-region-contents + (button-start button) + (button-end button) + (pcase (button-label button) + ("Enable" + (load-theme 'newcomers-presets) + "Disable") + ("Disable" + (disable-theme 'newcomers-presets) + "Enable")))))) + + (insert "\n") + (save-restriction (narrow-to-region (point) (point)) (insert "\n" (emacs-version) "\n")