init

src/main.lisp

@@ -0,0 +1,24 @@
+(defpackage :hp
+  (:nicknames #:hp/main)
+  (:use #:cl)
+  (:import-from #:clack)
+  (:import-from #:lack)
+  (:import-from #:hp/pages/**/*
+                #:*index-app*)
+  (:export #:start-app
+           #:stop-app))
+(in-package :hp)
+
+(defparameter *handler* nil)
+
+(defun start-app ()
+  (unless *handler*
+    (setf *handler* (clack:clackup (lack:builder *index-app*)
+                                   :address "localhost"
+                                   :port 3000))))
+
+(defun stop-app ()
+  (when *handler*
+    (clack:stop *handler*)
+    (setf *handler* nil)
+    t))