Add a auto-build feature to functions.lisp

functions.lisp

@@ -1,8 +1,11 @@
 (ql:quickload :coleslaw)
 (ql:quickload :hunchentoot)
+(ql:quickload :cl-inotify) ; Had to apt-get install libfixposix-dev
+(ql:quickload :iterate)
+(ql:quickload :bordeaux-threads)
 
 (defpackage :azrazalea-net
-  (:use cl)
+  (:use cl iterate cl-inotify bordeaux-threads)
   (:export build-coleslaw start-server stop-server deploy))
 
 (in-package :azrazalea-net)
@@ -12,13 +15,36 @@
    was started in is the site directory."
   (coleslaw:main *default-pathname-defaults*))
 
+(defun watch-recursive (things)
+  (iter
+    (with inotify = (make-inotify))
+    (with flags = '(:create :modify :delete))
+    (for dir in things)
+    (watch inotify dir flags)
+    (iter (for subdir in (uiop:subdirectories dir))
+      (watch inotify subdir flags))
+    (finally (do-events (event inotify :blocking-p t)
+               (build-coleslaw)))))
 
-(let ((acceptor (make-instance 'hunchentoot:easy-acceptor :document-root (merge-pathnames "dist/") :port 4242)))
+(let ((acceptor (make-instance 'hunchentoot:easy-acceptor :document-root (merge-pathnames "dist/") :port 4242))
+      (file-things (mapc
+                    (lambda (name) (merge-pathnames name))
+                    '("pages/"
+                      "static/"
+                      "posts/"
+                      "themes/"
+                      ".coleslawrc")))
+      (inotify-thread nil))
   (defun start-server ()
     "Starts a hunchentoot server that serves the site on port 4242"
+    (when inotify-thread (destroy-thread inotify-thread))
+    (setf inotify-thread (make-thread (lambda ()
+                                        (watch-recursive file-things)) :name "inotify"))
     (hunchentoot:start acceptor))
   (defun stop-server ()
     "Stops a hunchentoot server that serves the site on port 4242"
+    (when inotify-thread (destroy-thread inotify-thread))
+    (setf inotify-thread nil)
     (hunchentoot:stop acceptor)))
 
 (defun deploy ()