From 0ff25833a0af34a7bf4423f42ad0b9c626d7f7ae Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 19 Oct 2019 10:52:10 +0000
Subject: [PATCH] UI: In project page, display a link bar

---
 templates/project/one.hamlet | 71 +++++++++++++++++++++---------------
 1 file changed, 41 insertions(+), 30 deletions(-)

diff --git a/templates/project/one.hamlet b/templates/project/one.hamlet
index d55f65c..69a27db 100644
--- a/templates/project/one.hamlet
+++ b/templates/project/one.hamlet
@@ -12,25 +12,49 @@ $# You should have received a copy of the CC0 Public Domain Dedication along
 $# with this software. If not, see
 $# <http://creativecommons.org/publicdomain/zero/1.0/>.
 
+<div>
+  <span>
+    $maybe name <- projectName project
+      #{name}
+    $nothing
+      #{prj2text proj}
+  $maybe desc <- projectDesc project
+    -
+    <span>#{desc}
+
+<div>
+  <span>
+    <a href=@{ProjectInboxR shar proj}>
+      [📥 Inbox]
+  <span>
+    <a href=@{ProjectOutboxR shar proj}>
+      [📤 Outbox]
+  <span>
+    <a href=@{ProjectFollowersR shar proj}>
+      [🐤 Followers]
+  <span>
+    <a href=@{ProjectDevsR shar proj}>
+      [🤝 Collaborators]
+  <span>
+    <a href=@{TicketsR shar proj}>
+      [🐛 Tickets]
+  <span>
+    <a href=@{ClaimRequestsProjectR shar proj}>
+      [✋ Ticket claim requests]
+  <span>
+    [🔁Ticket workflow:
+    ^{workflowLinkW wsharer workflow}]
+  <span>
+    $maybe _wiki <- projectWiki project
+      <a href=@{WikiPageR shar proj []}>
+        [📖 Wiki]
+    $nothing
+      [No wiki]
+
 ^{followButton}
 
-<p>
-  <a href=@{ProjectEditR shar proj}>Edit this project
-
-<ul>
-  <li>
-    Human-friendly name: #{fromMaybe "(none)" $ projectName project}
-  <li>
-    Description: #{fromMaybe "(none)" $ projectDesc project}
-  <li>
-    <a href=@{TicketsR shar proj}>Tickets
-  <li>
-    <a href=@{ClaimRequestsProjectR shar proj}>Ticket claim requests
-
-<h2>Collaborators
-
-<p>
-  <a href=@{ProjectDevsR shar proj}>Collaborators
+<div>
+  <a href=@{ProjectEditR shar proj}>Edit
 
 <h2>Repos
 
@@ -56,16 +80,3 @@ $else
         <td>
           $maybe desc <- repoDesc repository
             #{desc}
-
-<h2>Ticket workflow
-
-<p>
-  ^{workflowLinkW wsharer workflow}
-
-<h2>Wiki
-
-<p>
-  $maybe _wiki <- projectWiki project
-    <a href=@{WikiPageR shar proj []}>Wiki
-  $nothing
-    This project doesn’t have a wiki.