>![]() |
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.
Not bound to any key.
Search IBM Blue Pages