directory-paths ( directory -- alist )

Vocabulary

tools.completion.private

Inputs

directory

an object

Outputs

alist

an object

Definition

USING: accessors assocs io.directories io.files.info
io.pathnames kernel sequences ;

IN: tools.completion.private

: directory-paths ( directory -- alist )
    dup [ [ name>> dup ] ] dip [ prepend-path ] curry compose
    [ [ directory? [ path-separator append ] when ] bi swap ]
    curry [ map>alist ] curry with-directory-entries ;