|
@@ -5,7 +5,8 @@
|
|
|
(defun google-search (query)
|
|
(defun google-search (query)
|
|
|
(loop
|
|
(loop
|
|
|
for result across (clss:select ".g" (xml-request +google-search-url+
|
|
for result across (clss:select ".g" (xml-request +google-search-url+
|
|
|
- :parameters (list (cons "q" query))))
|
|
|
|
|
|
|
+ :parameters (list (cons "q" query)
|
|
|
|
|
+ (cons "hl" "en"))))
|
|
|
for a = (ignore-errors (elt (clss:select ".r>a" result) 0))
|
|
for a = (ignore-errors (elt (clss:select ".r>a" result) 0))
|
|
|
for uri = (and a (quri:uri (plump:get-attribute a "href")))
|
|
for uri = (and a (quri:uri (plump:get-attribute a "href")))
|
|
|
for q = (and uri (aget "q" (quri:url-decode-params (quri:uri-query uri))))
|
|
for q = (and uri (aget "q" (quri:url-decode-params (quri:uri-query uri))))
|
