25 lines
1.2 KiB
Scheme
25 lines
1.2 KiB
Scheme
;;; site/meta/27x81.scm
|
|
|
|
(import "util.scm")
|
|
|
|
(define title "27x81 Collection")
|
|
|
|
(define banners
|
|
`(("snit.svg" "snit" . ,(build-uri/capsule ""))
|
|
("vel.png" "vel" . ,(build-uri 'https #:host "vel.fsky.io"))
|
|
("nyx.png" "nyx" . ,(build-uri 'https #:host "nyx.ip-logger.com"))
|
|
("leskinen.png" "leskinen" . #f)
|
|
("midgard.png" "midgard" . ,(build-uri 'http #:host "300:5506:25eb:d0d9::"))
|
|
("pi-im.svg" "pi-im" . ,(build-uri 'https #:host "forge.sunglocto.net"
|
|
#:path "/sunglocto/pi-im"))
|
|
("xmpp.svg" "xmpp" . ,(build-uri 'https #:host "xmpp.org"))))
|
|
|
|
`(,@(import "header.scm")
|
|
(q "As with any collection of images, this page is best viewed on the web. Gemini users may prefer the following vaguely similar page:")
|
|
(a ,(build-relative-ref #:path (join-path 'suffix ".." "links")) "Link Garden")
|
|
(p)
|
|
,@(append-map (lambda (banner)
|
|
(let ((file (car banner)) (name (cadr banner)) (link (cddr banner)))
|
|
`((a ,(build-uri/capsule "media" "27x81" file) ,name)
|
|
,@(if link `((a ,link ,name)) '()))))
|
|
banners))
|