From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/38068 Path: main.gmane.org!not-for-mail From: Pavel@Janik.cz (Pavel =?iso-8859-2?q?Jan=EDk?=) Newsgroups: gmane.emacs.gnus.general Subject: Re: Where Have All The Smileys Gone? Date: Mon, 20 Aug 2001 00:00:44 +0200 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-2 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035173707 18848 80.91.224.250 (21 Oct 2002 04:15:07 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:15:07 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 21269 invoked from network); 19 Aug 2001 21:59:27 -0000 Original-Received: from czlug1.razdva.cz (HELO SnowWhite.SuSE.cz) (194.212.65.172) by gnus.org with SMTP; 19 Aug 2001 21:59:27 -0000 Original-Received: by SnowWhite.SuSE.cz (PJ, from userid 500) id 4975D4C039; Mon, 20 Aug 2001 00:00:50 +0200 (CEST) Original-To: ding@gnus.org X-Face: $"d&^B_IKlTHX!y2d,3;grhwjOBqOli]LV`6d]58%5'x/kBd7.MO&n3bJ@Zkf&RfBu|^qL+ ?/Re{MpTqanXS2'~Qp'J2p^M7uM:zp[1Xq#{|C!*'&NvCC[9!|=>#qHqIhroq_S"MH8nSH+d^9*BF: iHiAs(t(~b#1.{w.d[=Z In-Reply-To: (Lars Magne Ingebrigtsen's message of "Sun, 19 Aug 2001 23:52:58 +0200") User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.105 Original-Lines: 79 Xref: main.gmane.org gmane.emacs.gnus.general:38068 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:38068 From: Lars Magne Ingebrigtsen 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