What will they think of next: [fwd]

What will they think of next: [fwd]

[Eric Hendrickson]

------- start of forwarded message (RFC 934 encapsulation) -------
From: Keith Bostic <bostic@bsdi.com>
To: /dev/null@mongoose.bostic.com
Subject: What will they think of next:
Date: Tue, 11 Jun 1996 12:05:01 -0400 (EDT)
Message-Id: <199606111605.MAA10593@mongoose.bostic.com>

From: Margo Seltzer <margo@eecs.harvard.edu>

Microsoft Word (which is used by Microsoft Exchange) now has a
feature which changes emoticons into actual smiley-faced icons.
------- end -------

What will they think of next: [fwd]

[William Perry]

Eric Hendrickson writes:
>------- start of forwarded message (RFC 934 encapsulation) -------
>From: Keith Bostic <bostic@bsdi.com>
>To: /dev/null@mongoose.bostic.com
>Subject: What will they think of next:
>Date: Tue, 11 Jun 1996 12:05:01 -0400 (EDT)
>Message-Id: <199606111605.MAA10593@mongoose.bostic.com>
>
>From: Margo Seltzer <margo@eecs.harvard.edu>
>
>Microsoft Word (which is used by Microsoft Exchange) now has a
>feature which changes emoticons into actual smiley-faced icons.

  we simply _HAVE_ to implement this.  Anyone know of a good smiley icon
repository? :)

-Bill P.

Re: What will they think of next: [fwd]

[Colin Rafferty]

William Perry writes:
> Eric Hendrickson forwards:

>> Microsoft Word (which is used by Microsoft Exchange) now has a
>> feature which changes emoticons into actual smiley-faced icons.

>   we simply _HAVE_ to implement this.  Anyone know of a good smiley icon
> repository? :)

How about a function gnus-article-hide-emoticon (W W e) that I can add
to gnus-article-prepare-hook so that I never have to see them ever again
in my life?

Seriously, all that we need is a good regexp, and we can be rid of them
forever:

(while (re-search-forward "\\s-*[[<(#]?[:;|%][-=*^]?[()|P!?/\\][]>)]?"
			  nil t)
  (replace-match "" nil nil))

-- 
Colin

Re: What will they think of next: [fwd]

[Kevin Cheek]

William Perry <wmperry@monolith.spry.com> writes:

>   we simply _HAVE_ to implement this.  Anyone know of a good smiley icon
> repository? :)

In case anyone actually wants some smiley icons, I got 15 small tiffs
from the next-icon mail list. They're available via HTTP at
<http://mmg2.im.med.umich.edu/~kcheek/smileys/>.

-- 
 Kevin Cheek <kcheek@umich.edu>
 "Always remember that you are unique - just like everybody else."

Re: What will they think of next: [fwd]

[Lars Magne Ingebrigtsen]

Colin Rafferty <craffert@spspme.ml.com> writes:

> How about a function gnus-article-hide-emoticon (W W e) that I can add
> to gnus-article-prepare-hook so that I never have to see them ever again
> in my life?
> 
> Seriously, all that we need is a good regexp, and we can be rid of them
> forever:
> 
> (while (re-search-forward "\\s-*[[<(#]?[:;|%][-=*^]?[()|P!?/\\][]>)]?"
> 			  nil t)
>   (replace-match "" nil nil))

It's a bit more complicated (as most things are :-).  

Which has now been demonstrated.  :-)  So there'll have to be some
additional logic, but it's definitely doable.

-- 
  "Yes.  The journey through the human heart 
     would have to wait until some other time."

Re: What will they think of next: [fwd]

[Lars Magne Ingebrigtsen]

Kevin Cheek <kcheek@cerebus.im.med.umich.edu> writes:

> In case anyone actually wants some smiley icons, I got 15 small tiffs
> from the next-icon mail list. They're available via HTTP at
> <http://mmg2.im.med.umich.edu/~kcheek/smileys/>.

Are they free?  (As in GPL or public domain?)

I want to write a smiley.el which not only does the smiley faces, but
(in general) can make bits of text invisible and "replace" the text
with neat-o-keano glyphs.  Killing and yanking the text will then give
you the original text.  Like.

-- 
  "Yes.  The journey through the human heart 
     would have to wait until some other time."

Re: What will they think of next: [fwd]

[Wes Hardaker]

Kevin Cheek <kcheek@cerebus.im.med.umich.edu> writes:

> >   we simply _HAVE_ to implement this.  Anyone know of a good smiley icon
> > repository? 
> 
> In case anyone actually wants some smiley icons, I got 15 small tiffs
> from the next-icon mail list. They're available via HTTP at
> <http/mmg2.im.med.umich.edu/~kcheek/smileys/>.

