>EMACSPEAK --Complete Audio Desktop

Next: , Previous: voice-setup, Up: Emacspeak Commands


11.79 emacspeak-w3search

Commentary: Site-specific websearch enhancements

(emacspeak-websearch-set-searcher 'ibm-internal 'emacspeak-websearch-ibm-internal)

(emacspeak-websearch-set-key ?I'ibm-internal)

(defvar emacspeak-websearch-ibm-internal-uri "http://w3search.torolab.ibm.com/search.mod" "*URI for IBM My News search")

(defun emacspeak-websearch-ibm-internal (query ) "Search IBM My News" (interactive (list (emacspeak-websearch-read-query "IBM Internal Search "))) (declare (special emacspeak-websearch-ibm-internal-uri)) (let ((url-be-asynchronous nil)) (browse-url (concat emacspeak-websearch-ibm-internal-uri "?q=" (webjump-url-encode query)))) (emacspeak-websearch-post-process "Your query " 'emacspeak-speak-line) )

(emacspeak-websearch-set-searcher 'ibm-my-news 'emacspeak-websearch-ibm-my-news) bind it to tab (emacspeak-websearch-set-key 9 'ibm-my-news)

(defvar emacspeak-websearch-ibm-my-news-uri "http://w3search.torolab.ibm.com/search.mod?do=w3-1.ibm.com%2Fnews%2F&mh=100&ei=1&mo=fl" "*URI for IBM My News search")

(defun emacspeak-websearch-ibm-my-news (query ) "Search IBM My News" (interactive (list (emacspeak-websearch-read-query "My News Search "))) (declare (special emacspeak-websearch-ibm-my-news-uri)) (let ((url-be-asynchronous nil)) (browse-url (concat emacspeak-websearch-ibm-my-news-uri "&q=" (webjump-url-encode query)))) (emacspeak-websearch-post-process "Your query " 'emacspeak-speak-line))

(emacspeak-websearch-set-searcher 'blue-pages 'emacspeak-websearch-blue-pages)

(emacspeak-websearch-set-key ?B 'blue-pages)

(defvar emacspeak-websearch-blue-pages-uri "http://bluepages.ibm.com/cgi-bin/bluepages.pl?" "*URI for BluePages search")

(defun emacspeak-websearch-blue-pages (query &optional prefix) "Search IBM Blue Pages" (interactive (list (emacspeak-websearch-read-query "Look in Blue Pages for: ") current-prefix-arg)) (declare (special emacspeak-websearch-blue-pages-uri)) (let ((url-be-asynchronous nil)) (browse-url (concat emacspeak-websearch-blue-pages-uri (format "directory=%s&" (if prefix (read-from-minibuffer "Location: ") "almaden")) "&Selection=Name&selectOn=" (webjump-url-encode query)))) (emacspeak-websearch-post-process "Tie Line" 'emacspeak-speak-line))

(provide 'emacspeak-w3search)

Automatically generated documentation for commands defined in module emacspeak-w3search.

— Interactive Command: emacspeak-websearch-blue-pages nil

Not bound to any key.

Search IBM Blue Pages

— Interactive Command: emacspeak-websearch-ibm-internal nil

Not bound to any key.

Search IBM My News

— Interactive Command: emacspeak-websearch-ibm-my-news nil

Not bound to any key.

Search IBM My News