Add error page for internal server error

src/middlewares/recoverer.lisp

@@ -1,14 +1,22 @@
 (defpackage #:hp/middlewares/recoverer
-  (:use #:cl)
+  (:use #:cl
+        #:hsx)
   (:local-nicknames (#:tb #:trivial-backtrace))
   (:local-nicknames (#:env #:hp/env))
   (:export #:*recoverer*))
 (in-package #:hp/middlewares/recoverer)
 
-(defun message (condition)
+(defun error-page (condition)
-  (if (env:dev-mode-p)
+  (hsx
-      (tb:print-backtrace condition :output nil)
+   (html :lang "ja"
-      "Internal Server Error"))
+     (head
+       (title "Internal Server Error"))
+     (body
+       (main
+         (h1 "500 Internal Server Error")
+         (when (env:dev-mode-p)
+           (pre
+             (code (tb:print-backtrace condition :output nil)))))))))
 
 (defparameter *recoverer*
   (lambda (app)
@@ -16,5 +24,5 @@
       (handler-case
           (funcall app env)
         (error (c)
-          `(500 (:content-type "text/plain")
+          `(500 (:content-type "text/html; charset=utf-8")
-                (,(message c))))))))
+                (,(hsx:render-to-string (error-page c)))))))))

src/renderer.lisp

@@ -21,8 +21,8 @@
          :name "description"
          :content (or description "pakuの個人サイト")))
      (body :hx-ext "head-support"
-           (main :class "container mx-auto"
+       (main :class "container mx-auto"
-                 children)))))
+         children)))))
 
 (defmethod jg:process-response ((app jg:app) result)
   (jg:set-response-header :content-type "text/html; charset=utf-8")