render-grid-header ( -- xml )

Vocabulary

webapps.mason.grids

Inputs

None

Outputs

xml

an object

Definition

USING: assocs sequences xml.data xml.syntax.private ;

IN: webapps.mason.grids

: render-grid-header ( -- xml )
    oses values [
        1 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { attrs ~attrs~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] map ;