Make the homepage repo table a bit more friendly

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")

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>
-      <td>#{proj}
+        <a href=@{PersonR sharer}>#{sharer}
-      <td>#{repo}
+      <td>
+        $maybe proj <- mproj
+          <a href=@{ProjectR sharer proj}>#{proj}
+        $nothing
+          (none)
+      <td>
+        <a href=@{RepoR sharer repo}>#{repo}
       <td>#{ago}
 
 <h2>People