diff --git a/main.scm b/main.scm index 7612927..16975c2 100755 --- a/main.scm +++ b/main.scm @@ -14,11 +14,10 @@ (clojurian syntax) ) -(define WEB-DIRECTORY (or (get-environment-variable "GIT_WWW") "/var/www/git")) -(define CLONE-URL (or (get-environment-variable "GIT_WWW_CLONE_URL") "git://git.example.com")) -(define TITLE (or (get-environment-variable "GIT_WWW_TITLE") "my git repositories")) -(define DESCRIPTION (or (get-environment-variable "GIT_WWW_DESCRIPTION") "my git repositories")) -(define H1 (or (get-environment-variable "GIT_WWW_H1") "git.example.com")) +(define CLONE-URL (or (get-environment-variable "REPO2HTML_CLONE_URL") "git://git.example.com")) +(define TITLE (or (get-environment-variable "REPO2HTML_TITLE") "my git repositories")) +(define DESCRIPTION (or (get-environment-variable "REPO2HTML_DESCRIPTION") "my git repositories")) +(define H1 (or (get-environment-variable "REPO2HTML_H1") "git.example.com")) (define (populate-html-template repo-name display-body-thunk) (display #<#string-block