website/src/routes/index.lisp

(defpackage #:hp/routes/index
  (:use #:cl
        #:hsx
        #:hp/response)
  (:export #:handle-get))
(in-package #:hp/routes/index)

(defcomp page ()
  (hsx
   (h1 :class "text-primary"
     "こんにちは")))

(defun handle-get (params)
  (declare (ignore params))
  (response (page)))