[Mew-dist 1587] 鳴かぬなら鳴かせてみせよう…

[Toshihiko SHIMOKAWA / 下川俊彦]

つまらないパッチを作ってしまいました。

mew が起動時に「みゅう」と鳴けるようにしました:-) とりあえず xemacs
only です。

なお、このパッチには「みゅう」というサウンドデータは含まれていません。
oneko2 の pop 対応パッチに「みゃうみゃう」というデータ(oneko2.au)が含ま
れていますので、これを利用するのが良いかな、と思います。デフォルトでは 
oneko2.au を鳴らします。

oneko2 の pop パッチは、最近 fj.sources にも流れましたが、下に URL つけ
ときます。

んで,~/.emacs に
(setq mew-sound-directory "/usr/local/lib/xemacs/site-lisp/mew/etc")
てな感じで oneko2.au (もしくは他のサウンドファイル）を置いたディレクトリ
を指定してください。

こんなパッチよりも audio/basic を xemacs のサウンド機能使って鳴らすよう
なパッチの方が、役に立つような気はするのですが、やる気にならなかったので
先送りです:-)
--
としちゃん





-------------- next part --------------
--- mew-demo.el-dist	Sun Jun  8 22:35:01 1997
+++ mew-demo.el	Fri Aug 22 02:28:52 1997
@@ -22,6 +22,8 @@
 
 (defvar mew-icon-mew "Mew.xpm")
 
+(defvar mew-sound-mew "oneko2.au")
+
 (defvar mew-logo nil)
 (defconst mew-buffer-hello      " *mew hello*")
 
@@ -91,6 +93,16 @@
 	)
        )
       (sit-for 0) ;; to redraw
+      (let ((sound-file
+	     (and (file-exists-p
+		   (expand-file-name mew-sound-mew
+				     mew-sound-directory))
+		  (expand-file-name mew-sound-mew
+				    mew-sound-directory))))
+	(cond
+	 ((and (device-sound-enabled-p) sound-file
+	     (play-sound-file sound-file))))
+	)
       )
      (t
       (insert "/\\\\ - \\\\/")
--- mew-xemacs.el-dist	Mon Jul 28 12:22:17 1997
+++ mew-xemacs.el	Fri Aug 22 02:29:11 1997
@@ -81,6 +81,8 @@
    (expand-file-name "mew-Unknown.xpm" mew-icon-directory))
   )
 
+(defvar mew-sound-directory nil)
+
 ;;
 ;; Summary mode
 ;;
-------------- next part --------------
"
Content-Transfer-Encoding: 7bit

Content-Type: Application/Octet-Stream
Message-ID: 13308.32469.3850 at example.com