tweet. ( status -- )

Vocabulary

twitter.prettyprint

Inputs

status

an object

Outputs

None

Definition

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

IN: twitter.prettyprint

: tweet. ( status -- )
    tweet-table-style [
        [
            [ dup user>> user-image [ image. ] when* ] with-cell 
            [
                H{ { wrap-margin 600 } } [
                    tweet-text-style [
                        tweet-username-style ~quotation~
                        with-style bl dup text>> print
                        tweet-metadata-style ~quotation~
                        with-style
                    ] with-style
                ] with-nesting
            ] with-cell
        ] with-row
    ] tabular-output nl drop ;