From f433a6b28ab0dab4c66a5ec9d315b58dcfa10520 Mon Sep 17 00:00:00 2001 From: m455 Date: Wed, 14 Dec 2022 10:25:24 -0500 Subject: [PATCH] Added a ' - ' to the title of html documents, so tabs in web browsers have a unique name --- main.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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:,")))