|
|
@@ -6,10 +6,10 @@
|
|
|
(loop
|
|
|
for result across (clss:select ".g" (xml-request +google-search-url+
|
|
|
:parameters (list (cons "q" query))))
|
|
|
- for a = (elt (clss:select ".r>a" result) 0)
|
|
|
- for uri = (quri:uri (plump:get-attribute a "href"))
|
|
|
- for q = (aget "q" (quri:url-decode-params (quri:uri-query uri)))
|
|
|
- when q
|
|
|
+ for a = (ignore-errors (elt (clss:select ".r>a" result) 0))
|
|
|
+ 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))))
|
|
|
+ when (and q (equal (quri:uri-path uri) "/url"))
|
|
|
collect (list
|
|
|
(cons :url q)
|
|
|
(cons :title (select-text "" a))
|
