google-search. ( query -- )

Vocabulary

google.search

Inputs

query

an object

Outputs

None

Definition

USING: accessors combinators formatting google.search.private io
kernel sequences ;

IN: google.search

: google-search. ( query -- )
    [ "Search results for '%s'" sprintf write-heading nl ]
    [ google-search ] bi [
        {
            [ titleNoFormatting>> write-title ]
            [ content>> write-content ]
            [ unescapedUrl>> write-url ]
        } cleave nl
    ] each ;