Re: Sharing mail icons between MH-E and Gnus

[Reiner Steib <reinersteib+gmane@imap.cc>]

On Sun, Feb 19 2006, Bill Wohler wrote:

[ I'll only respond to parts of your mail later in a separate mail. ]

> Reiner Steib <reinersteib+gmane@imap.cc> wrote:

> Thanks very much for doing this. I've added the existing non-gnus names
> that MH-E/Emacs would like to use as well. (I dropped the suffixes so
> the table would fit.) Proposed names where icons don't yet exist are in
> square brackets ([]). I've indicated icons used by Gnus but not by MH-E
> or the rest of Emacs with a dash; this means we do not necessarily have
> to move them out of the gnus directory at this time. I agree with your
> observation about mail-preview.xpm (that we should have a specific one.
>
>   g=/usr/local/share/icons/gnome or /usr/share/icons/hicolor/24x24/stock
>   ei=$EMACS/etc/images
>
>   $g/stock_mail-compose            $ei/gnus/compose        $ei/mail/compose

OK.

>   $g/stock_mail-flag-for-followup  $ei/gnus/flag-followup  $ei/highlight ?

Maybe a more generic name such as $ei/flag-red?  I'm not sure.

>   $g/stock_mail-forward            $ei/gnus/forward        [$ei/mail/forward]
>   $g/stock_mail-handling           $ei/gnus/save-draft     -

We should use $ei/mail/save-draft, I think.

>   $g/stock_mail-reply              $ei/gnus/reply-author   $ei/mail/reply
>   $g/stock_mail-reply-to-all       $ei/gnus/reply-all      $ei/mail/reply-all
>   $g/stock_mail-send               $ei/gnus/send           $ei/mail/send
>   $g/stock_attach                  $ei/gnus/attach         $ei/mail/attach
>   $ei/gnus/preview                 $ei/gnus/mail-preview   [$ei/mail/preview]
>
>   $g/stock_connect                 $ei/gnus/connect        -
>   $g/stock_delete                  $ei/gnus/delete         [$ei/delete]
>   $g/stock_dialog-info             $ei/gnus/describe       -
>   $g/stock_disconnect              $ei/gnus/disconnect     -
>   $g/stock_exit                    $ei/gnus/exit-mode      $ei/exit

There is already an icon "exit.xpm" in Emacs (with a smaller door and
arrow compared to $g/stock_exit.  Apparently it's unused.  I'd also
vote for replacing it with stock_exit.

>   $g/stock_refresh                 $ei/gnus/refresh        $ei/refresh

See below (stock_inbox).

>   $g/stock_sort-ascending          $ei/gnus/sort-a-z       [$ei/sort-ascending]
>   $g/stock_sort-column-ascending   $ei/gnus/sort-1-9       [$ei/sort-column-ascending]
[ Re-ordered quoting: ]
> If you're going to move the sort icons, you might as well take this
> opportunity to use the GNOME names to make it easier to see from whence
> they came.

I shortened the names to avoid name collisions for 8.3 systems
(e.g. sort-column-ascending vs. sort-column-descending).  Additionally
the names don't reflect the images' content.  Maybe because the Gnome
icons are intended for spread sheets applications where letters
indicate rows and numbers indicate columns.

>   $g/stock_spam                    $ei/gnus/spam           [$ei/mail/spam]
>   $g/stock_not-spam                $ei/gnus/not-spam       [$ei/mail/not-spam]
>   $g/sep                           $ei/gnus/separator      -
>
> I've added a few more icons to grab from GNOME:
>
>   $g/stock_contact                 -                       $ei/mail/alias -> $ei/contact?

$ei/contact seems more suitable.  We don't have a related Gnus command
for this icon, but users might bind it to `bbdb/gnus-show-sender' (or
we could add this tool bar icon by default if `bbdb/gnus-show-sender'
is bound).

>   $g/stock_mail-copy               -                       [$ei/mail/copy]
>   $g/stock_mail-move               -                       $ei/mail/refile -> $ei/mail/move?

I don't know about MH-E, but for Gnus I'd not have these functions on
the tool bar, because the user has to choose the target via the
mini-buffer prompt (keyboard) after a mouse click.  (Not a good UI, I
think.)

>   $g/stock_inbox                   -                       $ei/mail -> $ei/inbox ?

In the meantime, I also use stock_inbox (for
`gnus-summary-insert-new-articles' in the summary and
`gnus-group-get-new-news' in the group buffer) instead of
stock_refresh.

>   $g/stock_compile                 -		           $ei/mail/repack?

[In Gnus, somehow similar commands would be
`gnus-group-expire-all-groups' and `gnus-summary-expire-articles'.]
But the image stock_compile probably is supposed to visualize batch
processing, isn't it?

>   $g/stock_zoom-out                -                       $ei/mail/widen

Maybe we should add stock_zoom{,-in,out,prev,next,shift} as $ei/zoom*?
The zoom images aren't mail-specific.  In Gnus, they could be used for
some of the limiting commands, (info "(gnus)Limiting").

> I'd like to update $ei/show, but there doesn't seem to be an equivalent
> GNOME icon for this. I could take stock_new and add a bit of "text" to
> it. Another idea that occurred to me was using stock_mail-open, but then
> we'd have to move it to $ei/mail/open (and could probably delete
> $ei/show). Peter?
[ A MH-E issue, AFAIU. ]

> Fortunately, it looks like most of the other Emacs icons have already
> been updated.

Yes.

>> As you can see from the above web page and the list above, we'd have
>> name collisions for reply-all.xpm (if we use mail/reply-all instead of
>> gnus/reply-all).
>
> Not if we go with the GNOME icons.

:-)

> In case you find it useful, I got the following tip for creating
> Emacs-compatible .pbm images from jan.h.d@swipnet.se.
>
>   1. Edit .xpm image in GIMP.
>   2. Image > Mode > Indexed. Check Use Black/White Palette and No
>      Color Dithering.
>   3. File > Save As file.xbm.
>   4. Run xbmtopbm < file.xbm > file.pbm.

Should be scriptable.  Below is my first Gimp script.  I used to
convert the Gnome PNG icons to XPM; convert(1) didn't work well for
this.  Any volunteers?

--8<---------------cut here---------------start------------->8---
;; -*- scheme -*-
;; Put this file in ~/.gimp-*/scripts/ (e.g. as rs-convert.scm).

;; gimp -i -b '(rs-save-as-xpm "foo.png" "foo.xpm" 127)'  '(gimp-quit 0)'

;; Maybe someone could add the steps described in
;; http://article.gmane.org/gmane.emacs.devel/35176 here?
;; | Gimp, I don't remember the details, but convert to indexed, and reduce 
;; | colors and choose palette when doing that.  Then save as xpm, setting 
;; | alpha to 255.  I don't think it was any more steps.

(define (rs-save-as-xpm filename filename2 threshold)
  (let* ((image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
         (drawable (car (gimp-image-get-active-layer image))))
    ;; (unless threshold (setq threshold 127))
    (file-xpm-save RUN-NONINTERACTIVE image drawable
                   filename2 filename2 threshold)
    (gimp-image-delete image)))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/


-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642