From 087cfbf4c2adf0c0444298b87b4d6779f2b2f09a Mon Sep 17 00:00:00 2001
From: haskal <haskal@awoo.systems>
Date: Sat, 12 Dec 2020 01:52:02 -0500
Subject: [PATCH] useless stuff: add watch script

---
 .gitignore              |  2 ++
 scripts/countdown       |  1 +
 scripts/template.rktrkt |  4 ++--
 scripts/watch           | 42 +++++++++++++++++++++++++++++++++++++++++
 4 files changed, 47 insertions(+), 2 deletions(-)
 create mode 100755 scripts/watch

diff --git a/.gitignore b/.gitignore
index b54e9d0..862f2c3 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,5 @@
 /inputs/*
 !/inputs/.gitkeep
 /.status.rktd
+*.zo
+*.dep
diff --git a/scripts/countdown b/scripts/countdown
index 99cb7af..30af200 100755
--- a/scripts/countdown
+++ b/scripts/countdown
@@ -12,6 +12,7 @@ function init_day {
         scripts/get-challenge $day &
         sleep 1
         scripts/make-day $day
+        tmux split-pane -v -- "bash -li <<< 'watch $day; exec</dev/tty'"
         fg
         return 1
     fi
diff --git a/scripts/template.rktrkt b/scripts/template.rktrkt
index a6002b0..41876e9 100644
--- a/scripts/template.rktrkt
+++ b/scripts/template.rktrkt
@@ -24,6 +24,6 @@
 
 (module+ main
   (define input (parse "inputs/@day"))
-  (answer @day 1 (part1 input))
-  (answer @day 2 (part2 input))
+  (answer @day 1 (time (part1 input)))
+  (answer @day 2 (time (part2 input)))
   (displayln "meow"))
diff --git a/scripts/watch b/scripts/watch
new file mode 100755
index 0000000..0078a1b
--- /dev/null
+++ b/scripts/watch
@@ -0,0 +1,42 @@
+#!/usr/bin/env racket
+#lang racket
+
+(require racket/rerequire racket/runtime-path)
+
+(define (reinvoke file)
+  (displayln "invoking module")
+  (define p (build-path file))
+  (dynamic-rerequire p)
+  (dynamic-require (list 'submod p 'main) #f)
+  (displayln "invocation complete"))
+
+(define (watch-forever file)
+  (sleep 0.2)
+  (define chg-evt (filesystem-change-evt file (lambda ()
+                                                (displayln "error watching file...")
+                                                (sleep 1) (watch-forever file))))
+  (define runner (thread (lambda () (reinvoke file))))
+
+  (define (handle-break _)
+    (cond
+      [(sync/timeout 0 runner)
+       (displayln "exiting")
+       (exit)]
+      [else
+       (displayln "killing module")
+       (kill-thread runner)
+       (filesystem-change-evt-cancel chg-evt)]))
+
+  (with-handlers ([exn:break? handle-break])
+    (sync chg-evt)
+    (kill-thread runner))
+  (watch-forever file))
+
+(define-runtime-path aoc "aoc.rkt")
+(command-line
+  #:program "watch"
+  #:args (day)
+  (displayln "warming up")
+  (dynamic-require aoc #f)
+  (displayln "ready to go!")
+  (watch-forever (format "~a.rkt" day)))