github/repo2html
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

html templating using ml string w/expressions

Browse source 
http://wiki.call-cc.org/man/5/Extensions%20to%20the%20standard#multiline-string-constant-with-embedded-expressions
This commit is contained in:
pho4cexa 2022-12-02 14:54:10 -08:00 committed by m455
parent 663be9e77c
commit 1165ba3342
1 changed files with 12 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
main.scm
View file

@ -52,24 +52,23 @@
(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 HTML-TEMPLATE
#<<string-block
(define (populate-html-template body)
#<#string-block
<!DOCTYPE html>
<html lang="en">
<head>
<title>{{title}}</title>
<title>#{TITLE}</title>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes" />
<link rel="icon" href="data:,">
<meta name="description" content="{{description}}"/>
<meta name="description" content="#{DESCRIPTION}"/>
<style>
body {
margin: 0 auto;
max-width: 700px;
}
pre {
background-color: #ffd9df;
background-color: ##ffd9df;
padding: 15px 20px;
white-space: pre;
overflow: scroll;
@ -81,21 +80,21 @@ hr {
border-bottom: 1px solid black;
margin-top: 16px;
}
#file-path {
##file-path {
/* change this to your liking */
}
</style>
</head>
<body>
<h1>{{h1}}</h1>
<h2>{{repository-name}}</h2>
<p>clone url: {{clone-url}}/{{repository-name}}</p>
<h1>#{H1}</h1>
<h2>#{*repository-name*}</h2>
<p>clone url: #{CLONE-URL}/#{*repository-name*}</p>
<nav>
<a href="/{{repository-name}}/index.html">about</a>
<a href="/{{repository-name}}/files.html">files</a>
<a href="/#{*repository-name*}/index.html">about</a>
<a href="/#{*repository-name*}/files.html">files</a>
</nav>
<hr>
{{body-contents}}
#{body}
</body>
</html>
string-block
@ -104,17 +103,6 @@ string-block
(define (write-file file contents)
(with-output-to-file file (lambda () (display contents))))
(define (populate-html-template body-contents)
(string-translate*
HTML-TEMPLATE
`(
("{{title}}" . ,TITLE)
("{{description}}" . ,DESCRIPTION)
("{{h1}}" . ,H1)
("{{clone-url}}" . ,CLONE-URL)
("{{repository-name}}" . ,*repository-name*)
("{{body-contents}}" . ,body-contents))))
(define (in-git-directory?)
(if (equal? (call-with-input-pipe "git rev-parse --is-bare-repository 2> /dev/null" read-line) "true")
#t