Migrate from Piccolo to HSX

This commit is contained in:
Akira Tempaku 2024-06-01 22:21:15 +09:00
commit 19e467fe97
10 changed files with 163 additions and 157 deletions

2
qlfile
View file

@ -1,7 +1,7 @@
ql wild-package-inferred-system ql wild-package-inferred-system
ql fiveam ql fiveam
ql cl-jingle ql cl-jingle
git piccolo https://github.com/skyizwhite/piccolo.git git hsx https://github.com/skyizwhite/hsx.git
git ningle-fbr https://github.com/skyizwhite/ningle-fbr.git git ningle-fbr https://github.com/skyizwhite/ningle-fbr.git
ql cl-ppcre ql cl-ppcre
ql log4cl ql log4cl

View file

@ -14,14 +14,14 @@
(: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"))
("piccolo" . ("hsx" .
(:class qlot/source/git:source-git (:class qlot/source/git:source-git
:initargs (:remote-url "https://github.com/skyizwhite/piccolo.git") :initargs (:remote-url "https://github.com/skyizwhite/hsx.git")
:version "git-543e14b7743fb4fbc2ca515ab2009cb54a39646d")) :version "git-6d894ed9a1daece01c3067e1886b911d81c35437"))
("ningle-fbr" . ("ningle-fbr" .
(:class qlot/source/git:source-git (:class qlot/source/git:source-git
:initargs (:remote-url "https://github.com/skyizwhite/ningle-fbr.git") :initargs (:remote-url "https://github.com/skyizwhite/ningle-fbr.git")
:version "git-79496d59002546e800fcf0ac59e176ada74a3fb0")) :version "git-31d9e48b13c478eb65e4d57d8890270e1cb8b36e"))
("cl-ppcre" . ("cl-ppcre" .
(:class qlot/source/ql:source-ql (:class qlot/source/ql:source-ql
:initargs (:%version :latest) :initargs (:%version :latest)

View file

@ -1,6 +1,6 @@
(defpackage #:hp/components/document (defpackage #:hp/components/document
(:use #:cl (:use #:cl
#:piccolo) #:hsx)
(:import-from #:hp/view/asset (:import-from #:hp/view/asset
#:defasset) #:defasset)
(:export #:document)) (:export #:document))
@ -20,7 +20,8 @@
(defasset *global-css* :root "global.css") (defasset *global-css* :root "global.css")
(defasset *dist-css* :root "dist.css") (defasset *dist-css* :root "dist.css")
(define-element document (title description) (defcomp document (&key title description children)
(hsx
(html :lang "ja" (html :lang "ja"
(head (head
(meta :charset "UTF-8") (meta :charset "UTF-8")
@ -39,4 +40,4 @@
(meta (meta
:name "description" :name "description"
:content (or description "pakuの個人サイト"))) :content (or description "pakuの個人サイト")))
children)) children)))

View file

@ -2,7 +2,7 @@
(:use #:cl) (:use #:cl)
(:mix #:parenscript (:mix #:parenscript
#:paren6 #:paren6
#:piccolo) #:hsx)
(:import-from #:hp/config/asset (:import-from #:hp/config/asset
#:*hx-ext*) #:*hx-ext*)
(:import-from #:hp/view/asset (:import-from #:hp/view/asset
@ -15,15 +15,17 @@
(:href "/about" :label "About") (:href "/about" :label "About")
(:href "/work" :label "Work"))) (:href "/work" :label "Work")))
(define-element header-nav-item (href label) (defcomp header-nav-item (&key href label)
(hsx
(li (li
:class "px-4 rounded-full" :class "px-4 rounded-full"
:|:class| (ps* `(and (is-current-path ,href) :|:class| (ps* `(and (is-current-path ,href)
"font-bold bg-indigo-200 pointer-events-none shadow-sm")) "font-bold bg-indigo-200 pointer-events-none shadow-sm"))
(a :href href (a :href href
label))) label))))
(define-element layout-header () (defcomp layout-header ()
(hsx
(header :class "px-10 py-6 flex justify-between" (header :class "px-10 py-6 flex justify-between"
(h1 :class "font-bold text-xl" (h1 :class "font-bold text-xl"
"skyizwhite.dev") "skyizwhite.dev")
@ -35,9 +37,10 @@
:hx-boost "true" :hx-boost "true"
(ul :class "h-full flex items-center gap-6 text-lg" (ul :class "h-full flex items-center gap-6 text-lg"
(mapcar (lambda (item) (header-nav-item item)) (mapcar (lambda (item) (header-nav-item item))
*header-nav-items*))))) *header-nav-items*))))))
(define-element layout () (defcomp layout (&key children)
(hsx
(body (body
:hx-ext *hx-ext* :hx-ext *hx-ext*
:class "h-[100svh] flex flex-col bg-neutral-200" :class "h-[100svh] flex flex-col bg-neutral-200"
@ -45,4 +48,4 @@
(main :class "flex-1" (main :class "flex-1"
children) children)
; footer ; footer
(footer))) (footer))))

View file

@ -1,17 +1,18 @@
(defpackage #:hp/routes/about (defpackage #:hp/routes/about
(:use #:cl (:use #:cl
#:piccolo) #:hsx)
(:import-from #:hp/view/* (:import-from #:hp/view/*
#:render) #:response)
(:export #:handle-get)) (:export #:handle-get))
(in-package #:hp/routes/about) (in-package #:hp/routes/about)
(define-element page () (defcomp page ()
(hsx
(div :class "h-full place-content-center" (div :class "h-full place-content-center"
(h1 (h1
:class "text-4xl text-center" :class "text-4xl text-center"
"Coming soon..."))) "Coming soon..."))))
(defun handle-get (params) (defun handle-get (params)
(declare (ignore params)) (declare (ignore params))
(render (page))) (response (page)))

View file

@ -2,16 +2,17 @@
(:use #:cl) (:use #:cl)
(:mix #:parenscript (:mix #:parenscript
#:paren6 #:paren6
#:piccolo) #:hsx)
(:import-from #:hp/view/* (:import-from #:hp/view/*
#:defasset #:defasset
#:render) #:response)
(:export #:handle-get)) (:export #:handle-get))
(in-package #:hp/routes/index) (in-package #:hp/routes/index)
(defasset *me-img* :img "me.jpg") (defasset *me-img* :img "me.jpg")
(define-element page () (defcomp page ()
(hsx
(div :class "h-full place-content-center" (div :class "h-full place-content-center"
(div :class "flex justify-center gap-x-20" (div :class "flex justify-center gap-x-20"
(div :class "flex justify-end" (div :class "flex justify-end"
@ -57,8 +58,8 @@
:target "_blank" :target "_blank"
:href "https://himagine.club/@skyizwhite" :href "https://himagine.club/@skyizwhite"
:class "text-indigo-500" :class "text-indigo-500"
"@skyizwhite@himagine.club"))))))) "@skyizwhite@himagine.club"))))))))
(defun handle-get (params) (defun handle-get (params)
(declare (ignore params)) (declare (ignore params))
(render (page))) (response (page)))

View file

@ -1,7 +1,8 @@
(defpackage #:hp/routes/not-found (defpackage #:hp/routes/not-found
(:use #:cl (:use #:cl
#:piccolo) #:hsx)
(:local-nicknames (#:view #:hp/view/*)) (:import-from #:hp/view/responser
#:response)
(:export #:handle-not-found)) (:export #:handle-not-found))
(in-package #:hp/routes/not-found) (in-package #:hp/routes/not-found)
@ -9,13 +10,14 @@
'(:title "404 Not Found" '(:title "404 Not Found"
:description "お探しのページは見つかりませんでした。")) :description "お探しのページは見つかりませんでした。"))
(define-element page () (defcomp page ()
(hsx
(div :class "h-full place-content-center" (div :class "h-full place-content-center"
(h1 (h1
:class "text-rose-400 text-4xl text-center" :class "text-rose-400 text-4xl text-center"
"404 Not Found"))) "404 Not Found"))))
(defun handle-not-found () (defun handle-not-found ()
(view:render (page) (response (page)
:status :not-found :status :not-found
:metadata *metadata*)) :metadata *metadata*))

View file

@ -1,17 +1,18 @@
(defpackage #:hp/routes/work (defpackage #:hp/routes/work
(:use #:cl (:use #:cl
#:piccolo) #:hsx)
(:import-from #:hp/view/* (:import-from #:hp/view/*
#:render) #:response)
(:export #:handle-get)) (:export #:handle-get))
(in-package #:hp/routes/work) (in-package #:hp/routes/work)
(define-element page () (defcomp page ()
(hsx
(div :class "h-full place-content-center" (div :class "h-full place-content-center"
(h1 (h1
:class "text-4xl text-center" :class "text-4xl text-center"
"Coming soon..."))) "Coming soon..."))))
(defun handle-get (params) (defun handle-get (params)
(declare (ignore params)) (declare (ignore params))
(render (page))) (response (page)))

View file

@ -1,25 +0,0 @@
(defpackage #:hp/view/renderer
(:use #:cl)
(:local-nicknames (#:jg #:jingle))
(:local-nicknames (#:pi #:piccolo))
(:local-nicknames (#:cfg #:hp/config/env))
(:local-nicknames (#:cmp #:hp/components/*))
(:export #:render
#:partial-render))
(in-package #:hp/view/renderer)
(defun renderer ()
(if (cfg:dev-mode-p)
#'pi:element-string
#'pi:elem-str))
(defun render (page &key status metadata)
(jg:with-html-response
(if status (jg:set-response-status status))
(funcall (renderer) (cmp:document :metadata metadata
(cmp:layout page)))))
(defun partial-render (component &key status)
(jg:with-html-response
(if status (jg:set-response-status status))
(funcall (renderer) component)))

22
src/view/responser.lisp Normal file
View file

@ -0,0 +1,22 @@
(defpackage #:hp/view/responser
(:use #:cl)
(:import-from #:hsx
#:render)
(:local-nicknames (#:jg #:jingle))
(:local-nicknames (#:cfg #:hp/config/env))
(:local-nicknames (#:cmp #:hp/components/*))
(:export #:response
#:partial-response))
(in-package #:hp/view/responser)
(defun response (page &key status metadata)
(jg:with-html-response
(if status (jg:set-response-status status))
(render (cmp:document :metadata metadata
(cmp:layout page))
:minify t)))
(defun partial-response (component &key status)
(jg:with-html-response
(if status (jg:set-response-status status))
(render component :minify t)))