master 26d5b51: Center Emacs logo above text on the splash screen

[Stefan Kangas]

branch: master
commit 26d5b510e18e5a7729441e078459d0a9df0cbbcf
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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 58030ca..505d7b8 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.