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

Disable preloading and boosting

Browse source
This commit is contained in:
Akira Tempaku 2025-05-26 17:51:42 +09:00
parent f6929c47cd
commit 7e298a0d2e
Signed by: paku
GPG key ID: 5B4E8402BCC50607
5 changed files with 7 additions and 16 deletions

4
src/app.lisp
View file

@ -8,7 +8,7 @@
(:import-from #:clack-errors
#:*clack-error-middleware*)
(:import-from #:website/lib/env
#:website-env)
#:dev-mode-p)
(:import-from #:website/renderer)
(:export #:*app*))
(in-package #:website/app)
@ -19,7 +19,7 @@
(install-middleware app (lambda (app)
(funcall *clack-error-middleware*
app
:debug (string= (website-env) "dev"))))
:debug (dev-mode-p))))
(install-middleware app *trim-trailing-slash*)
(static-path app "/assets/" "assets/")
(configure app)))

10
src/components/header.lisp
View file

@ -17,9 +17,9 @@
(hsx
(header :class "hidden md:flex justify-between py-4 border-b-1 top-0 bg-white"
(p :class "z-20 text-3xl font-bold"
(a :preload "mouseover" :href "/" "skyizwhite"))
(a :href "/" "skyizwhite"))
(nav :class "flex items-end"
(ul :preload "mouseover" :class "flex gap-4 text-xl font-bold"
(ul :class "flex gap-4 text-xl font-bold"
(loop
:for (href label) :in *pc-menu* :collect
(if (string= href (request-uri *request*))
@ -32,7 +32,7 @@
:x-data "{ open: false }"
:class "flex md:hidden justify-between py-2 border-b-1 top-0 bg-white"
(p :class "z-20 text-2xl font-bold"
(a :preload "mousedown" :href "/" "skyizwhite"))
(a :href "/" "skyizwhite"))
(div
(button
:aria-label "Open menu"
@ -58,9 +58,7 @@
:|x-transition:leave.duration.300ms| t
(h2 :class "text-5xl font-bold"
"Menu")
(ul
:preload "mousedown"
:class "flex flex-col h-fit gap-8 text-3xl font-bold"
(ul :class "flex flex-col h-fit gap-8 text-3xl font-bold"
(loop
:for (href label) :in *sp-menu* :collect
(if (string= href (request-uri *request*))

3
src/components/scripts.lisp
View file

@ -24,7 +24,4 @@
(noscript
(link :rel "stylesheet" :href *google-font-url*))
(script :src "https://cdn.jsdelivr.net/npm/htmx.org@2.0.4/dist/htmx.min.js")
(script :src "https://cdn.jsdelivr.net/npm/htmx-ext-preload@2.1.1/dist/preload.min.js")
(script :src "https://cdn.jsdelivr.net/npm/htmx-ext-head-support@2.0.4/dist/head-support.min.js")
(script :src "https://cdn.jsdelivr.net/npm/htmx-ext-response-targets@2.0.3/dist/response-targets.min.js")
(script :src "https://cdn.jsdelivr.net/npm/alpinejs@3.14.9/dist/cdn.min.js" :defer t))))

4
src/renderer.lisp
View file

@ -33,8 +33,4 @@
(~metadata :metadata (context :metadata))
(~scripts))
(body
:hx-ext (clsx "head-support, response-targets,"
(and (not (dev-mode-p)) "preload"))
:hx-boost "true" :hx-swap "transition:true"
:hx-target-404 "body" :hx-target-5* "body"
(~layout result)))))))))

2
src/routes/blog/index.lisp
View file

@ -20,7 +20,7 @@
(section
(h1 :class "font-bold text-4xl mb-8"
"Blog")
(ul :preload "mouseover" :class "flex flex-col gap-y-2"
(ul :class "flex flex-col gap-y-2"
(loop
:for item :in blogs :collect
(hsx