From 56ee372f15db1dcb07c6030f4460adfc2633a401 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 24 Jul 2012 14:09:29 -0700 Subject: [PATCH] google.search: Add fileFormat slot. Rename http-search to google-search --- extra/google/search/search.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/google/search/search.factor b/extra/google/search/search.factor index 0120459375..ad2d8eea4c 100644 --- a/extra/google/search/search.factor +++ b/extra/google/search/search.factor @@ -23,11 +23,11 @@ IN: google.search new [ set-slots ] keep ; TUPLE: search-result cacheUrl GsearchResultClass visibleUrl -title content unescapedUrl url titleNoFormatting ; +title content unescapedUrl url titleNoFormatting fileFormat ; PRIVATE> -: http-search ( query -- results ) +: google-search ( query -- results ) search-url http-get nip json> { "responseData" "results" } deep-at [ \ search-result from-slots ] map ; @@ -56,9 +56,9 @@ PRIVATE> PRIVATE> -: http-search. ( query -- ) +: google-search. ( query -- ) [ "Search results for '%s'" sprintf write-heading nl ] - [ http-search ] bi [ + [ google-search ] bi [ { [ titleNoFormatting>> write-title ] [ content>> write-content ]