directory-usage ( path -- assoc )

Vocabulary

io.directories

Inputs

path

an object

Outputs

assoc

an object

Definition

USING: accessors assocs io.files.info kernel sorting ;

IN: io.directories

: directory-usage ( path -- assoc )
    qualified-directory-entries [
        [ name>> dup ] [ directory? ] bi
        [ directory-size ] [ link-size/0 ] if
    ] map>alist sort-values ;