26 lines
700 B
Common Lisp
26 lines
700 B
Common Lisp
(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!")
|