lint-spaces ( -- )

Vocabulary

help.lint.spaces

Inputs

None

Outputs

None

Definition

USING: arrays combinators.short-circuit formatting
io.encodings.utf8 io.files io.pathnames kernel math prettyprint
sequences ;

IN: help.lint.spaces

: lint-spaces ( -- )
    all-docs-files [
        dup utf8 file-lines [ 1 + 2array ] map-index [
            first [ { [ 32 = ] [ 34 = ] } 1|| ] trim-head
            "  " subseq-of?
        ] filter
        [ drop ] [
            swap <pathname> .
            [ first2 swap "%d: %s\n" printf ] each
        ] if-empty
    ] each ;