From 26d5b510e18e5a7729441e078459d0a9df0cbbcf Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 8 Sep 2021 03:57:11 +0200 Subject: [PATCH] Center Emacs logo above text on the splash screen * lisp/startup.el (fancy-splash-head): Center Emacs logo above text on the splash and about screen. --- lisp/startup.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 58030ca06af..505d7b83f48 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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. -- 2.39.2