;;; speechd-el-w3m-.el --- Speechd-el enhancements for w3m.
;;; 
;;; Project: Speechd-el Extension 1.0
;;; 
;;; Copyright (C) 2009  Pierre L. Nageoire, Erwin Bliesenick
;;; Authors: Pierre L. Nageoire <devel@pollock-nageoire.net>
;;; Erwin Bliesenick <erwinb@no-log.org>
;;; Keywords: 
;;; X-RCS $Id$
;;;  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 nGNU General Public
;;; License along with GNU Emacs; see the file COPYING.  If
;;; not, write to the Free Software Foundation, Inc., 51
;;; Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
;;; 
;;; 
;;; Commentary:
;;; 
;;; Code:
;;; 
;;; 

(setq w3m-form-use-fancy-faces nil)

;;; -- Url Printing

;;; Suggested by the speechd-el documentation.

(defadvice w3m-print-this-url
  (around my-w3m-print-this-url activate)
  (when (eq this-command 'w3m-print-this-url)
    ad-do-it))

;;; -- End Url Printing

;;; -- Accessing JavaScripts

;;; ----------------------------------------------------------------
;;; webutils : stolen from emacspeak sources (emacspeak-webutils.el)
;;; Copyright (C) 1999 T. V. Raman <raman@cs.cornell.edu>
;;; pour accéder aux sites contenant du javascript
;;; ----------------------------------------------------------------

(define-key w3m-mode-map "\C-t" 'webutils-transcode-current-url-via-google)

(defsubst url-encode (str)
  "URL encode string."
  (mapconcat
   #'(lambda (c)
       (cond ((= c 32) "+")
             ((or (and (>= c ?a) (<= c ?z))
                  (and (>= c ?A) (<= c ?Z))
                  (and (>= c ?0) (<= c ?9)))
              (char-to-string c))
             (t (upcase (format "%%%02x" c)))))
   str
   ""))

(defsubst webutils-browser-check ()
  "Check to see if functions are called from a browser buffer"
  (declare (special major-mode))
  (unless (or (eq major-mode 'w3-mode)
              (eq major-mode 'w3m-mode))
    (error "This command cannot be used outside browser buffers.")))

(defvar webutils-google-transcoder-url
  "http://www.google.com/gwt/n?_gwt_noimg=1&output=xhtml&u=%s"
  "URL pattern for accessing Google transcoder.")

(defsubst webutils-transcoded-to-plain-url (url)
  "Extract plain URL from Google transcoder URL."
  (let ((prefix (substring webutils-google-transcoder-url 0
                           (1+ (position ?? webutils-google-transcoder-url)))))
    (when (equal prefix (substring url 0 (length prefix)))
      (let* ((args (substring url (length prefix)))
             (arg-alist (url-parse-args (subst-char-in-string ?& ?\; args))))
        (url-unhex-string (cdr (assoc "u" arg-alist)))))))
        
;;;###autoload 
(defsubst webutils-transcode-this-url-via-google (url)
  "Transcode specified url via Google."
  (declare (special webutils-google-transcoder-url))
  (browse-url
   (format webutils-google-transcoder-url
           (url-encode url))))

;;;###autoload
(defun webutils-transcode-current-url-via-google (&optional untranscode)
  "Transcode current URL via Google.
  Reverse effect with prefix arg."
  (interactive "P")
  (webutils-browser-check)
  ;;  (let ((url-mime-encoding-string "gzip"))
  ;; removing the above line makes the untranscode work
  (cond
   ((null untranscode)
    (webutils-transcode-this-url-via-google w3m-current-url))
   (t
    (let ((plain-url (webutils-transcoded-to-plain-url w3m-current-url)))
      (when plain-url
        (browse-url plain-url))))))

;;; -- End Accessing JavaScripts


(message "Enhancing speechd-el features for w3m.")
;;; -- Provide

(provide 'speechd-el-w3m)

;;; -- End Provide