a little footer

README.md

@@ -63,7 +63,7 @@ TODO
 - **feature**: customizable templates
 - **feature**: display binary files as output from binary-file analysis tools like hexdump, xxd, dumpelf, elfls, readelf, etc.?
 - **feature**: syntax highlighting?
-- **bug**: markdown-render and/or html-escape git log text
+- **feature**: markdown-render git log text
 
 ## license: agpl-3.0+
 

main.scm

@@ -89,6 +89,10 @@
       padding: 0em .5em;
       vertical-align: top;
   }
+  footer {
+    text-align: right;
+    font-size: small;
+  }
   #file-path {
     /* change this to your liking */
   }")
@@ -123,7 +127,9 @@
           (a (@ href ,relative-root "commits.html") "commits")
           (a (@ href ,relative-root "contributors.html") "contributors")))
         (hr)
-        ,body-sxml))))
+        ,body-sxml
+        (hr)
+        (footer (p "Generated by " (a (@ href "https://git.m455.casa/repo2html/") "repo2html")))))))
 
 (define (in-git-directory?)
   (not (eof-object? (call-with-input-pipe "git rev-parse --git-dir" read-line))))