unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* New look for Emacs-23.0
@ 2008-06-28 15:46 Francesc Rocher
  2008-06-30 10:12 ` Juanma Barranquero
                   ` (4 more replies)
  0 siblings, 5 replies; 13+ messages in thread
From: Francesc Rocher @ 2008-06-28 15:46 UTC (permalink / raw)
  To: emacs-devel

[-- Attachment #1: Type: text/plain, Size: 3349 bytes --]

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

[-- Attachment #2: splash.svg --]
[-- Type: image/svg+xml, Size: 31974 bytes --]

[-- Attachment #3: splash.png --]
[-- Type: image/png, Size: 39572 bytes --]

[-- Attachment #4: gnus.svg --]
[-- Type: image/svg+xml, Size: 15626 bytes --]

[-- Attachment #5: gnus.png --]
[-- Type: image/png, Size: 20051 bytes --]

^ permalink raw reply	[flat|nested] 13+ messages in thread

end of thread, other threads:[~2008-07-18 14:25 UTC | newest]

Thread overview: 13+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-06-28 15:46 New look for Emacs-23.0 Francesc Rocher
2008-06-30 10:12 ` Juanma Barranquero
2008-06-30 10:22   ` Werner LEMBERG
2008-06-30 10:24     ` Miles Bader
2008-07-01 22:30 ` Leo
2008-07-01 23:35 ` Chong Yidong
2008-07-03 19:39 ` Dmitry Dzhus
2008-07-03 21:55 ` Stefan Monnier
2008-07-07 21:28   ` Francesc Rocher
2008-07-08  1:24     ` Stefan Monnier
2008-07-16  9:56       ` Francesc Rocher
2008-07-16 16:22         ` Stefan Monnier
2008-07-18 14:25           ` Juanma Barranquero

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).