From 955f7444f687e6b83deb9ed0735199a9220f5155 Mon Sep 17 00:00:00 2001
From: Jason Harrer <jazzyeagle79@gmail.com>
Date: Sun, 8 Dec 2019 14:47:38 +0000
Subject: [PATCH] Discussion Tree View Improvements

---
 src/Vervis/Widget/Discussion.hs             |  2 +-
 templates/discussion/widget/message.cassius | 29 +++++++++++++++++++++
 templates/discussion/widget/message.hamlet  | 29 ++++++++++++---------
 templates/discussion/widget/tree.cassius    |  2 +-
 templates/discussion/widget/tree.hamlet     |  2 +-
 5 files changed, 48 insertions(+), 16 deletions(-)
 create mode 100644 templates/discussion/widget/message.cassius

diff --git a/src/Vervis/Widget/Discussion.hs b/src/Vervis/Widget/Discussion.hs
index 7f4be1e..73fc751 100644
--- a/src/Vervis/Widget/Discussion.hs
+++ b/src/Vervis/Widget/Discussion.hs
@@ -74,7 +74,7 @@ messageTreeW reply cReplies now t = go t
     go (Node mtn trees) = do
         messageW now mtn reply
         [whamlet|
-            <div .#{cReplies}>
+            <ul .#{cReplies}>
               $forall tree <- trees
                 ^{go tree}
         |]
diff --git a/templates/discussion/widget/message.cassius b/templates/discussion/widget/message.cassius
new file mode 100644
index 0000000..7b99836
--- /dev/null
+++ b/templates/discussion/widget/message.cassius
@@ -0,0 +1,29 @@
+.message
+  list-style-type: none
+  background-color: #333
+  border-radius: 10px
+  margin-top: 1rem
+  margin-bottom: 1rem
+  margin-right: 0.25rem
+  margin-left: -3rem
+  padding: 1rem
+
+.griddiv
+  display: grid 
+  grid-template-columns: 1fr 1fr 1fr
+  justify-items: stretch
+
+.author
+   grid-area: 1 / 1 / 1 / 1
+
+.time
+  grid-area: 1 / 3 / 1 / 3
+  text-align: right
+
+.content
+  grid-area: 2 / 1 / 3 / 4
+  text-align: left
+  vertical-align: top
+
+.reply
+  grid-area: 4 / 1 / 4 / 1
diff --git a/templates/discussion/widget/message.hamlet b/templates/discussion/widget/message.hamlet
index be5b8e3..27579a5 100644
--- a/templates/discussion/widget/message.hamlet
+++ b/templates/discussion/widget/message.hamlet
@@ -12,16 +12,19 @@ $# 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/>.
 
-^{actorLinkW author}
-<div>
-  $case author
-    $of MessageTreeNodeLocal lmid s
-      <a href=@{MessageR (sharerIdent s) (encodeHid lmid)}>
-        #{showTime $ messageCreated msg}
-    $of MessageTreeNodeRemote h luMsg _luAuthor _mname
-      <a href="#{renderObjURI $ ObjURI h luMsg}"}>
-        #{showTime $ messageCreated msg}
-<div>
-  ^{showContent $ messageContent msg}
-<div>
-  <a href=@{reply msgid}>reply
+<li .message>
+  <div .griddiv>
+    <span .author>
+      ^{actorLinkW author}
+    <span .time>
+      $case author
+        $of MessageTreeNodeLocal lmid s
+          <a href=@{MessageR (sharerIdent s) (encodeHid lmid)}>
+            #{showTime $ messageCreated msg}
+        $of MessageTreeNodeRemote h luMsg _luAuthor _mname
+          <a href="#{renderObjURI $ ObjURI h luMsg}"}>
+            #{showTime $ messageCreated msg}
+    <span .content>
+      ^{showContent $ messageContent msg}
+    <span .reply>
+      <a href=@{reply msgid}>reply
diff --git a/templates/discussion/widget/tree.cassius b/templates/discussion/widget/tree.cassius
index 6b4f392..7eae97b 100644
--- a/templates/discussion/widget/tree.cassius
+++ b/templates/discussion/widget/tree.cassius
@@ -14,4 +14,4 @@
  */
 
 .#{cReplies}
-    margin-left: 2em
+    margin-left: 1em
diff --git a/templates/discussion/widget/tree.hamlet b/templates/discussion/widget/tree.hamlet
index ee6ac9d..76d25f2 100644
--- a/templates/discussion/widget/tree.hamlet
+++ b/templates/discussion/widget/tree.hamlet
@@ -15,6 +15,6 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
 <div>
   <a href=@{topic}>new topic
 
-<div>
+<ul .tree>
   $forall tree <- forest
     ^{msgTree tree}