taf-report. ( report -- )

Vocabulary

metar.private

Inputs

report

an object

Outputs

None

Definition

USING: accessors combinators io io.styles kernel sequences ;

IN: metar.private

: taf-report. ( report -- )
    [
        standard-table-style [
            {
                [ "Station" [ station>> ] row. ]
                [ "Timestamp" [ timestamp>> ] row. ]
                [ "Valid From" [ valid-timestamp>> ] row. ]
                [ "Wind" [ wind>> ] row. ]
                [ "Visibility" [ visibility>> ] row. ]
                [ "RVR" [ rvr>> ] row. ]
                [ "Weather" [ weather>> ] row. ]
                [ "Sky condition" [ sky-condition>> ] row. ]
                [ "Raw Text" [ raw>> ] row. ]
            } cleave
        ] tabular-output nl
    ] [
        partials>> [
            standard-table-style [
                {
                    [ "From" ~quotation~ row. ]
                    [ "Wind" ~quotation~ row. ]
                    [ "Visibility" ~quotation~ row. ]
                    [ "RVR" ~quotation~ row. ]
                    [ "Weather" ~quotation~ row. ]
                    [ "Sky condition" ~quotation~ row. ]
                } cleave
            ] tabular-output nl
        ] each
    ] bi ;