Improve

src/middleware.lisp

@@ -15,7 +15,5 @@
     (funcall *lack-middleware-static*
              app
              :path (lambda (path)
-                     (if (exist-public-file-p path) 
+                     (and (exist-public-file-p path) path))
-                         path
-                         nil))
              :root (asdf:system-relative-pathname :hp "public/"))))

src/routes/about.lisp

@@ -5,15 +5,11 @@
   (:export #:on-get))
 (in-package #:hp/routes/about)
 
-;;; View
-
 (pi:define-element page ()
   (pi:h
     (section
       (h1 "About"))))
 
-;;; Controller
-
 (defun on-get (params)
   (declare (ignore params))
   (view:render (page)

src/routes/index.lisp

@@ -5,8 +5,6 @@
   (:export #:on-get))
 (in-package #:hp/routes/index)
 
-;;; View
-
 (pi:define-element page ()
   (pi:h
     (section
@@ -14,8 +12,6 @@
       (a :href "/about" :hx-boost "true"
         "About"))))
 
-;;; Controller
-
 (defun on-get (params)
   (declare (ignore params))
   (view:render (page)))

src/view.lisp

@@ -12,7 +12,8 @@
     (pi:elem-str
      (let ((md (cmp:metadata :title title :description description))
            (body (cmp:layout page)))
-       (if (jg:get-request-header "HX-Boosted")
+       (pi:h
-           (pi:h (<> md body))
+         (if (jg:get-request-header "HX-Boosted")
-           (pi:h (cmp:document :metadata md
+             (<> md body)
-                   body)))))))
+             (cmp:document :metadata md
+               body)))))))