From 17b4dd905c7d02cdeb841da8ce97416c173fe8df Mon Sep 17 00:00:00 2001
From: eltrac <hi@eltr.ac>
Date: Wed, 26 Aug 2026 13:40:59 +0800
Subject: main: watch for .lisp file changes

---
 package.lisp | 3 ++-
 tempest.asd  | 6 +++---
 tempest.lisp | 8 ++++++++
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/package.lisp b/package.lisp
index 25ffa83..0c58617 100644
--- a/package.lisp
+++ b/package.lisp
@@ -1,2 +1,3 @@
 (defpackage #:tempest 
-  (:use #:cl))
+  (:use #:cl)
+  (:local-nicknames (#:file-notify #:org.shirakumo.file-notify)))
diff --git a/tempest.asd b/tempest.asd
index 2e606a3..c506418 100644
--- a/tempest.asd
+++ b/tempest.asd
@@ -6,6 +6,6 @@
   :license "AGPL-v3-or-later"
   :version "0.0.1"
   :serial t 
-  :depends-on ("file-notify" "spinneret")
-  :components (:file "package")
-              (:file "tempest"))
+  :depends-on ("file-notify" "spinneret" "str")
+  :components ((:file "package")
+               (:file "tempest")))
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)
-- 
cgit v1.2.3