indent-string ( -- string )

Vocabulary

xml.writer.private

Inputs

None

Outputs

string

an object

Definition

USING: kernel namespaces sequences xml.writer ;

IN: xml.writer.private

: indent-string ( -- string )
    xml-pprint? get
    [ indentation get indenter get <repetition> "" concat-as ]
    [ "" ] if ;