visible-dir? ( entry -- ? )

Vocabulary

vocabs.hierarchy.private

Inputs

entry

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit io.files.info kernel
sequences vocabs.private ;

IN: vocabs.hierarchy.private

: visible-dir? ( entry -- ? )
    {
        [ directory? ]
        [ name>> "." head? not ]
        [ name>> valid-vocab-name? ]
    } 1&& ;