From a67a26548f7f984e40aeac87566477546e067e14 Mon Sep 17 00:00:00 2001 From: m455 Date: Wed, 7 Dec 2022 15:32:06 -0500 Subject: [PATCH] Fixed environment variables and removed WEB-DIRECTORY environment variable --- main.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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