diff options
| author | eltrac <hi@eltr.ac> | 2026-08-26 13:40:59 +0800 |
|---|---|---|
| committer | eltrac <hi@eltr.ac> | 2026-08-26 13:40:59 +0800 |
| commit | 17b4dd905c7d02cdeb841da8ce97416c173fe8df (patch) | |
| tree | 1064bb53bf0d07191aa146abf9c1a96954a26ad6 /tempest.lisp | |
| parent | 5b635a2ac9dca665af2535e47ce3854f0801c09d (diff) | |
main: watch for .lisp file changes
Diffstat (limited to 'tempest.lisp')
| -rw-r--r-- | tempest.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tempest.lisp b/tempest.lisp index 526bade..34b8c01 100644 --- a/tempest.lisp +++ b/tempest.lisp @@ -1,4 +1,12 @@ (in-package #:tempest) +(defparameter path-to-watch "./") + (defun main () + (file-notify:watch path-to-watch) + (file-notify:with-events (file change :timeout T) + (when (str:ends-with-p ".lisp" file :ignore-case T) + (print (list file change)))) (format t "Tempest is starting.")) + +(main) |