From 8c2dfb465c044b15b38ce0f4cc48ee9431fa2a4f Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Fri, 29 Nov 2019 20:32:51 -0500 Subject: [PATCH] avoid repeating the site url --- haunt.scm | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/haunt.scm b/haunt.scm index db736a6..c51ecf8 100644 --- a/haunt.scm +++ b/haunt.scm @@ -12,6 +12,11 @@ (ice-9 match) (srfi srfi-19)) +(define my-scheme 'https) +(define my-domain "bandali.eu.org") +(define my-url + (string-append (symbol->string my-scheme) "://" my-domain)) + (define (stylesheet name) `(link (@ (rel "stylesheet") (href ,(string-append "/" name ".css"))))) @@ -145,7 +150,7 @@ " [ " ,(aa "pdf" "papers/modre2018-declarative.pdf") " | " ,(aa "bib" "papers/modre2018-declarative.bib") " ]")) (dd "Ali Abbassi, " - ,(aa "Amin Bandali" "https://bandali.eu.org") ", " + ,(aa "Amin Bandali" my-url) ", " ,(aa "Nancy A. Day" "https://cs.uwaterloo.ca/~nday/") ", " "Jose Serna" (br) @@ -169,7 +174,7 @@ " Research Conference,\n" "York University, Toronto, Canada, August 15, 2017") " ]")) - (dd ,(aa "Amin Bandali" "https://bandali.eu.org") ", " + (dd ,(aa "Amin Bandali" my-url) ", " ,(aa "Simon Hudon" "https://github.com/cipher1024") ", " ,(aa "Jonathan S. Ostroff" "http://www.cse.yorku.ca/~jonathan/"))) @@ -212,7 +217,7 @@ (static-page "Licensing Information" "license.html" - `((h1 "License information for bandali.eu.org") + `((h1 "License information for " ,my-domain) (p "I strongly believe in " ,(aa "free culture" "https://questioncopyright.org/what_is_free_culture") @@ -297,9 +302,9 @@ (li (del ,(aa "bandali0" "https://twitter.com/bandali0") " on Twitter")))))) -(define my-domain "bandali.eu.org") - (site #:title "Amin Bandali" + ;; TODO: uncomment after new haunt release + ;; #:scheme my-scheme #:domain my-domain #:default-metadata '((author . "Amin Bandali") -- 2.20.1