check-elements ( element -- )

Vocabulary

help.lint.checks

Inputs

element

an object

Outputs

None

Definition

USING: combinators grouping help.markup sequences strings ;

IN: help.lint.checks

: check-elements ( element -- )
    {
        [ check-bogus-nl ]
        [ [ string? ] filter [ check-strings ] each ]
        [ [ simple-element? ] filter [ check-elements ] each ]
        [
            2 <clumps> [ [ string? ] all? ] filter
            [ first2 check-whitespace ] each
        ]
    } cleave ;