w3m-el (was: dismal question resolved)

[Dmitry Paduchih <paduch@xxxxxxxxxxx>]

Well, I am writing a module for w3m-el. Actually it had existed for a
long time but recently I have discovered that w3m-el provides more
functionality than I used to think before. For example, it handles
html forms, and provides some interface to web search engines.

The module is attached in this message. It is not complete yet but I
hope it will be useful. It binds the keys tab and M-tab to the
commands moving around anchors and arrow keys to the usual motion
commands. It also speech-enables movement around anchors and some html
form elements (input fields, submit buttons, password fields, and
radio buttons).

I use the module with w3m-el of version 1.2.4, so earlier versions may
cause problems. The most recent version of w3m-el can be found at
http://emacs-w3m.namazu.org/
(Debian users can just install w3m-el package from the unstable vranch
of the debian distribution.)


>>>>> "YS" == Yvonne Smith <yvonne@xxxxxxxxxxx> writes:

YS> You'll find that almost all emacs commands that need input are like
YS> this. Type the command, hit enter, and have it ask you for input.

YS> as for lynx vs w3, well to be honest, I use w3, but that's mostly
YS> because trying to use lynx in a terminal buffer in emacspeak is very,
YS> very annoying.

YS> w3's probably about the most user friendly browser I've ever used,
YS> except for the very simple fact that it's a total dog, speedwise. I'm
YS> trying to learn enough elisp so I can try and get w3m.el to be even half
YS> user friendly enough to use, for those pages that literally take 5
YS> minutes or more just to draw.

YS> -----------------------------------------------------------------------------
YS> To unsubscribe from the emacspeak list or change your address on the
YS> emacspeak list send mail to "emacspeak-request@xxxxxxxxxxx" with a
YS> subject of "unsubscribe" or "help"



Regards,
    Dimitri

;;; emacspeak-w3m.el --- speech-enables w3m-el

;; Copyright (C) 2001  Dimitri V. Paduchih

;; Author: Dimitri Paduchih <paduch@xxxxxxxxxxx>
;; Keywords: emacspeak

;; This file 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 file 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, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; 


;;; Code:

(require 'w3m nil t)
(require 'dtk-tcl)
(require 'emacspeak-sounds)


(define-key w3m-mode-map [M-tab] 'w3m-previous-anchor)
(define-key w3m-mode-map [tab] 'w3m-next-anchor)
(define-key w3m-mode-map [down] 'next-line)
(define-key w3m-mode-map [up] 'previous-line)
(define-key w3m-mode-map [right] 'emacspeak-forward-char)
(define-key w3m-mode-map [left] 'emacspeak-backward-char)

(defun emacspeak-w3m-personalize-string (string personality)
  (let ((newstring (copy-sequence string)))
    (put-text-property 0 (length newstring)
		       'personality personality
		       newstring)
    newstring))


(defadvice w3m-goto-url (around emacspeak pre act)
  (let ((emacspeak-speak-messages nil))
    ad-do-it)
  (when (stringp w3m-current-title)
    (message "%s" w3m-current-title)))

(defun emacspeak-w3m-speak-cursor-anchor ()
  (dtk-speak
   (if (get-text-property (point) 'w3m-cursor-anchor)
       (buffer-substring (point)
			 (next-single-property-change (point)
						      'w3m-cursor-anchor))
     "not found")))

(defun emacspeak-w3m-speak-form-input (form name type width maxlength value)
  (dtk-speak
   (format "%s field %s  %s"
	   type
	   name
	   (emacspeak-w3m-personalize-string
	    (or (w3m-form-get form name) value)
	    emacspeak-w3m-form-personality))))

(defun emacspeak-w3m-speak-form-input-password (form name)
  (dtk-speak (format "password field %s" name)))

(defun emacspeak-w3m-speak-form-submit (form &optional name value)
  (dtk-speak
   (if (equal value "")
       "submit button"
     (format "button %s"
	     (emacspeak-w3m-personalize-string
	      value
	      emacspeak-w3m-button-personality)))))

(defun emacspeak-w3m-speak-form-input-radio (form name value)
  (and dtk-stop-immediately (dtk-stop))
  (let* ((active (equal value (w3m-form-get form name)))
	 (personality (if active
			  emacspeak-w3m-active-personality
			emacspeak-w3m-inactive-personality))
	 (dtk-stop-immediately nil))
    (emacspeak-auditory-icon (if active 'on 'off))
    (dtk-speak
     (if (equal value "")
	 (emacspeak-w3m-personalize-string
	  (format "unset radio %s" name)
	  personality)
       (format "%s radio %s"
	       (emacspeak-w3m-personalize-string value personality)
	       name)))))


(defvar emacspeak-w3m-active-personality 'paul-animated)
(defvar emacspeak-w3m-inactive-personality 'harry)
(defvar emacspeak-w3m-form-personality 'paul-animated)
(defvar emacspeak-w3m-button-personality 'harry)

(defvar emacspeak-w3m-speak-action-alist
  '((w3m-form-input . emacspeak-w3m-speak-form-input)
    (w3m-form-input-radio . emacspeak-w3m-speak-form-input-radio)
    (w3m-form-submit . emacspeak-w3m-speak-form-submit)
    (w3m-form-input-password . emacspeak-w3m-speak-form-input-password)))

(defun emacspeak-w3m-speak-this-anchor ()
  (let ((url (w3m-anchor))
	(act (w3m-action)))
    (cond
     (url (emacspeak-w3m-speak-cursor-anchor))
     ((consp act)
      (let ((speak-action (cdr (assq
				(car act)
				emacspeak-w3m-speak-action-alist))))
	(if (functionp speak-action)
	    (apply speak-action (cdr act))
	  (emacspeak-w3m-speak-cursor-anchor))))
     (t (emacspeak-w3m-speak-cursor-anchor)))))

(defadvice w3m-next-anchor (around emacspeak pre act)
  (let ((emacspeak-speak-messages nil))
    ad-do-it)
  (when (interactive-p)
    (emacspeak-w3m-speak-this-anchor)))

(defadvice w3m-previous-anchor (around emacspeak pre act)
  (let ((emacspeak-speak-messages nil))
    ad-do-it)
  (when (interactive-p)
    (emacspeak-w3m-speak-this-anchor)))

(defadvice w3m-next-form (around emacspeak pre act comp)
  (let ((emacspeak-speak-messages nil))
    ad-do-it)
  (when (interactive-p)
    (emacspeak-w3m-speak-this-anchor)))

(defadvice w3m-previous-form (around emacspeak pre act comp)
  (let ((emacspeak-speak-messages nil))
    ad-do-it)
  (when (interactive-p)
    (emacspeak-w3m-speak-this-anchor)))

(provide 'emacspeak-w3m)
;;; emacspeak-w3m.el ends here

;;; local variables:
;;; byte-compile-dynamic: t
;;; end: