timestamp>internal-date ( timestamp -- str )

Vocabulary

imap

Inputs

timestamp

an object

Outputs

str

an object

Definition

USING: accessors calendar.format io.streams.string ;

IN: imap

: timestamp>internal-date ( timestamp -- str )
    [
        {
            DD
            "-"
            MONTH
            "-"
            YYYY
            " "
            hh
            ":"
            mm
            ":"
            ss
            " "
            [ gmt-offset>> write-gmt-offset ]
        } formatted
    ] with-string-writer ;