From 76e3c907ee28df60f0ae65caa26d39bab5fbd98b Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Mon, 22 Dec 2014 16:31:34 +0100
Subject: [PATCH] forgot even more files

---
 templates/adminComments.cassius |  2 ++
 templates/adminComments.hamlet  | 25 +++++++++++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 templates/adminComments.cassius
 create mode 100644 templates/adminComments.hamlet

diff --git a/templates/adminComments.cassius b/templates/adminComments.cassius
new file mode 100644
index 0000000..0436876
--- /dev/null
+++ b/templates/adminComments.cassius
@@ -0,0 +1,2 @@
+.reply
+  margin-left: 50px
diff --git a/templates/adminComments.hamlet b/templates/adminComments.hamlet
new file mode 100644
index 0000000..c73b7e3
--- /dev/null
+++ b/templates/adminComments.hamlet
@@ -0,0 +1,25 @@
+$newline never
+<h3>Comments by medium
+
+$if null comments
+  <p>There are no comments yet
+$else
+  $forall (Entity mediumId medium) <- media
+    <pre>
+      <h4>#{mediumTitle medium}
+      <hr>
+      $forall (Entity commentId comment) <- comments
+        $if commentOrigin comment == mediumId
+          <pre>
+            #{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
+            <hr>
+            #{commentContent comment}
+            <a href=@{AdminCommentDeleteR commentId}>Delete this comment
+        $forall (Entity replyId reply) <- replies
+          $if commentParent reply == Just commentId
+            $if commentOrigin reply == mediumId
+              <pre class="reply">
+                #{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
+                <hr>
+                #{commentContent reply}
+                <a href=@{AdminCommentDeleteR replyId}>Delete this comment