From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62318 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: Re: Larger smilies Date: Mon, 20 Mar 2006 21:02:54 +0100 Organization: Dept. of Theoretical Physics, University of Ulm Message-ID: References: <87adgwl8ht.fsf@virgil.koldfront.dk> <871wxw5vje.fsf@koldfront.dk> <87u0arez27.fsf@catnip.gol.com> <871wxc3e68.fsf@topper.koldfront.dk> <87irq9ou12.fsf@topper.koldfront.dk> Reply-To: Reiner Steib NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1142885094 9718 80.91.229.2 (20 Mar 2006 20:04:54 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 20 Mar 2006 20:04:54 +0000 (UTC) Original-X-From: ding-owner+m10845@lists.math.uh.edu Mon Mar 20 21:04:53 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FLQcN-0007yC-DJ for ding-account@gmane.org; Mon, 20 Mar 2006 21:04:45 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FLQcC-0003lh-00; Mon, 20 Mar 2006 14:04:32 -0600 Original-Received: from nas01.math.uh.edu ([129.7.128.39]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FLQbT-0003lc-00 for ding@lists.math.uh.edu; Mon, 20 Mar 2006 14:03:47 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas01.math.uh.edu with esmtp (Exim 4.52) id 1FLQbL-0004A0-Lc for ding@lists.math.uh.edu; Mon, 20 Mar 2006 14:03:47 -0600 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FLQbH-00051H-00 for ; Mon, 20 Mar 2006 21:03:35 +0100 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1FLQb3-0007gF-En for ding@gnus.org; Mon, 20 Mar 2006 21:03:21 +0100 Original-Received: from bridgekeeper.physik.uni-ulm.de ([134.60.10.123]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 20 Mar 2006 21:03:21 +0100 Original-Received: from Reiner.Steib by bridgekeeper.physik.uni-ulm.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 20 Mar 2006 21:03:21 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-To: ding@gnus.org Original-Lines: 125 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: bridgekeeper.physik.uni-ulm.de X-Face: 3Phac&+dw=IZHjhua]bp}LH<*p{qzj8u+> your "dull" variants? > > I have shaved off a pixel from all sides now, making the dull ones > 14x14 (v0.03): > > > > Better? Yes, thanks. Any comments WRT the suggested code? Did you try it? Attached is an updated patch. On Mon, Mar 20 2006, Adam Sjøgren wrote: > On Thu, 09 Mar 2006 20:19:07 +0100, Reiner wrote: >> +;; Test smileys: [...] > Oops, you forgot: > > ;; frown :-{ > > ;-), Fixed in CVS (v5-10). :-) Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/ --=-=-= Content-Type: text/x-patch Content-Disposition: attachment Index: smiley.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/smiley.el,v retrieving revision 7.9 diff -u -u -r7.9 smiley.el --- smiley.el 10 Mar 2006 16:06:37 -0000 7.9 +++ smiley.el 20 Mar 2006 19:58:45 -0000 @@ -42,6 +42,7 @@ ;; indifferent :-| ;; wry :-/ :-\ ;; sad :-( +;; frown :-{ ;; evil >:-) ;; cry ;-( ;; dead X-) @@ -58,22 +59,55 @@ :group 'gnus-visual) ;; Maybe this should go. -(defcustom smiley-data-directory - (nnheader-find-etc-directory "images/smilies") - "Location of the smiley faces files." +(defcustom smiley-style 'low-color + "Smiley style." + :type '(choice (const :tag "small, 3 colors" low-color) + (const :tag "medium, ~10 colors" medium) + (const :tag "dull, grayscale" grayscale)) + :set (lambda (symbol value) + (set-default symbol value) + (setq smiley-data-directory (smiley-directory)) + (smiley-update-cache)) + :initialize 'custom-initialize-default + :group 'smiley) + +;; For compatibility, honor the variable `smiley-data-directory' if the user +;; has set it. + +(defun smiley-directory (&optional style) + "Return a the location of the smiley faces files. +STYLE specifies which style to use, see `smiley-style'. If STYLE +is nil, use `smiley-style'." + (unless style (setq style smiley-style)) + (nnheader-find-etc-directory + (concat "images/smilies" + (cond ((eq smiley-style 'low-color) "") + ((eq smiley-style 'medium) "/medium") + ((eq smiley-style 'grayscale) "/grayscale"))))) + +(defcustom smiley-data-directory (smiley-directory) + "*Location of the smiley faces files." + :set (lambda (symbol value) + (set-default symbol value) + (smiley-update-cache)) + :initialize 'custom-initialize-default :type 'directory :group 'smiley) ;; The XEmacs version has a baroque, if not rococo, set of these. (defcustom smiley-regexp-alist - '(("\\(:-?)\\)\\W" 1 "smile") + '(("\\(\\^:-?)\\)\\W" 1 "smile") ("\\(;-?)\\)\\W" 1 "blink") ("\\(:-]\\)\\W" 1 "forced") ("\\(8-)\\)\\W" 1 "braindamaged") ("\\(:-|\\)\\W" 1 "indifferent") ("\\(:-[/\\]\\)\\W" 1 "wry") ("\\(:-(\\)\\W" 1 "sad") - ("\\(:-{\\)\\W" 1 "frown")) + ("\\(:-{\\)\\W" 1 "frown") + ("\\(>:-)\\)\\W" 1 "evil") + ("\\(;-(\\)\\W" 1 "cry") + ("\\(X-)\\)\\W" 1 "dead") + ("\\(:-D\\)\\W" 1 "grin")) "*A list of regexps to map smilies to images. The elements are (REGEXP MATCH IMAGE), where MATCH is the submatch in regexp to replace with IMAGE. IMAGE is the name of an image file in --=-=-=--