paku/website
1
0
Fork 0
Code Issues4 Pull requests Projects Releases Packages Wiki Activity Actions

simple counter app

Browse source
This commit is contained in:
Akira Tempaku 2024-02-11 01:34:46 +09:00
parent 6dabca16a2
commit fca6c7f190
1 changed files with 38 additions and 3 deletions

41
src/routes/index.lisp
View file

@ -9,22 +9,57 @@
;;; View
(pi:define-element counter (value)
(pi:h
(div :id "counter" :class "h-10 w-20 text-4xl badge badge-neutral"
value)))
(pi:define-element page ()
(pi:h
(ui:layout
(section :class "h-full flex justify-center items-center"
(h1 :class "text-4xl text-amber-500"
"Hello HTMX from Common Lisp!")))))
(div :class "flex flex-col items-center gap-4"
(counter :value *counter*)
(button
:hx-target "#counter"
:hx-post "/counter/decrease"
:hx-swap "outerHTML"
:class "btn btn-neutral-content"
"Decrease -")
(button
:hx-target "#counter"
:hx-post "/counter/increase"
:hx-swap "outerHTML"
:class "btn btn-neutral-content"
"Increase +"))))))
;;; Controller
(defparameter *counter* 0)
(defun index (params)
(declare (ignore params))
(jg:with-html-response
(pi:element-string (page))))
(defun increase (params)
(declare (ignore params))
(jg:with-html-response
(pi:element-string
(counter :value (incf *counter*)))))
(defun decrease (params)
(declare (ignore params))
(jg:with-html-response
(pi:element-string
(counter :value (decf *counter*)))))
;;; Routes
(defparameter *index-app* (jg:make-app))
(utils:register-routes
*index-app*
`((:method :GET :path "/" :handler ,#'index)))
`((:method :GET :path "/" :handler ,#'index)
(:method :POST :path "/counter/increase" :handler ,#'increase)
(:method :POST :path "/counter/decrease" :handler ,#'decrease)))