taf-partial. ( partial -- )

Vocabulary

metar.private

Inputs

partial

an object

Outputs

None

Definition

USING: accessors combinators io io.styles kernel math.parser
splitting ;

IN: metar.private

: taf-partial. ( partial -- )
    standard-table-style [
        {
            [ "Change" [ change>> ] row. ]
            [
                "Probability"
                [ probability>> [ number>string ] [ f ] if* ]
                row.
            ]
            [ "Period" [ valid-timestamp>> ] row. ]
            [ "From" [ from-timestamp>> ] row. ]
            [ "Until" [ until-timestamp>> ] row. ]
            [ "At" [ at-timestamp>> ] row. ]
            [ "Wind" [ wind>> ] row. ]
            [ "Visibility" [ visibility>> ] row. ]
            [ "RVR" [ rvr>> ] row. ]
            [ "Weather" [ weather>> ] row. ]
            [ "Sky condition" [ sky-condition>> ] row. ]
            [ "Wind shear" [ wind-shear>> ] row. ]
            [ "Temperatures" [ temperatures>> ] row. ]
            [ "Icing" [ icing>> ] row. ]
            [ "Turbulence" [ turbulence>> ] row. ]
            [ "Unparsed" [ unparsed>> join-words ] row. ]
        } cleave
    ] tabular-output nl ;