emacspeak-mew.el

[Koichi INOUE <inoue@argv.org>]

井上です。

とりあえず
mew-summary-display-up (p)
mew-summary-display-down (n)
mew-summary-suspend (q)
にadviseするパッケージを作ってみました。emacspeak-gnus.elを元にしました。
これを利用するためには、byte-compileしたあと、
emacspeak.elの適切な位置に以下の行を追加する必要があります。

(emacspeak-do-package-setup "mew" 'emacspeak-mew)

同じような記述が並んでいるところがあるので、emacspeak-messageの後にでも追加して
ください。emacspeak.elのbyte-compileもお忘れなく。

ファイルの添付あたりもadviseが必要かな。
;;; emacspeak-mew.el --- Speech enable GNUS -- Fluent spoken access to usenet
;;; $Id: $
;;; $Author: raman $ 
;;; Description:  Emacspeak extension to speech enable mew
;;; Keywords: Emacspeak, mew, mail, Advice, Spoken Output
;;{{{  LCD Archive entry: 

;;; LCD Archive Entry:
;;; emacspeak| T. V. Raman |raman@cs.cornell.edu 
;;; A speech interface to Emacs |
;;; $Date: 2000/04/30 22:52:12 $ |
;;;  $Revision: 12.0 $ | 
;;; Location undetermined
;;;

;;}}}
;;{{{  Copyright:
;;;Copyright (C) 1995 -- 2000, T. V. Raman 
;;; Copyright (c) 1994, 1995 by Digital Equipment Corporation.
;;; All Rights Reserved. 
;;;
;;; This file is not part of GNU Emacs, but the same permissions apply.
;;;
;;; GNU Emacs 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.
;;;
;;; GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

;;}}}
(require 'cl)
(declaim  (optimize  (safety 0) (speed 3)))
(eval-when (compile) (require 'mew)
           (require 'mew-summary)
           (require 'voice-lock)
           (require 'emacspeak-keymap)
           (require 'emacspeak-fix-interactive))
(require 'emacspeak-speak)

(require 'emacspeak-sounds)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;{{{ Advise top-level gnus command
(defadvice mew-summary-display-down (after emacspeak pre act )
  "read summary line after movement"
  (emacspeak-speak-line))

(defadvice mew-summary-display-up (after emacspeak pre act )
  "read summary line after movement"
  (emacspeak-speak-line))

(defadvice mew-summary-suspend (after emacspeak pre act )
  "read summary line after movement"
  (dtk-speak "Mew suspended"))

;;}}}
(provide 'emacspeak-mew)