luvcraft/showcase.lisp
in-package#:luvcraft.web
defclassshowcase-page
directory:initarg:directory:readershowcase-page-directory
media-path:initarg:media-path:readershowcase-page-media-path
defunmake-showcase-page
&keydirectorymedia-path
make-instance'showcase-page:path"/showcase":label"Showcase":description"Reproducible glimpses of little worlds and live proposals.":directory
uiop:ensure-directory-pathname
:media-pathdefunsafe-showcase-filename-p
filename
defunshowcase-title
capture
string-capitalize
defunshowcase-media-url
pagefilename
defunshowcase-layout
capture
defunpositive-showcase-dimension
capturename
let
value
getfcapturename
defunsafe-showcase-variant-p
variant
defunshowcase-card-sizes
capture
if
eq:portrait
"(max-width: 29rem) calc(100vw - 2rem), 27rem""(max-width: 59.5rem) calc(100vw - 2rem), calc((min(100vw - 2rem, 76rem) - 1.5rem) / 2)"showcase-layoutcapture
defunwrite-showcase-image
let*
SRCSET contains only card-sized derivatives, placing a hard ceiling on index traffic. The surrounding link keeps the original available for deliberate detail viewing and download.
formatoutput"<a class=original href=\"~A\" title=\"Open full-resolution image\">"
html-escapedoriginal-url
whenvariants
formatoutput" srcset=\"~{~A~^, ~}\" sizes=\"~A\""
mapcar
lambda
variantsvariant
showcase-card-sizescapture
formatoutput"></a>"
defunwrite-showcase-video
let*
formatoutput"<video controls loop muted playsinline preload=~A"
ifposter-file"none""metadata"
whenposter-file
formatoutput"><source src=\"~A\" type=\"video/~A\">This browser cannot play the captured video.</video>"
html-escaped
string-downcase
pathname-typefilename
defunwrite-showcase-card
let*
filename
getfcapture:file
kind
getfcapture:kind
figure
getfcapture:figure
layout
showcase-layoutcapture
layout-name
string-downcase
symbol-namelayout
when
safe-showcase-filename-pfilename
formatoutput"<article class=~A><div class=\"media ~A\">"layout-namelayout-name
ecasekind
:image
:video
formatoutput"</div><p class=figure>#~A</p><h2>~A</h2></article>~%"
html-escaped
showcase-titlecapture
defunshowcase-page-html
let*
manifest
captures
revision
with-output-to-string
output
formatoutput"<!doctype html><html lang=en><head><meta charset=utf-8>~%"
formatoutput"<meta name=viewport content=\"width=device-width, initial-scale=1\"><title>Luvcraft showcase</title><style>~%"
formatoutput":root{color-scheme:dark;font-family:ui-monospace,SFMono-Regular,monospace;background:#0d100d;color:#edf0e4}body{margin:0;background:radial-gradient(circle at 80% 0,#29352b,#0d100d 42rem)}main{width:min(76rem,calc(100% - 2rem));margin:auto;padding:4rem 0 8rem}header{max-width:48rem;margin-bottom:3rem}a{color:#f2c28f}p{color:#aeb9a8;line-height:1.55}.grid{display:grid;grid-template-columns:repeat(auto-fit,minmax(min(100%,28rem),1fr));gap:1.5rem}article{overflow:hidden;border:1px solid #455247;border-radius:.8rem;background:#151a15}.media{aspect-ratio:3/2;background:#080a08;display:grid;place-items:center}.media .original,.media img,.media video{display:block;width:100%;height:100%}.media img,.media video{object-fit:cover}.media.portrait{aspect-ratio:9/16;width:min(100%,27rem);margin-inline:auto}.media.portrait img,.media.portrait video{object-fit:contain}article h2,article .figure{margin-left:1.2rem;margin-right:1.2rem}.figure{font-size:.78rem;color:#d49b68;margin-bottom:.3rem}article h2{margin-top:0;margin-bottom:1.2rem;font-size:1.1rem}</style></head><body><main>~%"
formatoutput"<header><p>LUVCRAFT / SHOWCASE</p><h1>Possible worlds, rendered.</h1><p>These stills and films are generated from named Lisp capture recipes. The source stays small; the media is published separately from its rendering machine.</p><p><a href=\"/\">← all little windows</a>"
whenrevision
formatoutput"</p></header>~%"
ifcaptures
progn
formatoutput"<section class=grid>~%"
dolist
capturecaptures
formatoutput"</section>~%"
formatoutput"<p>No capture manifest has been published here yet.</p>~%"
formatoutput"</main></body></html>~%"
defmethodrespond-to-web-request
if
call-next-method
defclass showcase-page
The generated capture catalog mounted beside externally served media. DIRECTORY contains the capture manifest. MEDIA-PATH is the public static URL subtree whose files are served by the deployment edge. #IVRWI8
defclass web-page
A semantic page mounted at one URL subtree.
define-arithmetic-operator and
Logical conjunction of tests and raw truth values.
define-arithmetic-operator or
Logical disjunction of tests and raw truth values.
defun make-showcase-page
(&key directory media-path)defun safe-showcase-filename-p
(filename)defun page
(&optional (text *page*) (name "test"))defun showcase-title
(capture)defun showcase-media-url
(page filename)defun showcase-layout
(capture)defclass layout
How the children of a list are arranged.
defun positive-showcase-dimension
(capture name)defun safe-showcase-variant-p
(variant)defun showcase-card-sizes
(capture)defun write-showcase-image
(output page capture filename)define-arithmetic-operator <
Test whether one compatible scalar is less than another.
defun html-escaped
(string)defun write-showcase-video
(output page capture filename)defun write-showcase-card
(output page capture)define-command figure
(&rest ids)defun showcase-page-html
(page)define-arithmetic-operator min
The minimum of compatible quantities.
defgeneric respond-to-web-request
(receiver path)Return a WEB-RESPONSE for PATH from a web application or mounted page.
defun ok-response
(content-type body)Capture recipes are source; captured media is a cache
Pictures that carry design evidence should be reproducible without making Git the video store. capture-specification is the semantic boundary: a stable name, wiki figure ID, media kind, extension, description, and an ordinary named renderer function. define-capture is only a thin definition-site macro over that…
The published, source-reproducible stills and films of luvcraft.
The web process owns the semantic page and reads the small capture manifest. Caddy owns the large byte responses: annex symlinks remain ordinary static files and never pass through the character HTTP server.