Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Mention newcomer theme on "no-mouse" splash screen

Browse source 
* lisp/startup.el (normal-no-mouse-startup-screen): Add a button
to toggle the "newcomers-presets" theme.
This commit is contained in:
Philip Kaludercic 2026-03-05 22:18:16 +01:00
parent 81d2a7a2f5
commit c86b60c214
No known key found for this signature in database
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/startup.el
View file

@ -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")