From 4502973df8fb5dce31659d4ef9b15adcda38457d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 19 Apr 2015 17:18:22 -0700
Subject: [PATCH] file-monitor: command-line file change monitor.

---
 extra/file-monitor/file-monitor.factor | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 extra/file-monitor/file-monitor.factor

diff --git a/extra/file-monitor/file-monitor.factor b/extra/file-monitor/file-monitor.factor
new file mode 100644
index 0000000000..4010917438
--- /dev/null
+++ b/extra/file-monitor/file-monitor.factor
@@ -0,0 +1,21 @@
+! Copyright (C) 2015 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: accessors command-line formatting fry io io.monitors
+io.pathnames kernel namespaces sequences ;
+
+IN: file-monitor
+
+: file-monitor-loop ( monitor -- )
+    '[
+        _ next-change
+        [ changed>> ] [ path>> ] bi
+        "%u %s\n" printf flush t
+    ] loop ;
+
+: file-monitor-main ( -- )
+    command-line get ?first current-directory get or
+    dup "Monitoring %s\n" printf flush
+    [ t <monitor> file-monitor-loop ] with-monitors ;
+
+MAIN: file-monitor-main