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 max-height: 28em !important
width: auto !important width: auto !important
.reply .comment
margin-left: 50px background: #d64760 url('/static/css/images/overlay.png')
#comment .reply
margin-top: 5px background: #47d65f url('/static/css/images/overlay.png')
padding: 5px
border: 1px solid #ddd
border-radius: 6px
box-shadow: 0 0 3px #c4c4c4
background-color: #f5f5f5
div #main div #main
margin-top: 0 !important margin-top: 0 !important

View file

@ -25,38 +25,45 @@
$if presence == True $if presence == True
<a href=@{MediumSettingsR mediumId}>Change medium settings <a href=@{MediumSettingsR mediumId}>Change medium settings
$if null comments $if null comments
<div id="header" class="item" data-width="300">
<div class="inner">
<p>There are no Comments yet <p>There are no Comments yet
$else $else
$forall (Entity commentId comment) <- comments $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}: <a href=@{ProfileR $ fromJust $ commentAuthor comment}>#{fromJust $ commentAuthorSlug comment}</a> wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
<hr>
#{commentContent comment}
$if userId /= Nothing
<hr>
<a href=@{CommentReplyR commentId}>Reply to this comment
$if userId == (commentAuthor comment)
<a href=@{CommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId
<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> <hr>
#{commentContent comment} #{commentContent reply}
$if userId /= Nothing <hr>
<hr> $if userId == (commentAuthor comment)
<a href=@{CommentReplyR commentId}>Reply to this comment <a href=@{CommentDeleteR replyId}>Delete this comment
$if userId == (commentAuthor comment)
<a href=@{CommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId
<div #comment class="reply">
<a href=@{ProfileR $ fromJust $ commentAuthor reply}>#{fromJust $ commentAuthorSlug reply}</a> wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
<hr>
#{commentContent reply}
<hr>
$if userId == (commentAuthor comment)
<a href=@{CommentDeleteR replyId}>Delete this comment
$if userId /= Nothing $if userId /= Nothing
<div id="header" class="item" data-width="300">
<div class="inner">
<form method=post enctype=#{enctype}> <form method=post enctype=#{enctype}>
^{commentWidget} ^{commentWidget}
<div> <div>
<input type=submit value="Post comment"> <input type=submit value="Post comment">
get a feed from this: <div id="header" class="item">
<a href=@{CommentFeedAtomR mediumId}>Atom <div class="inner">
<a href=@{CommentFeedRssR mediumId}>RSS <h3>
get a feed from this:
<a href=@{CommentFeedAtomR mediumId}>Atom
<a href=@{CommentFeedRssR mediumId}>RSS
<style type="text/css"> <style type="text/css">
body{background-image: url('/static/css/images/overlay.png'), -webkit-linear-gradient(top, rgba(0,0,0,0) 75%, rgba(0,0,0,0.65)), url('#{mediumPath medium}');} body{background-image: url('/static/css/images/overlay.png'), -webkit-linear-gradient(top, rgba(0,0,0,0) 75%, rgba(0,0,0,0.65)), url('#{mediumPath medium}');}