Well, so like I had my wisdom teeth pulled on Monday...  That didn't
leave much motivation for me to do anything productive today.
Therefore, I submit the very beginnings of the above mentioned project
(something, I've been wanting to see for a long time too).

You'll need ftp://ftp.ece.ucdavis.edu/pub/hardaker/smilies.tar.gz, as
well as the following lisp code.  Note that the default regular
expressions I threw together in roughly 5 minutes and haven't even
included all the faces in the face database (from Kevin) yet.  I'll
leave it to someone else (ie, a reg-exp and smiley expert) to clean
this up.  The good news is that it works (XEmacs required of course).

:-) :-\ :-] :-> :-/ :-| :-< :-(

Install the above lisp and smiley faces and re-read this message!

The faces should be colored in yellow, and the background should be
set to transparent (outside the circle), but again, I defer...

;;
;; comments go here.
;;

;; (add-hook 'gnus-article-display-hook 'gnus-smiley-display t)

(defvar gnus-smiley-db-dir "/home/hardaker/tmp/smilies/smilies")

(defvar gnus-smiley-regexp-alist '((":-*\\]" "FaceGrinning.xpm")
				 (":-*)" "FaceHappy.xpm")
				 (";-*[>)]" "FaceWinking.xpm")
				 (":-*[/\\]" "FaceIronic.xpm")
				 (":-*|" "FaceGoofy.xpm")
				 (":-*<" "FaceAngry.xpm")
				 (":-*(" "FaceAngry.xpm")))

(defun gnus-smiley-display ()
  (interactive)
  (if (and (featurep 'xpm) 
           (or (not (fboundp 'device-type)) (equal (device-type) 'x)))
      (save-excursion
	(set-buffer gnus-article-buffer)
	;; search and replace
	(let ((buffer-read-only nil)
	      (alist gnus-smiley-regexp-alist)
	      bug entry regexp)
	  (goto-char (point-min))
	  ;; We skip the headers.
	  (unless (search-forward "\n\n" nil t)
	    (goto-char (point-max)))
	  (setq beg (point))
	  ;; loop through alist
	  (while (setq entry (pop alist))
	    (setq regexp (car entry))
	    (goto-char beg)
	    (while (re-search-forward regexp nil t)
	      (let ((start (match-beginning 0))
		    (end (match-end 0))
		    (gl (make-glyph
			 (concat (file-name-as-directory gnus-smiley-db-dir) 
				 (nth 1 entry)))))
		(if gl
		    (progn 
		      (set-glyph-face gl 'default)
		      (delete-region start end)
		      (make-annotation gl start 'text))
		  (message "face doesn't exist")))))))))

-- 
                                                                _____ 
Wes Hardaker                                                   / ___ \
Department of Electrical and Computer Engineering             / /   \//\
University of California at Davis        __________________  \--/    /--\
Davis CA  95616                         /     Recycle!     \  \//\___/ /
(hardaker@ece.ucdavis.edu)             / It's not too late! \   \_____/

Re: What will they think of next: [fwd]

[Wes Hardaker]

Kevin Cheek <kcheek@cerebus.im.med.umich.edu> writes:

> >   we simply _HAVE_ to implement this.  Anyone know of a good smiley icon
> > repository? 

Oh...  I forgot to mention, the reg-exp stuff really should watch out
for URLs' which by default get partly changed into smilies:

http://www.foo.bar/
    ^^
    parsed as a smily.

-- 
                                                                _____ 
Wes Hardaker                                                   / ___ \
Department of Electrical and Computer Engineering             / /   \//\
University of California at Davis        __________________  \--/    /--\
Davis CA  95616                         /     Recycle!     \  \//\___/ /
(hardaker@ece.ucdavis.edu)             / It's not too late! \   \_____/

Re: What will they think of next: [fwd]

[Wes Hardaker]

Wes Hardaker <hardaker> writes:

> Well, so like I had my wisdom teeth pulled on Monday...  That didn't
> leave much motivation for me to do anything productive today.
> Therefore, I submit the very beginnings of the above mentioned project
> (something, I've been wanting to see for a long time too).

Well...  Having ran out of stuff to do (ie, procrastinated everything
else sucessfully), I played a bit more with the reg-exp list.  This
following includes more maps to faces and a few better reg-exps.  

(defvar gnus-smiley-regexp-alist '((":-*\\]" "FaceGrinning.xpm")
				 (":-*[oO]" "FaceStartled.xpm")
				 (":-*[)>]" "FaceHappy.xpm")
				 (":-*)" "FaceHappy.xpm")
				 (";-*[>)]" "FaceWinking.xpm")
				 (":-[/\\]" "FaceIronic.xpm")
				 (":-*|" "FaceStraight.xpm")
				 (":-*<" "FaceAngry.xpm")
				 (":-*d" "FaceTasty.xpm")
				 (":-*[pP]" "FaceYukky.xpm")
				 ("8-*|" "FaceKOed.xpm")
				 (":-*(" "FaceAngry.xpm")))

Now, I've simply GOT to go get some work done....  Errr, its been a
long time since I've played XPilot.  I wonder if I remember how?

Wes