From 68548459a1133b1542638033ec4d9d144efb1379 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 2 Jul 2008 01:49:03 +0000 Subject: Add new SVG and PNG splash images. * etc/images/splash.png: * etc/images/splash.svg: * etc/images/gnus/gnus.png: * etc/images/gnus/gnus.svg: New files. * lisp/startup.el (fancy-splash-head): * lisp/gnus/gnus.el (gnus-group-startup-message): Prefer SVG or PNG image, if available. --- etc/ChangeLog | 10 +- etc/images/gnus/gnus.png | Bin 0 -> 20051 bytes etc/images/gnus/gnus.svg | 110 +++++++++++++++++++ etc/images/splash.png | Bin 0 -> 39572 bytes etc/images/splash.svg | 275 +++++++++++++++++++++++++++++++++++++++++++++++ lisp/ChangeLog | 7 +- lisp/gnus/ChangeLog | 5 + lisp/gnus/gnus.el | 4 +- lisp/startup.el | 18 ++-- 9 files changed, 418 insertions(+), 11 deletions(-) create mode 100644 etc/images/gnus/gnus.png create mode 100644 etc/images/gnus/gnus.svg create mode 100644 etc/images/splash.png create mode 100644 etc/images/splash.svg diff --git a/etc/ChangeLog b/etc/ChangeLog index d43f477fae..0265a8a47f 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,10 @@ +2008-07-02 Francesc Rocher + + * images/splash.png: + * images/splash.svg: + * images/gnus/gnus.png: + * images/gnus/gnus.svg: New files. + 2008-06-25 Kenichi Handa * NEWS: Mention string-to-unibyte. @@ -8,8 +15,7 @@ 2008-06-08 John Paul Wallington - * NEWS: Document that `completion-ignore-case' is nil on - MS-Windows. + * NEWS: Document that `completion-ignore-case' is nil on MS-Windows. 2008-05-19 Tom Tromey diff --git a/etc/images/gnus/gnus.png b/etc/images/gnus/gnus.png new file mode 100644 index 0000000000..f497993d13 Binary files /dev/null and b/etc/images/gnus/gnus.png differ diff --git a/etc/images/gnus/gnus.svg b/etc/images/gnus/gnus.svg new file mode 100644 index 0000000000..c6f208ec38 --- /dev/null +++ b/etc/images/gnus/gnus.svg @@ -0,0 +1,110 @@ + + + + + + + + image/svg+xml + + + gnus + 2008/06/28 + + + Francesc Rocher + + + + + GPL + + + gnus splash image + + + + + + + + + + + diff --git a/etc/images/splash.png b/etc/images/splash.png new file mode 100644 index 0000000000..9d051319c1 Binary files /dev/null and b/etc/images/splash.png differ diff --git a/etc/images/splash.svg b/etc/images/splash.svg new file mode 100644 index 0000000000..0d96bcfb5e --- /dev/null +++ b/etc/images/splash.svg @@ -0,0 +1,275 @@ + + + + + + + + image/svg+xml + + splash + 2008/06/28 + + + Francesc Rocher + + + + + GPL + + + GNU Emacs splash image + + + Based on the original work by Luis Fernandes. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4933601169..13b7ca133c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-07-02 Francesc Rocher + + * startup.el (fancy-splash-head): Prefer SVG or PNG splash image, + if available. + 2008-07-01 Dan Nicolaescu * uniquify.el (uniquify-list-buffers-directory-modes): Add vc-dir-mode. @@ -137,7 +142,7 @@ 2008-06-27 Jason Rumney - * w32-fns.el (top-level): Unconditionally define all charsets. + * w32-fns.el (top-level): Unconditionally define all charsets. 2008-06-27 Alan Mackenzie diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 14d15e7084..10fb4e2e92 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2008-07-02 Francesc Rocher + + * gnus.el (gnus-group-startup-message): Prefer SVG or PNG image, + if available. + 2008-06-25 Stefan Monnier * mm-util.el (mm-with-multibyte, mm-with-unibyte): Remove. diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 5be5a6e1bb..c588d1bd59 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -1015,7 +1015,9 @@ be set in `.emacs' instead." (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)) diff --git a/lisp/startup.el b/lisp/startup.el index ec0619db3b..3b509b57c6 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1375,13 +1375,17 @@ a face or button specification." "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)))) -- cgit v1.2.3