subreddit. ( subreddit -- )

Vocabulary

reddit

Inputs

subreddit

an object

Outputs

None

Definition

USING: accessors assocs calendar calendar.format combinators
formatting io kernel math reddit.private sequences ;

IN: reddit

: subreddit. ( subreddit -- )
    get-subreddit data>> [
        1 + "%2d. " sprintf write-text "data" of {
            [ [ "title" of ] [ "url" of ] bi write-title ]
            [ "domain" of " (%s)\n" sprintf write-text ]
            [ "score" of "    %d points, " sprintf write-text ]
            [
                [ "num_comments" of "%d comments" sprintf ]
                [ story>comments-url ] bi write-link
            ]
            [
                "created_utc" of
                unix-time>timestamp relative-time ", posted "
                write-text write-text
            ]
            [
                " by " write-text
                [ "author" of ] [ story>author-url ] bi
                write-link nl nl
            ]
        } cleave
    ] each-index ;