Publish issues to the web.

* build-web.scm, style.css: New files.

2 files changed, 66 insertions, 0 deletions

diff --git a/build-web.scm b/build-web.scm
new file mode 100644
index 0000000..c27a25f
--- /dev/null
+++ b/build-web.scm
@@ -0,0 +1,14 @@
+(import (rnrs programs)
+        (ice-9 match)
+        (skribilo engine)
+        (tissue web))
+
+(let ((html-engine (find-engine 'html)))
+  (engine-custom-set! html-engine 'css "/style.css")
+  (match (command-line)
+    ((_ output-directory)
+     (build-website output-directory
+                    #:title "GeneNetwork issue tracker"
+                    #:tags-path "/tags"))
+    (_
+     (error "Invalid command-line usage"))))
diff --git a/style.css b/style.css
new file mode 100644
index 0000000..d6d9520
--- /dev/null
+++ b/style.css
@@ -0,0 +1,52 @@
+h2,h3,h4 {
+    font-family: Lucida Sans Typewriter, Lucida Console, monaco, Bitstream Vera Sans Mono, monospace;
+    color: darkblue;
+    background-color:#F0F8FF;
+}
+
+body {
+    font-family: Palatino, 'Palatino Linotype', serif;
+    color: black;
+    font-size: large;
+}
+
+.tag {
+    padding: 0.25em 0.4em;
+    color: white;
+    background-color: blue;
+    border-radius: 0.5em;
+    margin: auto 0.25em;
+    font-size: 0.75em;
+}
+
+.tag-bug {
+    background-color: red;
+}
+
+.tag-feature {
+    background-color: green;
+}
+
+.tag-progress {
+    background-color: orange;
+    color: black;
+}
+
+.tag-chore {
+    background-color: khaki;
+    color: black;
+}
+
+.issue-list-item {
+    list-style-type: none;
+}
+
+.issue-list-item a {
+    text-decoration: none;
+}
+
+.issue-list-item-metadata {
+    color: dimgray;
+    display: block;
+    font-size: small;
+}