(def cc (ev/thread-chan 99)) # Sets up a message channel. (def ww (filewatch/new cc)) # Creates the watcher. (filewatch/add ww "ftest.janet" :all) # Watch for all changes. (filewatch/add ww "fadd.janet" :modify) # Only care if modified. (filewatch/listen ww) # Start filewatcher listening for changes. (pp (ev/take cc)) # Print info on first file to change. (filewatch/unlisten ww) # Stop caring about changes. # This allows the program to exit -- otherwise # filewatcher listening thread keeps running.