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))
 
              (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")))))
 (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 "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)
          ,(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")
        " ]"))
             " 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/")))
          ,(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"
   (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")
      (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"))))))
 
       (li (del ,(aa "bandali0" "https://twitter.com/bandali0")
                " on Twitter"))))))
 

-(define my-domain "bandali.eu.org")
-

 (site #:title "Amin Bandali"
 (site #:title "Amin Bandali"

+      ;; TODO: uncomment after new haunt release
+      ;; #:scheme my-scheme

       #:domain my-domain
       #:default-metadata
       '((author . "Amin Bandali")
       #:domain my-domain
       #:default-metadata
       '((author . "Amin Bandali")