website/src/routes/index.lisp
2024-04-19 13:04:30 +09:00

18 lines
426 B
Common Lisp

(defpackage #:hp/routes/index
(:use #:cl)
(:local-nicknames (#:pi #:piccolo))
(:local-nicknames (#:view #:hp/view))
(:export #:handle-get))
(in-package #:hp/routes/index)
(pi:define-element page ()
(pi:h
(section
(h1 :class "text-red-400"
"Hello, World!")
(a :href "/about" :hx-boost "true"
"About"))))
(defun handle-get (params)
(declare (ignore params))
(view:render (page)))