profile. ( user -- )

Vocabulary

twitter.prettyprint

Inputs

user

an object

Outputs

None

Definition

USING: assocs images.viewer io io.styles kernel ;

IN: twitter.prettyprint

: profile. ( user -- )
    tweet-table-style [
        [
            [
                dup "profile_image_url" of
                load-http-image image.
            ] with-cell [
                tweet-username-style [
                    dup "name" of print dup "screen_name" of
                    write
                ] with-style
            ] with-cell
        ] with-row
    ] tabular-output nl drop ;