year. ( obj -- )

Vocabulary

calendar.format

Inputs

obj

an object

Outputs

None

Definition

IN: calendar.format

GENERIC: year. ( obj -- )

Methods

USING: calendar.english calendar.format calendar.format.private
formatting grouping io io.streams.string kernel math math.parser
ranges sequences splitting ;

M: integer year.
    dup number>string 64 center. nl 12 [1..b] [
        [
            [ month-name 20 center. ]
            [ days-header. days. nl nl ] bi
        ] with-string-writer split-lines
    ] with map 3 <groups>
    [ first3 [ "%-20s  %-20s  %-20s\n" printf ] 3each ] each ;


USING: accessors calendar calendar.format ;

M: timestamp year. year>> year. ;