diff options
| -rw-r--r-- | haunt/ui/serve.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/haunt/ui/serve.scm b/haunt/ui/serve.scm index 7e27aa8..62fbc6b 100644 --- a/haunt/ui/serve.scm +++ b/haunt/ui/serve.scm @@ -97,6 +97,15 @@ Start an HTTP server for the current site.~%") (inotify-add-watch! inotify name '(create delete close-write moved-to moved-from)) #t)) + ;; Drop .scm extension, remove working directory, + ;; and transform into a symbolic module name. + (define (file-name->module-name file-name) + (map string->symbol + (string-split (string-drop (string-take file-name + (- (string-length file-name) + 4)) + (+ (string-length (getcwd)) 1)) + #\/))) (file-system-fold watch-directory no-op no-op no-op no-op no-op #t (getcwd)) (let loop ((processed-event? #f)) (cond @@ -114,6 +123,14 @@ Start an HTTP server for the current site.~%") ((close-write) "write") ((moved-to moved-from) "move")))) (format #t "watch: observed ~a '~a'~%" action file-name) + ;; Reload Scheme modules when they are changed. + (when (%search-load-path file-name) + (let ((module (resolve-module + (file-name->module-name file-name)))) + (when (module-filename module) + (format #t "watch: reload module ~s~%" + (module-name module)) + (reload-module module)))) (loop #t)) (loop processed-event?)))) (processed-event? |