Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Center Emacs logo above text on the splash screen

Browse source 
* lisp/startup.el (fancy-splash-head): Center Emacs logo above
text on the splash and about screen.
This commit is contained in:
Stefan Kangas 2021-09-08 03:57:11 +02:00
parent ff2c4a8353
commit 26d5b510e1
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/startup.el
View file

@ -1788,9 +1788,19 @@ a face or button specification."
(window-width (window-width)))
(when img
(when (> window-width image-width)
;; Center the image in the window.
(insert (propertize " " 'display
`(space :align-to (+ center (-0.5 . ,img)))))
;; Center the image above text.
;; NB. The logo used to be centered in the window, which made
;; it align poorly with the non-centered text on large
;; displays. Arguably it would be better to center both
;; text and image, but this will do for now. -- SK
(let ((text-width 80)
;; The below value chosen to avoid splash screen being
;; visually unbalanced. This needs to be eye-balled.
(adjust-left 3))
(insert (propertize " " 'display
`(space :align-to (+ ,(- (/ text-width 2)
adjust-left)
(-0.5 . ,img))))))
;; Change the color of the XPM version of the splash image
;; so that it is visible with a dark frame background.