Re: gnus-picons update

[William Perry <wmperry@aventail.com>]

Wesley Hardaker writes:
>Hans de Graaff <J.J.deGraaff@twi.tudelft.nl> writes:
>
>> What is irritating about this is that the initial line is just
>> text. As soon as the icons get inserted this changes the line height,
>> and shifts all other text down. Annoying. How about inserting a small
>> blank xpm of the proper height immediately, to reserve the line
>> height.
>
>I've thought about this...  However, this would slow it down more and
>additionally require reading yet one more image file...

  You would only need to do this once at startup.  And you can build a
pixmap pretty easily in memory.  I've got the code to do it for Emacs-W3.
Try something like:

(defun create-blank-pixmap (width height)
  (let ((retval
	 (concat "/* XPM */\n"
		 "static char *pixmap[] = {\n"
		 ;;"/* width height num_colors chars_per_pixel */\n"
		 (format "\"    %d   %d   2     1\",\n" width height)
		 ;;"/* colors */\n"
		 "\". c #000000 s background\",\n"
		 "\"# c #FFFFFF s foreground\",\n"
		 ;;"/* pixels /*\n"
		 ))
	(line (concat "\"" (make-string width ?.) "\"")))
    (while (/= 1 height)
      (setq retval (concat retval line ",\n")
	    height (1- height)))
    (concat retval line "\n};")))

Then: 
 (make-glyph (vector 'xpm :data (create-blank-pixmap 40 40))))

 Wheee.

-Bill P.