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

Use piccolo instead of flute

Browse source
This commit is contained in:
Akira Tempaku 2024-02-09 05:54:51 +09:00
parent 23df8b1d98
commit 6dabca16a2
4 changed files with 21 additions and 23 deletions

2
qlfile
View file

@ -5,4 +5,4 @@ ql alexandria
ql lack
ql clack
ql cl-jingle
git flute https://github.com/skyizwhite/flute.git
git piccolo https://github.com/skyizwhite/piccolo.git

6
qlfile.lock
View file

@ -30,7 +30,7 @@
(:class qlot/source/ql:source-ql
:initargs (:%version :latest)
:version "ql-2023-10-21"))
("flute" .
("piccolo" .
(:class qlot/source/git:source-git
:initargs (:remote-url "https://github.com/skyizwhite/flute.git")
:version "git-a4bf72232f5de50b826d618f7b6ae0e75494e6f3"))
:initargs (:remote-url "https://github.com/skyizwhite/piccolo.git")
:version "git-8f4a7c4907f2115f98ceb6dd111ac77f75d1be04"))

16
src/routes/index.lisp
View file

@ -1,6 +1,6 @@
(defpackage #:hp/routes/index
(:use #:cl)
(:local-nicknames (#:f #:flute))
(:local-nicknames (#:pi #:piccolo))
(:local-nicknames (#:jg #:jingle))
(:local-nicknames (#:ui #:hp/ui/*))
(:local-nicknames (#:utils #:hp/utils/*))
@ -9,21 +9,19 @@
;;; View
(f:define-element page ()
(f:h
(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!")))))
(section :class "h-full flex justify-center items-center"
(h1 :class "text-4xl text-amber-500"
"Hello HTMX from Common Lisp!")))))
;;; Controller
(defun index (params)
(declare (ignore params))
(jg:with-html-response
(f:element-string (page))))
(pi:element-string (page))))
(defparameter *index-app* (jg:make-app))

20
src/ui/layout.lisp
View file

@ -1,16 +1,16 @@
(defpackage #:hp/ui/layout
(:use #:cl)
(:local-nicknames (#:f #:flute))
(:local-nicknames (#:pi #:piccolo))
(:export #:layout))
(in-package #:hp/ui/layout)
(f:define-element layout ()
(f:h
(pi:define-element layout ()
(pi:h
(html
(head
(title "skyizwhite.dev")
(script :src "/static/htmx.min.js")
(link :href "/static/main.css" :rel "stylesheet")
(link :href "/static/tailwind.css" :rel "stylesheet"))
(body :class "h-[100svh]"
f:children))))
(head
(title "skyizwhite.dev")
(script :src "/static/htmx.min.js")
(link :href "/static/main.css" :rel "stylesheet")
(link :href "/static/tailwind.css" :rel "stylesheet"))
(body :class "h-[100svh]"
pi:children))))