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