datestamp ( timestamp -- string )

Vocabulary

mason.common

Inputs

timestamp

an object

Outputs

string

an object

Definition

USING: accessors calendar.format combinators make sequences ;

IN: mason.common

: datestamp ( timestamp -- string )
    [
        {
            [ year>> , ]
            [ month>> , ]
            [ day>> , ]
            [ hour>> , ]
            [ minute>> , ]
        } cleave
    ] { } make [ pad-00 ] map "-" join ;