(string-append (symbol->string my-scheme) "://" my-domain))
(define my-date-format "~B ~d, ~Y")
+(define license-page-title "Licensing Information")
(define (stylesheet name)
`(link (@ (rel "stylesheet")
(body
(main ,body)
(footer
- (p
- "Copyright 2016–2019 Amin Bandali. See "
- ,(aa "license.html" "/license.html") " for license "
- "conditions. Please copy and share."))))))
+ (p "Copyright © 2016–2019 Amin Bandali. See "
+ ,(if (and (string? title)
+ (string=? title license-page-title))
+ "the above" (aa "license.html" "/license.html"))
+ " for license conditions. Please copy and share."))))))
(register-metadata-parser! 'updated string->date*)
sxml->html)))
(define (index-material site posts)
- `(div
- (h1 (@ (style "font-size: 0;"))
+ `((h1 (@ (style "font-size: 0;"))
"Amin Bandali")
(p (@ (style "margin-top: 0;"))
"Hi, I’m "
(define license-page
(static-page
- "Licensing Information"
+ license-page-title
"license.html"
- `((h1 "License information for " ,my-domain)
+ `((h1 "License information for "
+ ,(aa my-domain my-url))
(p "I strongly believe in "
,(aa "free culture"
"https://questioncopyright.org/what_is_free_culture")