/emacspeak-29.0/lisp/emacspeak-firevox.el
Emacs Lisp | 166 lines | 66 code | 32 blank | 68 comment | 2 complexity | 747e761bd026e988802fa03430f5132a MD5 | raw file
Possible License(s): MIT
- ;;; emacspeak-firevox.el.el --- FireVox Piglet
- ;;; $Id: emacspeak-firevox.el 5798 2008-08-22 17:35:01Z tv.raman.tv $
- ;;; $Author: tv.raman.tv $
- ;;; Description: Play Firevox game from Emacs in Firefox
- ;;; Keywords: Emacspeak, Audio Desktop Firefox, Piglets
- ;;{{{ LCD Archive entry:
- ;;; LCD Archive Entry:
- ;;; emacspeak| T. V. Raman |raman@cs.cornell.edu
- ;;; A speech interface to Emacs |
- ;;; $Date: 2008-05-30 21:37:49 -0700 (Fri, 30 May 2008) $ |
- ;;; $Revision: 4532 $ |
- ;;; Location undetermined
- ;;;
- ;;}}}
- ;;{{{ Copyright:
- ;;;Copyright (C) 1995 -- 2007, 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.
- ;;}}}
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;{{{ introduction
- ;;; Commentary:
- ;;; MozRepl provides a read-eval-print loop into Firefox
- ;;; Module emacspeak-moz provides convenient functions for driving MozRepl
- ;;; See http://repo.hyperstruct.net/mozlab
- ;;; Using that module, you can connect two large pigs ---
- ;;; Emacs and Firefox via a socket ---
- ;;; the result as you can expect is to produce piglets.
- ;;; emacspeak-firevox is a piglet that enables one to play
- ;;; The Firevox game from within Emacspeak.
- ;;; I run Firefox headless using the etc/firebox script
- ;;; And I have Fire Vox installed to provide the Firefox side of the spoken output.
- ;;; Code:
- ;;}}}
- ;;{{{ Required modules
- (require 'cl)
- (declaim (optimize (safety 0) (speed 3)))
- (require 'emacspeak-preamble)
- (require 'emacspeak-piglets)
- ;;}}}
- ;;{{{ Constants
- (defvar emacspeak-firevox-url
- "http://www.minijuegosgratis.com/juegos/firevox/firevox.htm"
- "URL for game page.")
- ;;}}}
- ;;{{{ Interactive Commands And Keybindings:
- (defvar emacspeak-firevox-buffer "*Fire Vox Interaction*"
- "Buffer where we talk to Firevox.")
- ;;; Interactive commands:
- ;;;###autoload
- (defun emacspeak-firevox-read-next ()
- "Read next item on page."
- (interactive)
- (emacspeak-moz-eval-expression
- "CLC_SR_StopSpeaking();CLC_SR_ReadContent(1)\n"))
- ;;;###autoload
- (defun emacspeak-firevox-read-previous ()
- "Read next item on page."
- (interactive)
- (emacspeak-moz-eval-expression
- "CLC_SR_StopSpeaking();CLC_SR_ReadContent(-1)\n"))
-
-
-
- (defun emacspeak-firevox-read-current ()
- "Read current node."
- (emacspeak-moz-eval-expression
- "CLC_SR_StopSpeaking();CLC_SR_ReadCurrentAtomicObject()\n"))
- ;;;###autoload
- (defun emacspeak-firevox-read-parent ()
- "Read parent node."
- (interactive)
- (emacspeak-moz-eval-expression
- "CLC_SR_StopSpeaking();CLC_SR_SayParentTextContent()\n"))
- ;;;###autoload
- (defun emacspeak-firevox-websearch (query)
- "Perform Websearch via the Firefox URL bar."
- (interactive "sWebSearch:")
- (emacspeak-moz-eval-expression
- (format "repl.adom.webSearch('%s')\n" query)))
- (defun emacspeak-firevox-setup-keys ()
- "Set up FireVox keybindings."
- (declare (special emacspeak-piglets))
- (loop for k in
- '(
- ("\C-n" emacspeak-firevox-read-next)
- ("\C-p" emacspeak-firevox-read-previous)
- ("\C-m" emacspeak-piglets-enter)
- ("\C-i" emacspeak-piglets-tab)
- ("\M-m" emacspeak-piglets-silence) ;;; think mute
- ("\C-@" emacspeak-firevox-read-current)
- ("\C-^" emacspeak-firevox-read-parent)
- ("\C-o" emacspeak-moz-goto-url)
- ("\C-r" emacspeak-moz-refresh)
- ("\C-w" emacspeak-firevox-websearch)
- )
- do
- (emacspeak-keymap-update emacspeak-piglets-mode-map k)))
- ;;;###autoload
- (defun emacspeak-firevox ()
- "Creates FireVox interaction."
- (interactive)
- (declare (special emacspeak-firevox-buffer))
- (save-excursion
- (set-buffer (get-buffer-create emacspeak-firevox-buffer))
- (erase-buffer)
- (setq buffer-undo-list t)
- (emacspeak-piglets-mode)
- (emacspeak-firevox-setup-keys))
- (switch-to-buffer emacspeak-firevox-buffer)
- (emacspeak-speak-mode-line)
- (emacspeak-auditory-icon 'open-object))
- ;;}}}
- (provide 'emacspeak-firevox)
- ;;{{{ end of file
- ;;; local variables:
- ;;; folded-file: t
- ;;; byte-compile-dynamic: t
- ;;; end:
- ;;}}}