comments enabled. doesn't look nice

This commit is contained in:
nek0 2015-01-16 23:01:48 +01:00
parent 737fc7ad0e
commit e1d4e45f85
2 changed files with 36 additions and 34 deletions

View file

@ -4,16 +4,11 @@ img
max-height: 28em !important
width: auto !important
.reply
margin-left: 50px
.comment
background: #d64760 url('/static/css/images/overlay.png')
#comment
margin-top: 5px
padding: 5px
border: 1px solid #ddd
border-radius: 6px
box-shadow: 0 0 3px #c4c4c4
background-color: #f5f5f5
.reply
background: #47d65f url('/static/css/images/overlay.png')
div #main
margin-top: 0 !important

View file

@ -26,10 +26,12 @@
<a href=@{MediumSettingsR mediumId}>Change medium settings
$if null comments
<div id="header" class="item" data-width="300">
<div class="inner">
<p>There are no Comments yet
$else
$forall (Entity commentId comment) <- comments
<div #comment>
<article class="item comment" data-width="300">
<a href=@{ProfileR $ fromJust $ commentAuthor comment}>#{fromJust $ commentAuthorSlug comment}</a> wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
<hr>
#{commentContent comment}
@ -40,7 +42,7 @@
<a href=@{CommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId
<div #comment class="reply">
<article class="item reply">
<a href=@{ProfileR $ fromJust $ commentAuthor reply}>#{fromJust $ commentAuthorSlug reply}</a> wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
<hr>
#{commentContent reply}
@ -49,11 +51,16 @@
<a href=@{CommentDeleteR replyId}>Delete this comment
$if userId /= Nothing
<div id="header" class="item" data-width="300">
<div class="inner">
<form method=post enctype=#{enctype}>
^{commentWidget}
<div>
<input type=submit value="Post comment">
<div id="header" class="item">
<div class="inner">
<h3>
get a feed from this:
<a href=@{CommentFeedAtomR mediumId}>Atom
<a href=@{CommentFeedRssR mediumId}>RSS