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

Simplify metadata

Browse source
This commit is contained in:
Akira Tempaku 2025-05-06 17:43:15 +09:00
parent 955124f0e0
commit 48dedc92ca
Signed by: paku
GPG key ID: 5B4E8402BCC50607
1 changed files with 39 additions and 40 deletions

25
src/components/metadata.lisp
View file

@ -12,6 +12,14 @@
(website-url)
(and (not (string= path "/")) path)))
(defun complete-metadata (metadata)
(loop
:for (key template) :on *default-metadata* :by #'cddr
:for value := (getf metadata key)
:append (list key (if (functionp template)
(funcall template value)
(or value template)))))
(defparameter *default-metadata*
(list :title (lambda (title) (format nil "~@[~a - ~]skyizwhite" title))
:description "The personal website of Akira Tempaku (paku)"
@ -22,12 +30,14 @@
:width 1024)
:error nil))
(defun create-metadata (&key title
(defcomp ~metadata (&key metadata)
(destructuring-bind (&key title
description
canonical
type
image
error)
(complete-metadata metadata)
(let ((path (request-uri *request*)))
(hsx
(<>
@ -51,15 +61,4 @@
(link :rel "shortcut icon" :href "/img/favicon.ico")
(link :rel "apple-touch-icon" :sizes "180x180" :href "/img/apple-touch-icon.png")
(meta :name "apple-mobile-web-app-title" :content "skyizwhite")
(link :rel "manifest" :href "/img/site.webmanifest")))))
(defun complete-metadata (metadata)
(loop
:for (key template) :on *default-metadata* :by #'cddr
:for value := (getf metadata key)
:append (list key (if (functionp template)
(funcall template value)
(or value template)))))
(defcomp ~metadata (&key metadata)
(apply #'create-metadata (complete-metadata metadata)))
(link :rel "manifest" :href "/img/site.webmanifest"))))))