diff options
| -rw-r--r-- | package.lisp | 3 | ||||
| -rw-r--r-- | tempest.asd | 6 | ||||
| -rw-r--r-- | 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) |