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

init

Browse source
This commit is contained in:
Akira Tempaku 2024-01-30 00:48:47 +09:00
commit 72ef5ae639
12 changed files with 174 additions and 0 deletions

16
src/components/layout.lisp Normal file
View file

@ -0,0 +1,16 @@
(defpackage #:hp/components/layout
(:use #:cl)
(:import-from #:markup)
(:export #:layout))
(in-package #:hp/components/layout)
(markup:enable-reader)
(markup:deftag layout (children)
<html>
<head>
<title>skyizwhite.dev</title>
<script src="https://unpkg.com/htmx.org@1.3.1"></script>
</head>
<body>,@(progn children)</body>
</html>)

24
src/main.lisp Normal file
View file

@ -0,0 +1,24 @@
(defpackage :hp
(:nicknames #:hp/main)
(:use #:cl)
(:import-from #:clack)
(:import-from #:lack)
(:import-from #:hp/pages/**/*
#:*index-app*)
(:export #:start-app
#:stop-app))
(in-package :hp)
(defparameter *handler* nil)
(defun start-app ()
(unless *handler*
(setf *handler* (clack:clackup (lack:builder *index-app*)
:address "localhost"
:port 3000))))
(defun stop-app ()
(when *handler*
(clack:stop *handler*)
(setf *handler* nil)
t))

45
src/pages/index.lisp Normal file
View file

@ -0,0 +1,45 @@
(defpackage #:hp/pages/index
(:use #:cl)
(:import-from #:jingle)
(:import-from #:markup)
(:import-from #:hp/components/layout
#:layout)
(:import-from #:hp/utils
#:render-html
#:register-routes)
(:export #:*index-app*))
(in-package #:hp/pages/index)
(markup:enable-reader)
(defparameter *counter* 0)
(markup:deftag counter (&key value)
<div id="counter">,(progn value)</div>)
(defun index-page (params)
(declare (ignore params))
(render-html
<layout>
<counter value=*counter* />
<button hx-target="#counter" hx-post="/decrease"> - </button>
<button hx-target="#counter" hx-post="/increase"> + </button>
</layout>))
(defun increase (params)
(declare (ignore params))
(render-html
<counter value=(incf *counter*) />))
(defun decrease (params)
(declare (ignore params))
(render-html
<counter value=(decf *counter*) />))
(defparameter *index-app* (jingle:make-app))
(register-routes
*index-app*
`((:method :GET :path "/" :handler ,#'index-page)
(:method :POST :path "/increase" :handler ,#'increase)
(:method :POST :path "/decrease" :handler ,#'decrease)))

19
src/utils.lisp Normal file
View file

@ -0,0 +1,19 @@
(defpackage #:hp/utils
(:use #:cl)
(:import-from #:markup)
(:import-from #:jingle)
(:export #:register-routes
#:render-html))
(in-package #:hp/utils)
(defun register-routes (app routes)
(loop :for item :in routes
:for path = (getf item :path)
:for handler = (getf item :handler)
:for method = (getf item :method)
:do (setf (jingle:route app path :method method) handler)))
(defmacro render-html (&body body)
`(jingle:with-html-response
(markup:write-html
,@body)))