From 61246b595f5483f44e9d75af412b7de8fd1b3063 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Thu, 5 Dec 2019 20:28:19 -0500 Subject: [PATCH] tweak license info and footer --- haunt.scm | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/haunt.scm b/haunt.scm index f1fe078..c5e13e7 100644 --- a/haunt.scm +++ b/haunt.scm @@ -18,6 +18,7 @@ (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") @@ -38,10 +39,11 @@ (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*) @@ -103,8 +105,7 @@ 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 " @@ -230,9 +231,10 @@ (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") -- 2.20.1