avoid repeating the site url

diff --git a/haunt.scm b/haunt.scm
index db736a6..c51ecf8 100644 (file)
--- 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")