initial commit

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!")