From 4244a3625d99bb8d5a3126ec9e2ffeebd0d81ed1 Mon Sep 17 00:00:00 2001
From: ivan <rawleyfowler@gmail.com>
Date: Wed, 5 Aug 2026 14:49:16 -0600
Subject: [PATCH] initial commit

---
 .gitignore  | 16 ++++++++++++++++
 haus-tf.asd |  6 ++++++
 main.lisp   | 25 +++++++++++++++++++++++++
 3 files changed, 47 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 haus-tf.asd
 create mode 100644 main.lisp

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..2cc250f
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,16 @@
+# Dependencies
+/node_modules/
+
+# Compiled frontend assets (run `npm run build` to regenerate)
+/public/assets/app.css
+/public/assets/htmx.min.js
+
+# Environment / secrets
+.env
+.env.*
+!.env.example
+
+# Editor / OS
+.DS_Store
+
+*.db
diff --git a/haus-tf.asd b/haus-tf.asd
new file mode 100644
index 0000000..c148e58
--- /dev/null
+++ b/haus-tf.asd
@@ -0,0 +1,6 @@
+(defsystem "haus-tf"
+           :version "0.0.1"
+           :author "Rawley Fowler"
+           :license "MIT"
+           :depends-on ("woo" "clack" "lack" "spinneret" "cl-dbi" "ningle")
+           :components ((:file "main")))
diff --git a/main.lisp b/main.lisp
new file mode 100644
index 0000000..d5ecb08
--- /dev/null
+++ b/main.lisp
@@ -0,0 +1,25 @@
+(defpackage :haus-tf
+  (:use :cl :ningle :lack :cl-dbi)
+  (:export #:*app*))
+
+(in-package :haus-tf)
+
+(defvar *ningle-app* (make-instance 'ningle:app))
+(defvar *app*
+  (lack:builder
+   :session
+   *ningle-app*))
+
+(defvar *db* (dbi:connect :sqlite3
+                          :database-name "haus-tf.db"))
+
+(setf (ningle:route *ningle-app* "/foo")
+      #'(lambda (params)
+          (declare (ignore params))
+          (let* ((query (dbi:prepare *db* "SELECT unixepoch() as EPOCH"))
+                 (result (dbi:execute query))
+                 (time (getf (dbi:fetch result) :EPOCH)))
+            (format nil "Time: ~A" time))))
+
+(setf (ningle:route *ningle-app* "/")
+      "Hello from Common Lisp!")