New look for Emacs-23.0

[Francesc Rocher]

Hi,

Please find attached a new set of splash images for Emacs-23.0. These
are anti-aliased versions of the current ones for Emacs and gnus. The
idea is that as font aliasing is a great improvement for next release,
I think that the visual and aesthetic aspect of Emacs should be also
slightly updated.

'splash.*' images should go to the 'etc/images/' directory; 'gnus.*'
images to 'etc/images/gnus/' ('svg' images are fully scalable and they
include copyright and licensing information; 'png' images were
directly obtained from the respective 'svg' images).

Below there are also a couple of patches, for files 'lisp/startup.el'
and 'lisp/gnus/gnus.el' files. These patches add support for 'svg' and
'png' image formats on those displays that support them. Otherwise,
current images are used ('xpm' or 'bmp' format, depending on the
display capabilities).

============================================================
--- startup.el.~1.493~  2008-06-28 16:48:37.000000000 +0200
+++ startup.el  2008-06-28 16:41:52.000000000 +0200
@@ -1375,13 +1375,17 @@
   "Insert the head part of the splash screen into the current buffer."
   (let* ((image-file (cond ((stringp fancy-splash-image)
                            fancy-splash-image)
-                          ((and (display-color-p)
-                                (image-type-available-p 'xpm))
-                            (if (and (fboundp 'x-display-planes)
-                                     (= (funcall 'x-display-planes) 8))
-                                "splash8.xpm"
-                              "splash.xpm"))
-                            (t "splash.pbm")))
+                          ((display-color-p)
+                                (cond ((image-type-available-p 'svg)
+                                                 "splash.svg")
+                                                ((image-type-available-p 'png)
+                                                 "splash.png")
+                                                ((image-type-available-p 'xpm)
+                                                 (if (and (fboundp
'x-display-planes)
+
   (= (funcall 'x-display-planes) 8))
+                                                               "splash8.xpm"
+                                                        "splash.xpm"))))
+                                       (t "splash.pbm")))
         (img (create-image image-file))
         (image-width (and img (car (image-size img))))
         (window-width (window-width (selected-window))))
============================================================
--- gnus.el.~1.71~      2008-06-18 22:25:47.000000000 +0200
+++ gnus.el     2008-06-28 16:43:40.000000000 +0200
@@ -1010,7 +1010,9 @@
                                    (symbol-value 'image-load-path))
                                   (t load-path)))
            (image (find-image
-                   `((:type xpm :file "gnus.xpm"
+                   `((:type svg :file "gnus.svg")
+                     (:type png :file "gnus.png")
+                     (:type xpm :file "gnus.xpm"
                             :color-symbols
                             (("thing" . ,(car gnus-logo-colors))
                              ("shadow" . ,(cadr gnus-logo-colors))
============================================================


Kind regards,
-- 
Francesc Rocher

splash.svg
Description: image/svg

splash.png
Description: PNG image

gnus.svg
Description: image/svg

gnus.png
Description: PNG image