From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/39788 Path: main.gmane.org!not-for-mail From: Oliver Scholz Newsgroups: gmane.emacs.gnus.general Subject: smiley-ems.el Date: Wed, 31 Oct 2001 22:25:18 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035175442 29800 80.91.224.250 (21 Oct 2002 04:44:02 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:44:02 +0000 (UTC) Return-Path: Original-Received: (qmail 2680 invoked from network); 31 Oct 2001 21:17:00 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 31 Oct 2001 21:17:00 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 15z2gA-0001zv-00; Wed, 31 Oct 2001 15:13:42 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 31 Oct 2001 15:13:21 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id PAA17026 for ; Wed, 31 Oct 2001 15:13:05 -0600 (CST) Original-Received: (qmail 2587 invoked by alias); 31 Oct 2001 21:13:08 -0000 Original-Received: (qmail 2581 invoked from network); 31 Oct 2001 21:13:06 -0000 Original-Received: from 73-252.f.dial.o-tel-o.net (HELO localhost.localdomain) (212.144.73.252) by gnus.org with SMTP; 31 Oct 2001 21:13:06 -0000 Original-Received: (from egoge@localhost) by localhost.localdomain (8.11.4/8.11.4) id f9VLPJs02043; Wed, 31 Oct 2001 22:25:19 +0100 X-Authentication-Warning: localhost.localdomain: egoge set sender to epameinondas@gmx.de using -f Original-To: ding@gnus.org X-Attribution: os X-operating-system: Linux from Scratch X-Face: "HgH2sgK|bfH$;PiOJI6|qUCf.ve<51_Od(%ynHr?=>znn#~#oS>",F%B8&\vus),2AsPYb -n>PgddtGEn}s7kH?7kH{P_~vu?]OvVN^qD(L)>G^gDCl(U9n{:d>'DkilN!_K"eNzjrtI4Ya6;Td% IZGMbJ{lawG+'J>QXPZD&TwWU@^~A}f^zAb[Ru;CT(UA]c& Original-Lines: 42 User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.1 (i686-pc-linux-gnu) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:39788 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:39788 --=-=-= 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: --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=smiley-ems.diff --- 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 --=-=-= I have made a few simple yellow xpm smilies on a lazy sunday afternoon. If you like them, you can have them. :-) --=-=-= Content-Type: application/x-gunzip Content-Disposition: attachment; filename=smilies.tar.gz Content-Transfer-Encoding: base64 H4sIAAJr4DsAA+2aS4/TMBRGs6W/wiq7Bnni5rVA7EazA7FEQgilSVoi2gQlhQEh/jt2XpM69aSD iJtOvyO1ja9uIrf1sW/crrZJ+pX+/LYzxsNiluU5jmFxfK96ZXVb4DLPsHzb51muxZY8n/nMN4g1 Yp9avhf7ICfEiDfZJn40L84LHR3Sy82CfHj/lixuZvxz2CchCb/wj2NBVmJcfObj4uMn8ob8ns2Z TZhD+NP81WxOXoTkXZbG4pjy45fVFymapmje3d3eVk1CCK3gR1WAUlMgImWgapahMvDQ5pFuQJzY BGjZoFJG55T2JGWgjnSvUXa0uUavY/2uH7y5P69n5/42n84qD5I0CnbBJo7GmgaG/Xck/+0lD8F/ Daj83wXR2eyndU5HVFoL38mgpmR/NwP2n0gUB6N53zDsvyuv/y7814PKfzEuprP8U1P2vX0oMjAB nEb8I9me3f8la/23Xa/03/Pgvw6U/ifBKtsm4fmKANnOyky5CHjSLcAx5aV5pK0+rmQOWGd5OF7l XzG8/vvS+r+0PBv+60DlfzUuJlQB9O2XAoP29wMNims8f/u5/3l2n05w/8+F/1pQ+i/GxaQX/wH9 jwQOyvuj1cDV6W8kaZSs13Eep/vRZoHh+r+3/8dw/68Hlf+dcXHJRcAJgaYGuM5ZoBh/++8f9v+Z 7bnwXwcq/4tJbf/9F++7N/bHtxBN86EceObeNxS7ZBtPsP63GfzXgdJ/MS4ueQbADwAncZ//muL6 79j4/48WVP7zcXHJ9qsC0l7fwXZA3bwm+wEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHCJ/AXq61oy AFAAAA== --=-=-= 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 --=-=-=--