nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

replies to comments now reside in the same div as the parent

Browse source
This commit is contained in:
nek0 2017-01-07 17:02:49 +01:00
parent fe23382d22
commit 6a34da30fd
2 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
eidolon.cabal
View file

@ -1,5 +1,5 @@
name: eidolon name: eidolon
version: 0.1.8.0 version: 0.1.8.1
synopsis: Image gallery in Yesod synopsis: Image gallery in Yesod
homepage: https://eidolon.nek0.eu homepage: https://eidolon.nek0.eu
license: AGPL-3 license: AGPL-3

17
templates/medium.hamlet
View file

@ -53,15 +53,16 @@
<a href=@{CommentReplyR commentId}>Reply to this comment <a href=@{CommentReplyR commentId}>Reply to this comment
$if userId == (Just $ commentAuthor comment) $if userId == (Just $ commentAuthor comment)
<a href=@{CommentDeleteR commentId}>Delete this comment <a href=@{CommentDeleteR commentId}>Delete this comment
$forall (Entity replyId reply) <- replies $forall (Entity replyId reply) <- replies
$if commentParent reply == Just commentId $if commentParent reply == Just commentId
<div .comment .reply .medium>
<a href=@{ProfileR $ commentAuthor reply}>#{fromMaybe "" $ lookup (commentAuthor reply) authors}</a> replied on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
<hr> <hr>
#{commentContent reply} <div .comment .reply>
<hr> <a href=@{ProfileR $ commentAuthor reply}>#{fromMaybe "" $ lookup (commentAuthor reply) authors}</a> replied on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
$if userId == (Just $ commentAuthor reply) <hr>
<a href=@{CommentDeleteR replyId}>Delete this comment #{commentContent reply}
<hr>
$if userId == (Just $ commentAuthor reply)
<a href=@{CommentDeleteR replyId}>Delete this comment
$if userId /= Nothing $if userId /= Nothing
<div .medium> <div .medium>