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