diff --git a/main.scm b/main.scm index d441318..359a9bd 100755 --- a/main.scm +++ b/main.scm @@ -21,7 +21,7 @@ ) (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 TITLE (or (get-environment-variable "REPO2HTML_TITLE") "git.example.com")) (define DESCRIPTION (or (get-environment-variable "REPO2HTML_DESCRIPTION") "my git repositories")) (define H1 (or (get-environment-variable "REPO2HTML_H1") "git.example.com")) @@ -120,7 +120,7 @@ (define-values (_ _ _ _ relative-root) (pathparts source-file)) `(html (@ lang en) (head - (title ,TITLE) + (title ,(string-append TITLE " - " repository-name)) (meta (@ charset utf-8)) (meta (@ (name viewport) (content "width=device-width, initial-scale-1.0, user-scalable=yes"))) (link (@ (rel icon) (href "data:,")))