entry>xml ( entry -- xml )

Vocabulary

syndication

Inputs

entry

an object

Outputs

xml

an object

Definition

USING: accessors calendar.format combinators present xml.data
xml.syntax.private ;

IN: syndication

: entry>xml ( entry -- xml )
    {
        [ title>> ]
        [ url>> present ]
        [ date>> timestamp>rfc3339 ]
        [ description>> ]
    } cleave 4 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;