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