From 979156b8aebfcf1889ff353cf3545b952bedcef9 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Tue, 12 Apr 2016 23:09:52 +0000
Subject: [PATCH] Make the homepage repo table a bit more friendly

---
 src/Vervis/Handler/Home.hs |  2 +-
 templates/homepage.hamlet  | 19 +++++++++++++++----
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/src/Vervis/Handler/Home.hs b/src/Vervis/Handler/Home.hs
index d577501..54df127 100644
--- a/src/Vervis/Handler/Home.hs
+++ b/src/Vervis/Handler/Home.hs
@@ -52,7 +52,7 @@ intro = do
             ago <- case mdt of
                 Nothing -> return "never"
                 Just dt -> timeAgo dt
-            return (sharer, fromMaybe "(none)" mproj, repo, ago)
+            return (sharer, mproj, repo, ago)
     defaultLayout $ do
         setTitle "Welcome to Vervis!"
         $(widgetFile "homepage")
diff --git a/templates/homepage.hamlet b/templates/homepage.hamlet
index 679a6e2..91aae82 100644
--- a/templates/homepage.hamlet
+++ b/templates/homepage.hamlet
@@ -25,11 +25,22 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
 <h2>Repos
 
 <table>
-  $forall (sharer, proj, repo, ago) <- rows
+  <tr>
+    <th>Sharer
+    <th>Project
+    <th>Repo
+    <th>Last change
+  $forall (sharer, mproj, repo, ago) <- rows
     <tr>
-      <td>#{sharer}
-      <td>#{proj}
-      <td>#{repo}
+      <td>
+        <a href=@{PersonR sharer}>#{sharer}
+      <td>
+        $maybe proj <- mproj
+          <a href=@{ProjectR sharer proj}>#{proj}
+        $nothing
+          (none)
+      <td>
+        <a href=@{RepoR sharer repo}>#{repo}
       <td>#{ago}
 
 <h2>People