Fixed environment variables and removed WEB-DIRECTORY environment variable
This commit is contained in:
parent
c4239e4a82
commit
a67a26548f
1 changed files with 4 additions and 5 deletions
9
main.scm
9
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
|
||||
|
|
Loading…
Reference in a new issue