eidolon/templates/adminComments.hamlet

29 lines
1.1 KiB
Plaintext
Raw Normal View History

2014-12-22 15:31:34 +00:00
$newline never
2016-09-02 13:55:50 +00:00
<div .column>
<div .subheader .medium>
2015-01-17 13:55:40 +00:00
<h1>Comments by medium
2014-12-22 15:31:34 +00:00
2016-09-02 13:55:50 +00:00
$if null comments
<div .subheader .medium>
2015-01-17 13:55:40 +00:00
<p>There are no comments yet
2016-09-02 13:55:50 +00:00
$else
$forall (Entity mediumId medium) <- media
<div .subheader .medium>
2015-01-17 13:58:39 +00:00
<h3>#{mediumTitle medium}
2016-09-02 13:55:50 +00:00
$forall (Entity commentId comment) <- comments
$if commentOrigin comment == mediumId
<div .medium .comment>
#{fromMaybe "" $ lookup (commentAuthor comment) authors} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
2016-09-02 13:55:50 +00:00
<hr>
#{commentContent comment}
<a href=@{AdminCommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId
$if commentOrigin reply == mediumId
<div .medium .comment .reply>
#{fromMaybe "" $ lookup (commentAuthor comment) authors} wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
2016-09-02 13:55:50 +00:00
<hr>
#{commentContent reply}
<a href=@{AdminCommentDeleteR replyId}>Delete this comment