introduced parallelism to medium et al
This commit is contained in:
nek0
parent
bba4db7795
commit
c777812ddd
9 changed files with 40 additions and 26 deletions
|
|
@ -102,7 +102,7 @@ getCommentReplyR commentId = do
|
|||
userSl <- return $ Just $ userSlug u
|
||||
mediumId <- return $ commentOrigin comment
|
||||
(replyWidget, enctype) <- generateFormPost $ commentForm userId userSl mediumId (Just commentId)
|
||||
defaultLayout $ do
|
||||
formLayout $ do
|
||||
setTitle "Eidolon :: Reply to comment"
|
||||
$(widgetFile "commentReply")
|
||||
Nothing -> do
|
||||
|
|
@ -179,7 +179,7 @@ getCommentDeleteR commentId = do
|
|||
presence <- return $ (Just userId) == (commentAuthor comment)
|
||||
case presence of
|
||||
True -> do
|
||||
defaultLayout $ do
|
||||
formLayout $ do
|
||||
setTitle "Eidolon :: Delete comment"
|
||||
$(widgetFile "commentDelete")
|
||||
False -> do
|
||||
|
|
|
|||
|
|
@ -1,10 +1,12 @@
|
|||
$newline always
|
||||
<h3>Delete comment
|
||||
<div id="header" class="item" data-width="300">
|
||||
<div class="inner">
|
||||
<h3>Delete comment
|
||||
|
||||
<p>
|
||||
<p>
|
||||
Do you wish to delete this comment?
|
||||
|
||||
<form method="POST" action=@{CommentDeleteR commentId}>
|
||||
<form method="POST" action=@{CommentDeleteR commentId}>
|
||||
<label for="confirm">Really delete this comment
|
||||
<input type="checkbox" id="confirm" name="confirm" value="confirm" required>
|
||||
<input id="delete" type="submit" value="Delete comment">
|
||||
|
|
|
|||
|
|
@ -1,8 +1,10 @@
|
|||
<h4>Reply to comment
|
||||
<strong>#{fromJust $ commentAuthorSlug comment}</strong> posted on #{formatTime defaultTimeLocale "%A %F %H:%M" (commentTime comment)}:
|
||||
<hr>
|
||||
<div id="header" class="item" data-width="600">
|
||||
<div class="inner">
|
||||
<h4>Reply to comment
|
||||
<strong>#{fromJust $ commentAuthorSlug comment}</strong> posted on #{formatTime defaultTimeLocale "%A %F %H:%M" (commentTime comment)}:
|
||||
<hr>
|
||||
<p>#{markdownToHtml $ commentContent comment}
|
||||
<hr>
|
||||
<hr>
|
||||
<form method=post enctype=#{enctype}>
|
||||
^{replyWidget}
|
||||
<div>
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@ $doctype 5
|
|||
<head>
|
||||
<meta charset="UTF-8">
|
||||
|
||||
<title>#{pageTitle pc}
|
||||
<title>#{pageTitle wc}
|
||||
<meta name="description" content="">
|
||||
<meta name="author" content="">
|
||||
|
||||
|
|
@ -15,8 +15,8 @@ $doctype 5
|
|||
<link rel="stylesheet" href=@{StaticR css_style_desktop_css} />
|
||||
<link rel="stylesheet" href=@{StaticR css_style_noscript_css} />
|
||||
|
||||
^{pageHead wc}
|
||||
^{pageHead pc}
|
||||
^{pageHead wc}
|
||||
|
||||
<body>
|
||||
<div id="wrapper">
|
||||
|
|
|
|||
|
|
@ -13,3 +13,6 @@ nav li
|
|||
|
||||
.center
|
||||
text-align: center
|
||||
|
||||
nav
|
||||
padding: 1em 2em !important
|
||||
|
|
|
|||
|
|
@ -1,3 +1,6 @@
|
|||
<head>
|
||||
^{pageHead wc}
|
||||
|
||||
<nav id="header">
|
||||
<div id="top-nav">
|
||||
<ul id="user-nav">
|
||||
|
|
|
|||
|
|
@ -1,3 +1,3 @@
|
|||
#main, #reel, #header
|
||||
overflow: auto !important
|
||||
overflow-y: auto !important
|
||||
height: auto !important
|
||||
|
|
|
|||
|
|
@ -12,3 +12,7 @@ img
|
|||
border-radius: 6px
|
||||
box-shadow: 0 0 3px #c4c4c4
|
||||
background-color: #f5f5f5
|
||||
|
||||
div #main
|
||||
margin-top: 0 !important
|
||||
top : 20% !important
|
||||
|
|
|
|||
|
|
@ -4,11 +4,10 @@
|
|||
|
||||
by <a href=@{UserR ownerName}>#{ownerName}</a> from album <a href=@{AlbumR albumId}>#{albumTitle album}</a>
|
||||
|
||||
|
||||
|
||||
<img src=#{mediumPath medium}>
|
||||
|
||||
|
||||
<div id="header" class="item" data-width="400">
|
||||
<div class="inner">
|
||||
<div class="desc">
|
||||
Uploaded on: #{formatTime defaultTimeLocale "%A %F %H:%M" (mediumTime medium)}<br>
|
||||
Description:<br>
|
||||
|
|
@ -39,14 +38,15 @@
|
|||
<a href=@{CommentReplyR commentId}>Reply to this comment
|
||||
$if userId == (commentAuthor comment)
|
||||
<a href=@{CommentDeleteR commentId}>Delete this comment
|
||||
$forall (Entity _ reply) <- replies
|
||||
$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 commentId}>Delete this comment
|
||||
<a href=@{CommentDeleteR replyId}>Delete this comment
|
||||
|
||||
$if userId /= Nothing
|
||||
<form method=post enctype=#{enctype}>
|
||||
|
|
|
|||
Loading…
Reference in a new issue