gitignored? ( path gitignore -- ? )

Vocabulary

gitignore

Inputs

path	an object
gitignore	an object

Outputs

?

an object

Definition

USING: accessors kernel regexp sequences ;

IN: gitignore

: gitignored? ( path gitignore -- ? )
    [ split-path ] dip '[
        f swap _ [
            [ glob>> matches? ] [ negated?>> ] bi
            [ [ drop f ] when ] [ or ] if
        ] with each
    ] any? ;