eidolon/templates/adminComments.hamlet

26 lines
1 KiB
Text
Raw Normal View History

2014-12-22 15:31:34 +00:00
$newline never
<h3>Comments by medium
$if null comments
<p>There are no comments yet
$else
$forall (Entity mediumId medium) <- media
2014-12-28 02:36:25 +00:00
<div #mediabox>
2014-12-22 15:31:34 +00:00
<h4>#{mediumTitle medium}
<hr>
$forall (Entity commentId comment) <- comments
$if commentOrigin comment == mediumId
2014-12-28 02:36:25 +00:00
<div #comment>
2014-12-22 15:31:34 +00:00
#{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
2014-12-28 02:36:25 +00:00
<div #comment class="reply">
2014-12-22 15:31:34 +00:00
#{fromJust $ commentAuthorSlug comment} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
<hr>
#{commentContent reply}
<a href=@{AdminCommentDeleteR replyId}>Delete this comment