smiley-ems.el

smiley-ems.el

[Oliver Scholz]

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

There have been questions on how to use one's own smilies in
gnu.emacs.gnus.

I think, it would be nice to ease the customization. Smiley-ems.el
could specify the image type in use via a variable. This simple patch
adds this:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: smiley-ems.diff --]
[-- Type: text/x-patch, Size: 729 bytes --]

--- smiley-ems.el	Wed Oct 31 22:01:44 2001
+++ bin/emacs-lisp/smiley-ems.el	Wed Oct 31 21:57:28 2001
@@ -48,6 +48,13 @@
   :type 'directory
   :group 'smiley)
 
+
+(defcustom smiley-image-type 'pbm
+  "Image format of the smiley images."
+  :type 'symbol
+  :group 'smiley)
+
+
 ;; The XEmacs version has a baroque, if not rococo, set of these.
 (defcustom smiley-regexp-alist
   '(("\\(:-?)\\)\\W" 1 "smile.pbm")
@@ -75,7 +82,7 @@
 		   (symbol-value smiley-regexp-alist)
 		 smiley-regexp-alist))
     (let* ((data-directory smiley-data-directory)
-	   (image (find-image (list (list :type 'pbm
+	   (image (find-image (list (list :type smiley-image-type
 					  :file (nth 2 elt)
 					  :ascent 'center)))))
       (if image

[-- Attachment #3: Type: text/plain, Size: 116 bytes --]


I have made a few simple yellow xpm smilies on a lazy sunday
afternoon. If you like them, you can have them. :-)



[-- Attachment #4: smilies.tar.gz --]
[-- Type: application/x-gunzip, Size: 631 bytes --]

[-- Attachment #5: Type: text/plain, Size: 614 bytes --]


To use them the user can simply insert ...

(setq smiley-regexp-alist '(("\\(:-?)\\)\\W" 1 "smile.xpm")
			    ("\\(;-?)\\)\\W" 1 "blink.xpm")
			    ("\\(:-[/\\]\\)\\W" 1 "wry.xpm")
			    ("\\(:-(\\)\\W" 1 "sad.xpm")
			    ("\\(:-{\\)\\W" 1 "frown.xpm")
			    ("\\(:->\\)\\W" 1 "evil.xpm")
			    ("\\(8-)\\)\\W" 1 "braindamaged.xpm")
			    ("\\(:-|\\)\\W" 1 "indifferent.xpm")
			    ("\\(#-)\\)\\W" 1 "dead.xpm")
			    ("\\(:-]\\)\\W" 1 "forced.xpm")))


(setq smiley-image-type 'xpm)

... into his or her .gnus.

    'oliver

-- 
Oliver Scholz
Taunusstr. 25
60329 Frankfurt am Main
Tel. 069  97 40 99 42

Re: smiley-ems.el

[ShengHuo ZHU]

Oliver Scholz <oscholz@my.gnus.org> writes:

> There have been questions on how to use one's own smilies in
> gnu.emacs.gnus.
>
> I think, it would be nice to ease the customization. Smiley-ems.el
> could specify the image type in use via a variable. This simple patch
> adds this:

Actually, we can use 
          :type (image-type-from-file-header (nth 2 elt)) 
to auto-detect the type.

> I have made a few simple yellow xpm smilies on a lazy sunday
> afternoon. If you like them, you can have them. :-)
>
> To use them the user can simply insert ...
>
> (setq smiley-regexp-alist '(("\\(:-?)\\)\\W" 1 "smile.xpm")
> 			    ("\\(;-?)\\)\\W" 1 "blink.xpm")
> 			    ("\\(:-[/\\]\\)\\W" 1 "wry.xpm")
> 			    ("\\(:-(\\)\\W" 1 "sad.xpm")
> 			    ("\\(:-{\\)\\W" 1 "frown.xpm")
> 			    ("\\(:->\\)\\W" 1 "evil.xpm")
> 			    ("\\(8-)\\)\\W" 1 "braindamaged.xpm")
> 			    ("\\(:-|\\)\\W" 1 "indifferent.xpm")
> 			    ("\\(#-)\\)\\W" 1 "dead.xpm")
> 			    ("\\(:-]\\)\\W" 1 "forced.xpm")))
>
>
> (setq smiley-image-type 'xpm)
>
> ... into his or her .gnus.

Those little faces look nice.  If you want to contribute the images to
FSF, I can send you the assignment-request form.

ShengHuo

Re: smiley-ems.el

[Pavel Janík]

   From: ShengHuo ZHU <zsh@cs.rochester.edu>
   Date: Wed, 31 Oct 2001 18:25:36 -0500

   > Those little faces look nice.  If you want to contribute the images to
   > FSF, I can send you the assignment-request form.

As I remember Lars is talking with the author of original XEmacs's smilies
to sign papers for FSF. So what do we want to have in Gnus? I still use
original smilies from XEmacs inside GNU Emacs...
-- 
Pavel Janík

Microsoft does write "free" software. Not free as in "free beer," or "free
speech," but "Free Tibet.".
                  -- Milan Svoboda in linux@linux.cz

Re: smiley-ems.el

[ShengHuo ZHU]

ShengHuo ZHU <zsh@cs.rochester.edu> writes:

> Oliver Scholz <oscholz@my.gnus.org> writes:

[...]

>> To use them the user can simply insert ...
>>
>> (setq smiley-regexp-alist '(("\\(:-?)\\)\\W" 1 "smile.xpm")
>> 			    ("\\(;-?)\\)\\W" 1 "blink.xpm")
>> 			    ("\\(:-[/\\]\\)\\W" 1 "wry.xpm")
>> 			    ("\\(:-(\\)\\W" 1 "sad.xpm")
>> 			    ("\\(:-{\\)\\W" 1 "frown.xpm")
>> 			    ("\\(:->\\)\\W" 1 "evil.xpm")
>> 			    ("\\(8-)\\)\\W" 1 "braindamaged.xpm")
>> 			    ("\\(:-|\\)\\W" 1 "indifferent.xpm")
>> 			    ("\\(#-)\\)\\W" 1 "dead.xpm")
>> 			    ("\\(:-]\\)\\W" 1 "forced.xpm")))
>>
>>
>> (setq smiley-image-type 'xpm)
>>
>> ... into his or her .gnus.

I've added these pictures under the etc/smilies directory. I'll use
the setting as the default if no one complains in a couple of days.

ShengHuo

Re: smiley-ems.el

[Jaap-Henk Hoepman]

Well, actually i use the default xemacs ones, and they look slightly better
(the black border looks less ragged)

Jaap-Henk

On Thu, 1 Nov 2001 20:04:57 +0100  ShengHuo ZHU <zsh@cs.rochester.edu> writes:
> I've added these pictures under the etc/smilies directory. I'll use
> the setting as the default if no one complains in a couple of days.
> 
> ShengHuo
> 

-- 
Jaap-Henk Hoepman             | Come sail your ships around me
Dept. of Computer Science     | And burn your bridges down
University of Twente          |       Nick Cave - "Ship Song"
Email: hoepman@cs.utwente.nl === WWW: www.cs.utwente.nl/~hoepman
Phone: +31 53 4893795 === Secr: +31 53 4893770 === Fax: +31 53 4894590
PGP ID: 0xF52E26DD  Fingerprint: 1AED DDEB C7F1 DBB3  0556 4732 4217 ABEF