factor/library/io/directories.factor

! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: io
USING: hashtables kernel lists namespaces presentation sequences
strings styles ;

! Hyperlinked directory listings.

: dir-icon "/library/icons/Folder.png" ;
: file-icon "/library/icons/File.png" ;
: file-icon. directory? dir-icon file-icon ? write-icon ;

: file-link. ( dir name -- )
    tuck path+ file swons unit format ;

: file. ( dir name -- )
    #! If "doc-root" set, create links relative to it.
    2dup path+ file-icon. " " write file-link. terpri ;

: directory. ( dir -- )
    #! If "doc-root" set, create links relative to it.
    dup directory [
        dup [ "." ".." ] member? [ 2drop ] [ file. ] ifte
    ] each-with ;