introduced parallelism to medium et al

This commit is contained in:
nek0 2015-01-12 21:31:29 +01:00
parent bba4db7795
commit c777812ddd
9 changed files with 40 additions and 26 deletions

View file

@ -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

View file

@ -1,10 +1,12 @@
$newline always
<h3>Delete comment
<div id="header" class="item" data-width="300">
<div class="inner">
<h3>Delete comment
<p>
Do you wish to delete this comment?
<p>
Do you wish to delete this comment?
<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">
<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">

View file

@ -1,9 +1,11 @@
<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>
<form method=post enctype=#{enctype}>
^{replyWidget}
<div>
<input type=submit value="Post reply">
<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>
<form method=post enctype=#{enctype}>
^{replyWidget}
<div>
<input type=submit value="Post reply">

View file

@ -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">

View file

@ -13,3 +13,6 @@ nav li
.center
text-align: center
nav
padding: 1em 2em !important

View file

@ -1,3 +1,6 @@
<head>
^{pageHead wc}
<nav id="header">
<div id="top-nav">
<ul id="user-nav">

View file

@ -1,3 +1,3 @@
#main, #reel, #header
overflow: auto !important
overflow-y: auto !important
height: auto !important

View file

@ -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

View file

@ -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}>