! Copyright (C) 2011 Your name.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs io io.directories io.files.info
io.monitors kernel sequences sorting ;
IN: file-watcher 

: a ( path -- assoc )
    dup
    [
        dup [ file-info modified>> ] map zip
    ] with-directory-files
    sort-values last first append ;
    

: watch-loop ( monitor -- )
    dup next-change path>> a print flush watch-loop ;

: watch-directory ( path -- )
    [ t [ watch-loop ] with-monitor ] with-monitors ;