From 0be7fa05f804b18e13994b9a0f237d70f3d7b4c7 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sun, 13 Oct 2019 19:19:24 +0000
Subject: [PATCH] In Push activity summary, list the titles of the pushed
 commits

---
 src/Vervis/Handler/Repo.hs | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/src/Vervis/Handler/Repo.hs b/src/Vervis/Handler/Repo.hs
index a9b16fc..235ebec 100644
--- a/src/Vervis/Handler/Repo.hs
+++ b/src/Vervis/Handler/Repo.hs
@@ -498,13 +498,28 @@ postPostReceiveR = do
     summary <- do
         let mbranch = H.pushBranch push
             total = pushCommitsTotal pushAP
+            lasts = pushCommitsLast pushAP
+            rest firsts = total - length firsts - length lasts
+            hashText (Hash b) = decodeUtf8 b
+            commitW c =
+                [hamlet|
+                    <a href=@{RepoPatchR shr rp $ hashText $ commitHash c}>
+                      #{commitTitle c}
+                |]
         withUrlRenderer
             [hamlet|
                 <p>
-                    <a href=@{SharerR shrUser}>#{shr2text shrUser}
-                    \ pushed #{total} #
-                    \ #{commitsText mbranch total} to repo #
-                    <a href=@{RepoR shr rp}>#{rp2text rp}</a>^{branchText shr rp mbranch}.
+                  <a href=@{SharerR shrUser}>#{shr2text shrUser}
+                  \ pushed #{total} #
+                  \ #{commitsText mbranch total} to repo #
+                  <a href=@{RepoR shr rp}>#{rp2text rp}</a>^{branchText shr rp mbranch}:
+                <ul>
+                  $maybe firsts <- pushCommitsFirst pushAP
+                    $forall c <- firsts
+                      <li>^{commitW c}
+                    <li>#{rest firsts}
+                  $forall c <- lasts
+                    <li>^{commitW c}
             |]
     eid <- pushCommitsC user summary pushAP shr rp
     case eid of