>

11.32 emacspeak-google

Commentary: There are a number of search tools that can be implemented on the Google search page — in a JS-powered browser, these show up as the Google tool-belt. This module implements a minor mode for use in Google result pages that enables these tools via single keyboard commands.

(require 'cl) (declaim (optimize (safety 0) (speed 3))) (require 'emacspeak-preamble)

One tool on a tool-belt

(defstruct emacspeak-google-tool name ; human readable param ; url param bit range ; range of possible values default value ; current setting ) (defvar emacspeak-google-query nil "Current Google Query. This variable is buffer-local.") (make-variable-buffer-local 'emacspeak-google-query)

(defvar emacspeak-google-toolbelt nil "List of tools on the toolbelt.")

(make-variable-buffer-local 'emacspeak-google-toolbelt)

(defun emacspeak-google-toolbelt-to-tbs (belt) "Return value for use in tbs parameter in search queries." (let ((settings (delq nil (mapcar #'(lambda (tool) (cond ((equal (emacspeak-google-tool-value tool) (emacspeak-google-tool-default tool)) nil) (t (format "%s:%s" (emacspeak-google-tool-param tool) (emacspeak-google-tool-value tool))))) belt)))) (when settings (concat "&tbs=" (mapconcat #'identity settings ",")))))

(defun emacspeak-google-toolbelt () "Returns buffer-local toolbelt or a a newly initialized toolbelt." (declare (special emacspeak-google-toolbelt)) (or emacspeak-google-toolbelt (list video vid: 1/0 (make-emacspeak-google-tool :name "video" :param "vid" :range '(0 1) :default 0 :default 0 :value 0) Recent (make-emacspeak-google-tool :name "recent" :param "rcnt" :range '( 0 1) :default 0 :value 0) Duration restrict for video (make-emacspeak-google-tool :name "duration" :param "dur" :range '("m" "s" "l") :default "m" :value "m") Blog mode (make-emacspeak-google-tool :name "blog" :param "blg" :range '(0 1) :default 0 :value 0) Books mode (make-emacspeak-google-tool :name "books" :param "bks" :range '(0 1) :default 0 :default 0 :value 0) Books viewability (make-emacspeak-google-tool :name "books-viewability" :param "bkv" :range '("a" "f") :default "a" :value "a") Book Type (make-emacspeak-google-tool :name "books-type" :param "bkt" :range '("b" "p" "m") :default "b" :value "b") Forums Mode (make-emacspeak-google-tool :name "forums" :param "frm" :range '(0 1) :default 0 :value 0) News Mode (make-emacspeak-google-tool :name "news" :param "nws" :range '(0 1) :default 0 :value 0) Reviews (make-emacspeak-google-tool :name "reviews" :param "rvw" :range '(0 1) :default 0 :value 0) Web History Visited (make-emacspeak-google-tool :name "web-history-visited" :param "whv" :range '(0 1) :default 0 :value 0) Web History Not Visited (make-emacspeak-google-tool :name "web-history-not-visited" :param "whnv" :range '(0 1) :default 0 :value 0) Images (make-emacspeak-google-tool :name "images" :param "img" :range '(0 1) :default 0 :value 0) Structured Snippets (make-emacspeak-google-tool :name "structured-snippets" :param "sts" :range '(0 1) :default 0 :value 0) sort by date (make-emacspeak-google-tool :name "sort-by-date" :param "std" :range '(0 1) :default 0 :value 0) Timeline (make-emacspeak-google-tool :name "timeline" :param "tl" :range '(0 1) :default 0 :value 0) Timeline Low (make-emacspeak-google-tool :name "timeline-low" :param "tll" :range "YYYY/MM" :default "" :value "") Date Filter (make-emacspeak-google-tool :name "date-filter" :param "qdr" :range "tn" :default "" :value "") Timeline High (make-emacspeak-google-tool :name "timeline-high" :param "tlh" :range "YYYY/MM" :default "" :value "") more:commercial promotion with prices (make-emacspeak-google-tool :name "commercial" :param "cpk" :range '(0 1) :default 0 :value 0) (make-emacspeak-google-tool :name "commercial-prices" :param "cp" :range '(0 1) :default 0 :value 0) less:commercial (demotion) (make-emacspeak-google-tool :name "non-commercial" :param "cdcpk" :range '(0 1) :default 0 :value 0))))

(loop for this-tool in (emacspeak-google-toolbelt) do (eval `(defun ,(intern (format "emacspeak-google-toolbelt-change-%s" (emacspeak-google-tool-name this-tool))) () ,(format "Change %s in the currently active toolbelt." (emacspeak-google-tool-name this-tool)) (interactive) (let* ((belt (emacspeak-google-toolbelt)) (tool (find-if #'(lambda (tool) (string-equal (emacspeak-google-tool-name tool) ,(emacspeak-google-tool-name this-tool))) belt)) (param (emacspeak-google-tool-param tool)) (value (emacspeak-google-tool-value tool)) (range (emacspeak-google-tool-range tool))) (cond ((and (listp range) (= 2 (length range))) toggle value (setf (emacspeak-google-tool-value tool) (if (equal value (first range)) (second range) (first range)))) ((listp range) Prompt using completion (setf (emacspeak-google-tool-value tool) (completing-read "Set tool to: " range))) ((stringp range) (setf (emacspeak-google-tool-value tool) (read-from-minibuffer range))) (t (error "Unexpected type!"))) (let ((emacspeak-websearch-google-options (emacspeak-google-toolbelt-to-tbs belt))) (emacspeak-websearch-google (or emacspeak-google-query (gweb-google-autocomplete))))))))

(defun emacspeak-google-realtime-search (&optional prefix) "Retrieve realtime searches for current query." (interactive "P") (declare (special emacspeak-websearch-google-uri emacspeak-google-query)) (let ((uri (concat emacspeak-websearch-google-uri (if prefix (gweb-google-autocomplete) (or emacspeak-google-query (gweb-google-autocomplete)) ) ;"&esrch=RTSearch" ))) (emacspeak-webutils-cache-google-query emacspeak-google-query) (emacspeak-we-extract-by-id "rtr" uri 'speak)))

(defun emacspeak-google-show-toolbelt() "Reload search page with toolbelt showing." (interactive) (declare (special emacspeak-google-query)) (let ((emacspeak-websearch-google-options "&tbo=1")) (emacspeak-websearch-google emacspeak-google-query)))

###autoload (define-prefix-command 'emacspeak-google-command 'emacspeak-google-keymap)

(loop for k in '( ("h" emacspeak-google-toolbelt-change-web-history-visited) ("H" emacspeak-google-toolbelt-change-web-history-not-visited) ("r" emacspeak-google-toolbelt-change-recent) ("b" emacspeak-google-toolbelt-change-blog) ("n" emacspeak-google-toolbelt-change-news) ("c" emacspeak-google-toolbelt-change-commercial) ("d" emacspeak-google-toolbelt-change-sort-by-date) ("p" emacspeak-google-toolbelt-change-commercial-prices) ("f" emacspeak-google-toolbelt-change-forums) ("v" emacspeak-google-toolbelt-change-video) ("i" emacspeak-google-toolbelt-change-images) ("B" emacspeak-google-toolbelt-change-books) ("t" emacspeak-google-toolbelt-change-books-type) ("\C-t" emacspeak-google-show-toolbelt) ("T" emacspeak-google-toolbelt-change-timeline) ("\C-b" emacspeak-google-toolbelt-change-books-viewability) ("l" emacspeak-google-toolbelt-change-non-commercial) ("s" emacspeak-google-toolbelt-change-structured-snippets) ("a" emacspeak-websearch-google) ("A" emacspeak-websearch-accessible-google) ("R" emacspeak-google-realtime-search) ) do (emacspeak-keymap-update emacspeak-google-keymap k))

(provide 'emacspeak-google)

local variables: folded-file: t byte-compile-dynamic: t

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