?filter-children ( children -- no-whitespace )

Vocabulary

xml.writer.private

Inputs

children

an object

Outputs

no-whitespace

an object

Definition

USING: kernel namespaces sequences strings unicode ;

IN: xml.writer.private

: ?filter-children ( children -- no-whitespace )
    xml-pprint? get [
        [ dup string? [ [ blank? ] trim ] when ] map
        "" swap remove
    ] when ;