Use piccolo instead of flute
This commit is contained in:
parent
23df8b1d98
commit
6dabca16a2
4 changed files with 21 additions and 23 deletions
2
qlfile
2
qlfile
|
@ -5,4 +5,4 @@ ql alexandria
|
||||||
ql lack
|
ql lack
|
||||||
ql clack
|
ql clack
|
||||||
ql cl-jingle
|
ql cl-jingle
|
||||||
git flute https://github.com/skyizwhite/flute.git
|
git piccolo https://github.com/skyizwhite/piccolo.git
|
||||||
|
|
|
@ -30,7 +30,7 @@
|
||||||
(:class qlot/source/ql:source-ql
|
(:class qlot/source/ql:source-ql
|
||||||
:initargs (:%version :latest)
|
:initargs (:%version :latest)
|
||||||
:version "ql-2023-10-21"))
|
:version "ql-2023-10-21"))
|
||||||
("flute" .
|
("piccolo" .
|
||||||
(:class qlot/source/git:source-git
|
(:class qlot/source/git:source-git
|
||||||
:initargs (:remote-url "https://github.com/skyizwhite/flute.git")
|
:initargs (:remote-url "https://github.com/skyizwhite/piccolo.git")
|
||||||
:version "git-a4bf72232f5de50b826d618f7b6ae0e75494e6f3"))
|
:version "git-8f4a7c4907f2115f98ceb6dd111ac77f75d1be04"))
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
(defpackage #:hp/routes/index
|
(defpackage #:hp/routes/index
|
||||||
(:use #:cl)
|
(:use #:cl)
|
||||||
(:local-nicknames (#:f #:flute))
|
(:local-nicknames (#:pi #:piccolo))
|
||||||
(:local-nicknames (#:jg #:jingle))
|
(:local-nicknames (#:jg #:jingle))
|
||||||
(:local-nicknames (#:ui #:hp/ui/*))
|
(:local-nicknames (#:ui #:hp/ui/*))
|
||||||
(:local-nicknames (#:utils #:hp/utils/*))
|
(:local-nicknames (#:utils #:hp/utils/*))
|
||||||
|
@ -9,21 +9,19 @@
|
||||||
|
|
||||||
;;; View
|
;;; View
|
||||||
|
|
||||||
(f:define-element page ()
|
(pi:define-element page ()
|
||||||
(f:h
|
(pi:h
|
||||||
(ui:layout
|
(ui:layout
|
||||||
(section
|
(section :class "h-full flex justify-center items-center"
|
||||||
:class "h-full flex justify-center items-center"
|
(h1 :class "text-4xl text-amber-500"
|
||||||
(h1
|
"Hello HTMX from Common Lisp!")))))
|
||||||
:class "text-4xl text-amber-500"
|
|
||||||
"Hello HTMX from Common Lisp!")))))
|
|
||||||
|
|
||||||
;;; Controller
|
;;; Controller
|
||||||
|
|
||||||
(defun index (params)
|
(defun index (params)
|
||||||
(declare (ignore params))
|
(declare (ignore params))
|
||||||
(jg:with-html-response
|
(jg:with-html-response
|
||||||
(f:element-string (page))))
|
(pi:element-string (page))))
|
||||||
|
|
||||||
(defparameter *index-app* (jg:make-app))
|
(defparameter *index-app* (jg:make-app))
|
||||||
|
|
||||||
|
|
|
@ -1,16 +1,16 @@
|
||||||
(defpackage #:hp/ui/layout
|
(defpackage #:hp/ui/layout
|
||||||
(:use #:cl)
|
(:use #:cl)
|
||||||
(:local-nicknames (#:f #:flute))
|
(:local-nicknames (#:pi #:piccolo))
|
||||||
(:export #:layout))
|
(:export #:layout))
|
||||||
(in-package #:hp/ui/layout)
|
(in-package #:hp/ui/layout)
|
||||||
|
|
||||||
(f:define-element layout ()
|
(pi:define-element layout ()
|
||||||
(f:h
|
(pi:h
|
||||||
(html
|
(html
|
||||||
(head
|
(head
|
||||||
(title "skyizwhite.dev")
|
(title "skyizwhite.dev")
|
||||||
(script :src "/static/htmx.min.js")
|
(script :src "/static/htmx.min.js")
|
||||||
(link :href "/static/main.css" :rel "stylesheet")
|
(link :href "/static/main.css" :rel "stylesheet")
|
||||||
(link :href "/static/tailwind.css" :rel "stylesheet"))
|
(link :href "/static/tailwind.css" :rel "stylesheet"))
|
||||||
(body :class "h-[100svh]"
|
(body :class "h-[100svh]"
|
||||||
f:children))))
|
pi:children))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue