Added comment id into HTML
This commit is contained in:
parent
fcb7ebe455
commit
5f6a8f1de1
3 changed files with 12 additions and 11 deletions
|
@ -60,7 +60,7 @@ neahForComment _ = "X" :: Text
|
|||
|
||||
-- showCommentTree :: Tree (Entity Comment) -> Hamlet
|
||||
showCommentTree tree creators =
|
||||
[hamlet|<li>
|
||||
[hamlet|<li #Comment#{showId commentId}>
|
||||
<div .meta>
|
||||
<div .vote>
|
||||
<div .yeah>#{yeahForComment commentId}
|
||||
|
|
|
@ -14,18 +14,10 @@
|
|||
$else
|
||||
<a class="delete" href=@{EntryR entryId} id="Deltr#{showId entryId}">delete</a>
|
||||
|
||||
<h3> Comments
|
||||
|
||||
$if null comments
|
||||
<p> Be the first to comment
|
||||
$else
|
||||
<div #comments>
|
||||
^{showCommentForest commentForest creators}
|
||||
|
||||
<hr>
|
||||
$if isNothing currentUserId
|
||||
<div #login>
|
||||
<a href=@{AuthR LoginR}> Log in
|
||||
<a href=@{AuthR LoginR}> Log in to comment
|
||||
<div #loginmessage>
|
||||
<div .insidebox>
|
||||
<a href=@{AuthR LoginR}> Log in
|
||||
|
@ -39,3 +31,12 @@ $else
|
|||
<hr>
|
||||
<div #logout>
|
||||
<a href=@{AuthR LogoutR}>Log out
|
||||
|
||||
<h3> Comments
|
||||
|
||||
$if null comments
|
||||
<p> Be the first to comment
|
||||
$else
|
||||
<div #comments>
|
||||
^{showCommentForest commentForest creators}
|
||||
|
||||
|
|
|
@ -177,7 +177,7 @@ form input[type="submit"]:active {
|
|||
border-radius: 2px; }
|
||||
.meta { font-size: .7em; height: 1.7em;}
|
||||
.actions { font-size: .7em; }
|
||||
.content { min-height: 1.5em; }
|
||||
.content { min-height: 1.5em; color: #{base01} }
|
||||
.actions > span:hover {
|
||||
color: #{orange};
|
||||
text-shadow: 0 0 1px #{shadoworange};
|
||||
|
|
Loading…
Reference in a new issue