Re: Where Have All The Smileys Gone?

[Pavel@Janik.cz (Pavel Janík)]

   From: Lars Magne Ingebrigtsen <larsi@gnus.org>
   Date: Sun, 19 Aug 2001 23:52:58 +0200

Hi,

   > I'm probably the last person on the planet that's downloaded Emacs 21,
   > and it looks pretty spiffy.
   > 
   > But what I'm wondering is where all the smiling faces in etc/smilies
   > have disappeared off to.  I like the great smiling variation that was
   > there, and now there are only three left...

T hink there is a problem that smilies that are used in XEmacs do not have
papers so Dave Love and me were both trying ro reach the original author
without success. Although I use this patch which allow me to use XEmacs
smilies even when in 21:

diff -urN emacs-21.0.104.orig/lisp/gnus/smiley-ems.el emacs-21.0.104/lisp/gnus/smiley-ems.el
--- emacs-21.0.104.orig/lisp/gnus/smiley-ems.el	Wed May 16 00:29:15 2001
+++ emacs-21.0.104/lisp/gnus/smiley-ems.el	Wed May 16 00:39:56 2001
@@ -30,7 +30,9 @@
 ;; I'm not sure we need that degree of rococoness and defaults like a
 ;; yellow background.  Also, using PBM means we can display the images
 ;; more generally.  -- fx
-
+;; OK, but I'd like to see original XEmacs smileys, so I changed this
+;; file a little bit.
+;;
 ;;; Test smileys:  :-) :-\ :-( :-/
 
 ;;; Code:
@@ -52,12 +54,26 @@
 ;; The XEmacs version has a baroque, if not rococo, set of these.
 (defcustom smiley-regexp-alist
   ;; Perhaps :-) should be distinct -- it does appear in the Jargon File.
-  '(("\\([:;]-?)\\)\\(\\W\\|\\'\\)" 1 "smile.pbm")
-    ("\\(:-[/\\]\\)\\(\\W\\|\\'\\)" 1 "wry.pbm")
-    ("\\(:-[({]\\)\\(\\W\\|\\'\\)" 1 "frown.pbm"))
+  '(("\\(:-*[<Ť]+\\)\\W" 1 "FaceAngry.xpm")
+    ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm")
+    ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm")
+    ("\\(:-*[)>}ť]+\\)\\W" 1 "FaceHappy.xpm")
+    ("\\(=[)ť]+\\)\\W" 1 "FaceHappy.xpm")
+    ("\\(:-*[/\\\"]\\)[^/]\\W" 1 "FaceIronic.xpm")
+    ("[^.0-9]\\([8|]-*[|Oo%]\\)\\W" 1 "FaceKOed.xpm")
+    ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm")
+    ("\\(:-*[({]+\\)\\W" 1 "FaceSad.xpm")
+    ("\\(=[({]+\\)\\W" 1 "FaceSad.xpm")
+    ("\\(:-*[Oo\*]\\)\\W" 1 "FaceStartled.xpm")
+    ("\\(:-*|\\)\\W" 1 "FaceStraight.xpm")
+    ("\\(:-*p\\)\\W" 1 "FaceTalking.xpm")
+    ("\\(:-*d\\)\\W" 1 "FaceTasty.xpm")
+    ("\\(;-*[>)}ť]+\\)\\W" 1 "FaceWinking.xpm")
+    ("\\(:-*[Vvľ]\\)\\W" 1 "FaceWry.xpm")
+    ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm"))
   "*A list of regexps to map smilies to images.
 The elements are (REGEXP MATCH FILE), where MATCH is the submatch in
-rgexp to replace with IMAGE.  IMAGE is the name of a PBM file in
+rgexp to replace with IMAGE.  IMAGE is the name of a XPM file in
 `smiley-data-directory' or the normal image search path."
   :type '(repeat (list regexp
 		       (integer :tag "Regexp match number")
@@ -73,7 +89,7 @@
 (defun smiley-update-cache ()
   (dolist (elt smiley-regexp-alist)
     (let* ((data-directory smiley-data-directory)
-	   (image (find-image (list (list :type 'pbm
+	   (image (find-image (list (list :type 'xpm
 					  :file (nth 2 elt)
 					  :ascent 'center)))))
       (if image

Enjoy!
-- 
Pavel Janík

Deletion of Windows:
         Deleting a window means eliminating it from the screen.
                  -- An unknown author in GNU Emacs 21 manual