file-is-text? ( path -- ? )

Vocabulary

tools.directory-to-file

Inputs

path

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit io.encodings.utf8 io.files
sequences unicode ;

IN: tools.directory-to-file

: file-is-text? ( path -- ? )
    utf8 file-contents
    [ { [ printable? ] [ blank? ] } 1|| ] all? ;