! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
-USING: accessors arrays assocs assocs.extras classes.tuple
-colors combinators formatting fry http.client io io.styles
-json.reader kernel sequences urls wrap.strings ;
+USING: accessors assocs.extras classes.tuple colors combinators
+formatting http.client io io.styles json.reader kernel sequences
+urls wrap.strings ;
IN: google.search
: google-search ( query -- results )
search-url http-get nip json>
- { "responseData" "results" } deep-at
+ { "responseData" "results" } deep-of
[ \ search-result from-slots ] map ;
<PRIVATE