Support for some kinds of links

2 files changed, 21 insertions, 0 deletions

diff --git a/provider/css/default.css b/provider/css/default.css
index b8d562c..36cbb72 100644
--- a/provider/css/default.css
+++ b/provider/css/default.css
@@ -67,6 +67,26 @@ a {
     color:inherit;
 }
 
+header ul.links {
+    padding:1em 0 0 0;
+    margin:1em 0 0 0;
+    border-top:2px solid #f0f0f0;
+    display:block;
+    list-style:none outside none;
+}
+
+header ul.links:empty { display:none; }
+
+header ul.links li {
+    margin:0;
+    padding:0;
+    display:inline;
+}
+
+header ul.links li:after { content:", "; }
+
+header ul.links li:last-child:after { content: ""; }
+
 p {
     margin-top:1em;
     margin-bottom:0;
diff --git a/provider/templates/default.html b/provider/templates/default.html
index 7cc15f4..ffdd5e2 100644
--- a/provider/templates/default.html
+++ b/provider/templates/default.html
@@ -18,6 +18,7 @@
 <header>
   <h1 class="title"><a href="/" title="dirty-haskell.org">dirty-haskell.org</a>$if(title)$: $title$$endif$</h1>
   <h2 class="subtitle">It's not crazy — it's having fun with types.</h2>
+  <ul class="links">$if(repo)$<li><a href="$repo$">Code repository</a></li>$endif$$if(base)$<li><a href="$base$">Base file</a></li>$endif$</ul>
 </header>
 $body$
 <footer>