From: Juanma Barranquero Date: Wed, 2 Jul 2008 01:49:03 +0000 (+0000) Subject: Add new SVG and PNG splash images. X-Git-Tag: emacs-pretest-23.0.90~4355 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68548459a1133b1542638033ec4d9d144efb1379;p=emacs.git 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. --- diff --git a/etc/ChangeLog b/etc/ChangeLog index d43f477fae3..0265a8a47fc 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 00000000000..f497993d132 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 00000000000..c6f208ec385 --- /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 00000000000..9d051319c1b 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 00000000000..0d96bcfb5ec --- /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 49336011699..13b7ca133c0 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 14d15e70842..10fb4e2e928 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 5be5a6e1bb7..c588d1bd593 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 ec0619db3bb..3b509b57c6f 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))))