;;; smiley-mule.el --- smiley faces decoder for MULE

;; Copyright (C) 1996 MORIOKA Tomohiko
;; Copyright (C) 1996 Katsumi Yamaoka

;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;         Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
;; Created: 1996/7/26
;; Version:
;;	$Id: smiley-mule.el,v 3.7 1996/09/14 05:07:00 morioka Exp $
;; Keywords: smiley, face-mark, MULE, bitmap, xbm, fun

;; This file is part of tl (Tiny Library).

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.

;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with This program; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; - How to install.
;;   0. install bitmap.el and bitmap font (etl8x16-bitmap.bdf)
;;   1. bytecompile this file and copy it to the apropriate directory.
;; - How to use.
;;   If you use tm, please put following to your ~/.emacs:
;;	(and window-system
;;	     (progn
;;	       (autoload 'smiley-buffer "smiley-mule" nil t)
;;             (autoload 'smiley-encode-buffer "smiley-mule" nil t)  
;;	       (add-hook 'mime-viewer/plain-text-preview-hook 'smiley-buffer)
;;	       (add-hook 'mime-editor/translate-hook 'smiley-encode-buffer)
;;	       ))
;;   Of course, it may be available for other hooks to filter messages.

;;; Code:

(require 'bitmap)

(defvar smiley-face-background-color "Yellow")
(defvar smiley-face-foreground-color "Black")

(make-face 'smiley-face)
(set-face-background 'smiley-face smiley-face-background-color)
(set-face-foreground 'smiley-face smiley-face-foreground-color)

(defvar smiley-manga-face-background-color "White")
(defvar smiley-manga-face-foreground-color "Black")

(make-face 'smiley-manga-face)
(set-face-background 'smiley-manga-face smiley-manga-face-background-color)
(set-face-foreground 'smiley-manga-face smiley-manga-face-foreground-color)

(defvar smiley-bitmap-for-smile
  (bitmap-decode-xbm
   '(24 16
	"000000"
	"f8c10f"
	"042210"
	"000000"
	"f0c007"
	"68a109"
	"68a109"
	"68a109"
	"f0c007"
	"000000"
	"000000"
	"508004"
	"000000"
	"202201"
	"001c00"
	"000000"))
  "
   oooooo     oooooo
  '      '   '      '
   o'MM'o    o'MM''o
   M MM M    M MM  M
    ''''      '''''
    o o        o  o
     o   o   o  o
          '''
")

(defvar smiley-bitmap-for-winking
  (bitmap-decode-xbm
   '(24 16
	"000000"
	"f8c10f"
	"042210"
	"000000"
	"00c007"
	"f0a009"
	"08a109"
	"00a009"
	"00c007"
	"000000"
	"000000"
	"508004"
	"000000"
	"202201"
	"001c00"
	"000000"))
  "
   oooooo     oooooo
  '      '   '      '
    oooo     o'MM''o
   '    '    M MM  M
              '''''
    o o        o  o
     o   o   o  o
          '''
")

(defvar smiley-bitmap-for-ase
  (bitmap-decode-xbm
   '(24 16
	"000000"
	"f8c10f"
	"042210"
	"000000"
	"f0c003"
	"68a105"
	"68a105"
	"68a105"
	"f0c023"
	"000020"
	"000050"
	"504052"
	"000050"
	"209120"
	"000e00"
	"000000"))
  "
   oooooo     oooooo
  '      '   '      '
   o'MM'o    o'MM'o
   M MM M    M MM M
    ''''      ''''   M
    o o       o  o  M M
     o  o   o  o    'o'
         '''
")

(defvar smiley-bitmap-for-ase2
  (bitmap-decode-xbm
   '(32 16
	"00000000"
	"f0831f00"
	"08442000"
	"00000000"
	"e0810700"
	"d0420b00"
	"d0420b00"
	"d0420b00"
	"e0818710"
	"00008010"
	"00004029"
	"a0804429"
	"00004029"
	"40228110"
	"001c0000"
	"00000000"))
  "
    oooooo     oooooo
   '      '   '      '
    o'MM'o    o'MM'o
    M MM M    M MM M
     ''''      ''''    M    M
     o o       o  o   M M  M M
      o  o   o  o     'o'  'o'
          '''
")

(defvar smiley-bitmap-for-ase3
  (bitmap-decode-xbm
   '(24 16
	"000000"
	"f8c10f"
	"042210"
	"000000"
	"180007"
	"e0e000"
	"fcf30f"
	"c0e100"
	"380027"
	"000020"
	"000050"
	"504052"
	"000050"
	"209120"
	"000e00"
	"000000"))
  "
   oooooo     oooooo
  '      '   '      '
   ''ooo     ooo'''
  ''''MMM'  'MMM''''
   '''          '''  M
    o o       o  o  M M
     o  o   o  o    'o'
         '''
")

(defvar smiley-bitmap-for-weep
  (bitmap-decode-xbm
   '(24 16
	"1c003c"
	"e28043"
	"006300"
	"180018"
	"600007"
	"80e300"
	"fcf73f"
	"80e300"
	"600007"
	"58001a"
	"400002"
	"a00005"
	"a00005"
	"a01c05"
	"402202"
	"000000"))
  "
 o'''ooo       ooo''''o
   oo   ''   ''    oo
     ''ooo   ooo'''
  '''''MMM' 'MMM''''''
   oo'M         'M'oo
     o'o        o'o
     M M  ooo   M M
      '  '   '   '
")

(defvar smiley-bitmap-FaceAngry
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"17e8"
	"3ffc"
	"73ce"
	"6186"
	"6186"
	"0180"
	"e187"
	"f3cf"
	"3ffc"
	"17e8"
	"1ff8"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM'M      M'MMM
MM''MMo  oMM''MM
M    MM  MM    M
M    oooooo    M
MMooMM''''MMooMM
MMMoM      MoMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceGoofy
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"0db0"
	"fdbf"
	"ffff"
	"07e0"
	"07e0"
	"1ff8"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M MMooooooooMM M
MMM''''''''''MMM
MMMoo      ooMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceGrinning
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"f99f"
	"f99f"
	"33cc"
	"67e6"
	"c7e3"
	"dffb"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M  MMMMMMMMMM  M
MMo 'Mo  oM' oMM
MMMoo MMMM ooMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceHappy
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"0db0"
	"fdbf"
	"f3cf"
	"e7e7"
	"c7e3"
	"1ff8"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M MMooooooooMM M
MMo 'MMMMMM' oMM
MMMoo '''' ooMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceIronic
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"01b0"
	"e1bf"
	"f3cf"
	"3fe0"
	"17e0"
	"1ff8"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M    oooooooMM M
MMooMM'''''' oMM
MMMoM      ooMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceKOed
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"1ff8"
	"1ff8"
	"07e0"
	"8ff1"
	"d99b"
	"718e"
	"d99b"
	"8db1"
	"0180"
	"f18f"
	"f7ef"
	"07e0"
	"1ff8"
	"1ff8"
	"ffff"
	))
  "
MMMMM''''''MMMMM
MMM''      ''MMM
M''Mo oMMo oM''M
M  oM'MooM'Mo  M
M ''   ''   '' M
Moo MMMMMMMM ooM
MMMoo      ooMMM
MMMMMooooooMMMMM
")

(defvar smiley-bitmap-FaceNyah
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"07e0"
	"73ce"
	"718e"
	"0180"
	"0180"
	"e187"
	"e3c7"
	"e7e7"
	"c7e3"
	"dffb"
	"ffff"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM' ooo  ooo 'MM
M   '''  '''   M
M    oooooo    M
MMo  MMMMMM  oMM
MMMoo MMMM ooMMM
MMMMMMMMMMMMMMMM
")

(defvar smiley-bitmap-FaceSad
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"0180"
	"e187"
	"f3cf"
	"3ffc"
	"1ff8"
	"1ff8"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M    oooooo    M
MMooMM''''MMooMM
MMMMM      MMMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceStartled
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"e187"
	"f18f"
	"3bdc"
	"3bdc"
	"f7ef"
	"eff7"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M   oMMMMMMo   M
MM MMM    MMM MM
MMMo'MMMMMM'oMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceStraight
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"0180"
	"e187"
	"e3c7"
	"07e0"
	"07e0"
	"1ff8"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M    oooooo    M
MMo  ''''''  oMM
MMMoo      ooMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceTalking
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"0180"
	"e19f"
	"e3df"
	"07df"
	"07ef"
	"1ff6"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M    oooooooo  M
MMo  '''MMMMM MM
MMMoo   'MM'oMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceTasty
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"27e4"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"6180"
	"f180"
	"fbc0"
	"fbef"
	"f7ef"
	"1ff8"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''o    o''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M   oMMo       M
MM MMMMMoooo oMM
MMMoM''''''MoMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceWry
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"07e0"
	"67e6"
	"63c6"
	"6186"
	"0180"
	"0180"
	"018f"
	"c3cf"
	"e7e0"
	"c7e7"
	"1fff"
	"3ffc"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM''      ''MMM
MM'  MM  MM  'MM
M    ''  ''    M
M       oooo   M
MMo  oMM'''' oMM
MMMoo ''MMMooMMM
MMMMMMooooMMMMMM
")

(defvar smiley-bitmap-FaceYukky
  (bitmap-decode-xbm
   '(16 16
	"ffff"
	"3ffc"
	"1ff8"
	"17e8"
	"3ffc"
	"73ce"
	"6186"
	"0180"
	"0180"
	"f187"
	"f3c7"
	"e7e7"
	"c7e3"
	"dffb"
	"ffff"
	"ffff"
	))
  "
MMMMMM''''MMMMMM
MMM'M      M'MMM
MM''MMo  oMM''MM
M    ''  ''    M
M   ooooooo    M
MMo 'MMMMMM  oMM
MMMoo MMMM ooMMM
MMMMMMMMMMMMMMMM
")

(defvar smiley-face-bitmap-list
  (list
   (vector "^_^;;;"
	 (bitmap-compose (aref smiley-bitmap-for-ase3 0))
	 'smiley-manga-face)
   (vector "^^;;;"
	 (bitmap-compose (aref smiley-bitmap-for-ase3 0))
	 'smiley-manga-face)
   (vector "^_^;;"
	 (bitmap-compose (aref smiley-bitmap-for-ase2 0))
	 'smiley-manga-face)
   (vector "^^;;"
	 (bitmap-compose (aref smiley-bitmap-for-ase2 0))
	 'smiley-manga-face)
   (vector "^_^;"
	   (bitmap-compose (aref smiley-bitmap-for-ase 0))
	   'smiley-manga-face)
   (vector "^^;"
	   (bitmap-compose (aref smiley-bitmap-for-ase 0))
	   'smiley-manga-face)
   (vector ";_;"
	   (bitmap-compose (aref smiley-bitmap-for-weep 0))
	   'smiley-manga-face)
   (vector "(T_T"
	   (concat "(" (bitmap-compose (aref smiley-bitmap-for-weep 0)))
	   'smiley-manga-face)
   (vector "^_^"
	   (bitmap-compose (aref smiley-bitmap-for-smile 0))
	   'smiley-manga-face)
   (vector "(^^)"
	   (bitmap-compose (aref smiley-bitmap-for-smile 0))
	   'smiley-manga-face)
   (vector ":-<"
	   (bitmap-compose (aref smiley-bitmap-FaceAngry 0))
	   'smiley-face)
   (vector ":-]"
	   (bitmap-compose (aref smiley-bitmap-FaceGoofy 0))
	   'smiley-face)
   (vector ":-D"
	   (bitmap-compose (aref smiley-bitmap-FaceGoofy 0))
	   'smiley-face)
   (vector ":-)"
	   (bitmap-compose (aref smiley-bitmap-FaceHappy 0))
	   'smiley-face)
   (vector ":-/"
	   (bitmap-compose (aref smiley-bitmap-FaceIronic 0))
	   'smiley-face)
   (vector "8-|"
	   (bitmap-compose (aref smiley-bitmap-FaceKOed 0))
	   'smiley-face)
   (vector ":-#"
	   (bitmap-compose (aref smiley-bitmap-FaceNyah 0))
	   'smiley-face)
   (vector ":-("
	   (bitmap-compose (aref smiley-bitmap-FaceSad 0))
	   'smiley-face)
   (vector ":-O"
	   (bitmap-compose (aref smiley-bitmap-FaceStartled 0))
	   'smiley-face)
   (vector ":-|"
	   (bitmap-compose (aref smiley-bitmap-FaceStraight 0))
	   'smiley-face)
   (vector ":-p"
	   (bitmap-compose (aref smiley-bitmap-FaceTalking 0))
	   'smiley-face)
   (vector ":-d"
	   (bitmap-compose (aref smiley-bitmap-FaceTasty 0))
	   'smiley-face)
   (vector ";-)"
	   (bitmap-compose (aref smiley-bitmap-for-winking 0))
	   'smiley-manga-face)
   (vector ":-V"
	   (bitmap-compose (aref smiley-bitmap-FaceWry 0))
	   'smiley-face)
   (vector ":-P"
	   (bitmap-compose (aref smiley-bitmap-FaceYukky 0))
	   'smiley-face)
   ))

(defun smiley-buffer ()
  (interactive)
  (save-excursion
    (let ((rest smiley-face-bitmap-list)
	  case-fold-search)
      (while rest
	(let ((cell (car rest)))
	  (goto-char (point-min))
	  (while (search-forward (aref cell 0) nil t)
	    (let ((p0 (match-beginning 0))
		  (bitmap (aref cell 1))
		  )
	      (replace-match bitmap)
	      (overlay-put (make-overlay p0 (+ p0 (length bitmap)))
			   'face (aref cell 2))
	      )))
	(setq rest (cdr rest))
	))))

(defun smiley-region (beg end)
  (interactive "r")
  (save-restriction
    (narrow-to-region beg end)
    (smiley-buffer)
    ))

(defun smiley-encode-buffer ()
  (interactive)
  (save-excursion
    (let ((rest smiley-face-bitmap-list))
      (while rest
	(let ((cell (car rest)))
	  (goto-char (point-min))
	  (while (search-forward (aref cell 1) nil t)
	    (let ((p0 (match-beginning 0))
		  (smiley (aref cell 0))
		  )
	      (replace-match smiley)
	      (let ((overlays (overlays-at p0))
		    (p1 (+ p0 (length smiley)))
		    o)
		(while (and (setq o (car overlays))
			    (if (/= (overlay-end o) p1)
				t
			      (delete-overlay o)
			      nil)
			    )
		  (setq overlays (cdr overlays))
		  )))))
	(setq rest (cdr rest))
	))))


;;; @ end
;;;

(provide 'smiley-mule)

(run-hooks 'smiley-mule-load-hook)

;;; smiley-mule.el ends here