10 lines
626 B
Common Lisp
10 lines
626 B
Common Lisp
(defun html ()
|
|
(page "natalie sightings" `((section ()
|
|
(h1 () "natalie sightings")
|
|
(p () "these are reasonably rare"
|
|
(br)
|
|
"these photographs are uneditted, some of the cameras that were used to take them are simply quite bad"))
|
|
(section ()
|
|
(flex-grid () ,(exec-command "for file in files/natalie-sightings/*; do echo \"<flex-grid-item>$(img-caption \"/$file\")</flex-grid-item>\"; done"))))))
|
|
|