button-tag-markup ( -- xml )

Vocabulary

furnace.chloe-tags

Inputs

None

Outputs

xml

an object

Definition

USING: accessors kernel xml.data ;

IN: furnace.chloe-tags

: button-tag-markup ( -- xml )
    T{ xml
        { prolog
            T{ prolog { version "1.0" } { encoding "UTF-8" } }
        }
        { before V{ } }
        { body
            T{ tag
                { name
                    T{ name
                        { space "t" }
                        { main "form" }
                        { url
                            "http://factorcode.org/chloe/1.0"
                        }
                    }
                }
                { attrs T{ attrs { alist ~vector~ } } }
                { children
                    V{ "\n            " ~tag~ "\n        " }
                }
            }
        }
        { after V{ "" } }
    } body>> clone ;