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

Refactor

Browse source
This commit is contained in:
Akira Tempaku 2025-03-28 23:12:07 +09:00
commit c8ab7e1349
Signed by: paku
GPG key ID: 5B4E8402BCC50607
19 changed files with 123 additions and 95 deletions

2
src/app.lisp
View file

@ -20,3 +20,5 @@
(jg:install-middleware *app* *recoverer*)
(jg:install-middleware *app* *trim-trailing-slash*)
(jg:install-middleware *app* *public-server*)
(jg:configure *app*)

11
src/components/footer.lisp
View file

@ -1,11 +0,0 @@
(defpackage #:hp/components/footer
(:use #:cl
#:hsx)
(:export #:~footer))
(in-package #:hp/components/footer)
(defcomp ~footer ()
(hsx
(footer :class "fixed bottom-0 w-full"
(div :class "container py-6 flex justify-end"
(p "© 2025 skyizwhite")))))

27
src/components/header.lisp
View file

@ -1,27 +0,0 @@
(defpackage #:hp/components/header
(:use #:cl
#:hsx)
(:export #:~header))
(in-package #:hp/components/header)
(defcomp ~header ()
(let ((links '(("Home" "/")
("About" "/about")
("Work" "/work")
("Article" "/article")
("Contact" "/contact"))))
(hsx
(header :class "fixed top-0 w-full"
(div :class "container flex justify-between py-6"
(h1
(a :href "/"
(img
:src "/logo.png" :alt "Amongtellers"
:class "w-52 h-auto")))
(ul :class "flex flex-col gap-4"
(loop
:for (title href) :in links :collect
(hsx
(li :class "flex items-center"
(a :href href :class "text-lg hover:text-orange-600"
title))))))))))

5
src/main.lisp
View file

@ -11,10 +11,7 @@
(in-package #:hp)
(defun start ()
(jg:start *app*)
(when (env:dev-mode-p)
(uiop:run-program (format nil "open http://~a:~a"
env:*address* env:*port*))))
(jg:start *app*))
(defun stop ()
(jg:stop *app*))

72
src/renderer.lisp
View file

@ -2,54 +2,73 @@
(:use #:cl
#:hsx
#:trivia)
(:import-from #:str)
(:local-nicknames (#:jg #:jingle))
(:import-from #:hsx/element
#:element)
(:local-nicknames (#:env #:hp/env))
(:import-from #:hp/components/header
#:~header)
(:import-from #:hp/components/footer
#:~footer))
(:local-nicknames (#:env #:hp/env)))
(in-package #:hp/renderer)
(defun bust-cache (url)
(format nil "~a?~a" url #.(get-universal-time)))
(format nil "~a?v=~a" url (get-universal-time)))
(defcomp ~document (&key title description children)
(defparameter *metadata-template*
(list :title (lambda (title)
(format nil "~@[~a - ~]~a" title "skyizwhite.dev"))
:description "The personal homepage of Akira Tempaku (paku) - projects, thoughts, and more."
:og-url "https://skyizwhite.dev"
:og-type "website"
:og-image (lambda (path)
(format nil "https://skyizwhite.dev~@[~a~]" path))
:og-image-width 1024
:og-image-height 1024))
(defun complete-metadata (metadata)
(loop
:for (key template) :on *metadata-template* by #'cddr
:for value := (getf metadata key)
:append (list key (if (functionp template)
(funcall template value)
(or value template)))))
(defcomp ~document (&key title
description
og-url
og-type
og-image
og-image-width
og-image-height
children)
(hsx
(html :lang "ja"
(head
(meta :charset "UTF-8")
(meta :name "viewport" :content "width=device-width, initial-scale=1")
(link :rel "icon" :href (bust-cache "/favicon.ico"))
(link :rel "apple-touch-icon" :href (bust-cache "/favicon.ico"))
(link :rel "stylesheet" :href (bust-cache "/dist.css"))
(title title)
(meta :name "description" :content description)
(meta :property "og:title" :content title)
(meta :property "og:description" :content description)
(meta :property "og:url" :content og-url)
(meta :property "og:type" :content og-type)
(meta :property "og:site_name" :content "skyizwhite.dev")
(meta :property "og:image" :content og-image)
(meta :property "og:image:width" :content og-image-width)
(meta :property "og:image:height" :content og-image-height)
(link :rel "icon" :type "image/x-icon" :href "/img/favicon.ico")
(link :rel "apple-touch-icon" :href "/img/favicon.ico")
(link :rel "stylesheet" :href (bust-cache "/style/dist.css"))
(link :rel "preconnect" :href "https://fonts.googleapis.com")
(link :rel "preconnect" :href "https://fonts.gstatic.com" :crossorigin t)
(link :rel "stylesheet" :href "https://fonts.googleapis.com/css2?family=Noto+Sans+JP&display=swap")
(script :src "https://cdn.jsdelivr.net/npm/htmx.org@2.0.0/dist/htmx.min.js")
(script :src "https://cdn.jsdelivr.net/npm/htmx-ext-head-support@2.0.0/head-support.min.js")
(script :src "https://cdn.jsdelivr.net/npm/htmx-ext-response-targets@2.0.0/response-targets.min.js")
(script :src "https://cdn.jsdelivr.net/npm/alpinejs@3.14.0/dist/cdn.min.js" :defer t)
(title (format nil "~@[~a - ~]Amongtellers" title))
(meta
:name "description"
:content
(or description
(hsx
(<>
"Welcome to the official website of 'Amongtellers (Amaterasu)', "
"a personal project by paku (skyizwhite). "
"Discover project details, the latest updates, and related activities.")))))
(script :src "https://cdn.jsdelivr.net/npm/alpinejs@3.14.0/dist/cdn.min.js" :defer t))
(body
:hx-ext "head-support, response-targets"
:hx-boost "true" :hx-target-404 "body" :hx-target-5* "body"
:class "h-[100svh] flex flex-col"
(~header)
(main :class "flex-1 h-full"
children)
(~footer)))))
children)))))
(defmethod jg:process-response ((app jg:app) result)
(jg:set-response-header :content-type "text/html; charset=utf-8")
@ -63,5 +82,6 @@
((guard (or (list element metadata)
element)
(typep element 'element))
(~document metadata element))
(~document (complete-metadata metadata)
element))
(_ (error "Invalid response form"))))))

30
src/routes/index.lisp
View file

@ -4,18 +4,28 @@
(:export #:handle-get))
(in-package #:hp/routes/index)
(defparameter *links*
'(("Keyoxide" "https://keyoxide.org/f39d5b2c951d16732a5cd3528f0c1a22f26d7e62")
("GitHub" "https://github.com/skyizwhite")
("Forgejo" "https://code.skyizwhite.dev/paku")
("X" "https://x.com/skyizwhite")
("Fediverse" "https://himagine.club/@skyizwhite")
("Service Status" "https://status.skyizwhite.dev")))
(defcomp ~page ()
(hsx
(section
; first view
(div :class "h-[100svh] bg-[url('/fv.jpg')] bg-cover bg-center flex"
(div :class "container flex items-end justify-between"
(h1 :class "flex flex-col text-6xl font-bold italic leading-normal pb-10"
(span :class "block"
"Beyond Differences,")
(span :class "block"
"Shaping Tomorrow")))))))
(section :class "flex flex-col items-center justify-center h-full"
(img :src "/img/me.jpg" :alt "Profile Picture" :class "size-40 rounded rounded-full border shadow-lg")
(div :class "flex flex-col items-center gap-2 py-6"
(h1 :class "font-bold text-2xl"
"Akira Tempaku")
(p :class "text-xl"
"Web developer"))
(div :class "flex flex-col items-center text-pink-500"
(loop
:for (name url) :in *links*
:collect (hsx (a :href url :target "_blank" :class "text-lg hover:underline"
name)))))))
(defun handle-get (params)
(declare (ignore params))
(~page))

8
src/routes/not-found.lisp
View file

@ -11,12 +11,8 @@
(defcomp ~page ()
(hsx
(section :class "container flex flex-col justify-center items-center h-full gap-10"
(h1 :class "text-2xl text-red-600"
(getf *metadata* :title))
(p (getf *metadata* :description))
(a :href "/" :class "text-orange-600"
"Return to the homepage"))))
(section
(h1 "404 Not Found"))))
(defun handle-not-found ()
(jg:set-response-status :not-found)