From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 8 Sep 2021 01:57:11 +0000 (+0200)
Subject: Center Emacs logo above text on the splash screen
X-Git-Tag: emacs-28.0.90~1113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26d5b510e18e5a7729441e078459d0a9df0cbbcf;p=emacs.git

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.
---

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.