render-validation-errors ( -- )

Vocabulary

html.forms

Word description

Renders any validation errors reported by calls to the validation-error word.

Definition

USING: accessors namespaces sequences xml.data
xml.syntax.private xml.writer ;

IN: html.forms

: render-validation-errors ( -- )
    form get errors>> [
        [
            1 nenum
            T{ xml-chunk { seq V{ "" ~tag~ "" } } }
            interpolate-xml
        ] map 1 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { attrs ~attrs~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml write-xml
    ] unless-empty ;