listing-date ( timestamp -- string )

Vocabulary

tools.files.private

Inputs

timestamp

an object

Outputs

string

an object

Definition

USING: accessors arrays calendar calendar.english kernel
math.parser sequences splitting ;

IN: tools.files.private

: listing-date ( timestamp -- string )
    [ month>> month-abbreviation ]
    [ day>> number>string 2 32 pad-head ] [
        dup year>> dup now year>> =
        [ drop listing-time ] [ nip number>string ] if
        5 32 pad-head
    ] tri 3array join-words ;