* further work on Bootstrapping

This commit is contained in:
"Vincent Ambo ext:(%22) 2013-05-05 19:57:46 +02:00
parent 287f7fda8c
commit 514d2b2777
2 changed files with 56 additions and 45 deletions

View file

@ -123,9 +123,10 @@ renderEntries showAll entries topText footerLinks = [shamlet|
<div .row>
<div .span12>
<p>
<span class="innerTitle">#{topText}
<span class="innerTitle">
<b>#{topText}
$forall entry <- elist
<div .row >
<div .row>
<div .span2>
<a #bar href=#{linkElems entry}>
<b>#{title entry}
@ -141,10 +142,9 @@ $forall entry <- elist
^{preEscapedToHtml $ append " " $ btext entry}
$if ((/=) (mtext entry) empty)
<p>
<a #foo href=#{linkElems entry}>#{readMore $ lang entry}
<a .readmore #foo href=#{linkElems entry}>#{readMore $ lang entry}
$else
<br>&nbsp;
<hr>
$maybe links <- footerLinks
^{links}
|]
@ -174,39 +174,68 @@ showLinks Nothing lang = [shamlet|
renderEntry :: Entry -> Html
renderEntry e@Entry{..} = [shamlet|
<span class="innerTitle">#{title}
<span class="righttext">
<i>#{woText}
<div class="innerContainer">
<article>
<ul style="max-width:57em;">
<li>
$if (isEntryMarkdown e)
^{renderEntryMarkdown btext}
<p>^{renderEntryMarkdown $ mtext}
$else
^{preEscapedToHtml $ btext}
<p>^{preEscapedToHtml $ mtext}
<div class="innerBoxComments">
<div class="cHead">#{cHead lang}:
<ul style="max-width:57em;">#{renderComments comments lang}
^{renderCommentBox lang entryId}
<div .row .pusher>
<div .span9>
<span .boldify>#{title}
<div .span3>
<span .righttext><i>#{woText}</i>
<div .row .innerContainer>
<div .span10>
<article>
$if (isEntryMarkdown e)
^{renderEntryMarkdown btext}
<p>^{renderEntryMarkdown $ mtext}
$else
^{preEscapedToHtml $ btext}
<p>^{preEscapedToHtml $ mtext}
<div .row .innerBoxComments>
<div .span10>
<div .boldify>#{cHead lang}:
#{renderComments comments lang}
<div .row .innerBoxComments>
<div .span10>
<div .boldify>#{cwHead lang}
^{renderCommentBox lang entryId}
|]
where
woText = flip T.append author $ T.pack $ formatTime defaultTimeLocale (eTimeFormat lang) edate
renderComments :: [Comment] -> BlogLang -> Html
renderComments [] lang = [shamlet|<li>#{noComments lang}|]
renderComments [] lang = [shamlet|
<div .row>
<div .span10>#{noComments lang}
|]
renderComments comments lang = [shamlet|
$forall comment <- comments
<li>
<i>#{append (cauthor comment) ": "}
^{preEscapedToHtml $ ctext comment}
<p class="tt">#{timeString $ cdate comment}
<div .row>
<div .span1 .commentname>
<i>#{append (cauthor comment) ": "}
<div .span9>
^{preEscapedToHtml $ ctext comment}
<p .tt>#{timeString $ cdate comment}
|]
where
timeString = formatTime defaultTimeLocale (cTimeFormat lang)
renderCommentBox :: BlogLang -> EntryId -> Html
renderCommentBox cLang cId = [shamlet|
^{captchaOptions cLang}
<div .row>
<div .span10>
<form method="POST" action=#{aLink}>
<fieldset>
<label>
<input .span8 name="cname" placeholder="Name" type="text">
<label>
<textarea .span8 name="ctext" cols="50" rows="13" placeholder=#{cTextPlaceholder cLang}>
^{captcha}
<label>
<input .btn type="submit" value=#{cSend cLang}>
|]
where
aLink = T.concat ["/", show' cLang, "/postcomment/", show' cId]
captcha :: Html
captcha = [shamlet|
<div class="cCaptcha">
@ -223,24 +252,6 @@ captchaOptions lang = [shamlet|<script type="text/javascript">^{preEscapedToHtml
where
options = T.concat ["var RecaptchaOptions = { theme: 'clean', lang: '", showLangText lang, "'};"]
renderCommentBox :: BlogLang -> EntryId -> Html
renderCommentBox cLang cId = [shamlet|
<div class="cHead">#{cwHead cLang}
^{captchaOptions cLang}
<form method="POST" action=#{aLink}>
<p><input name="cname" placeholder="Name" class="cInput">
<p>
<label>
<textarea name="ctext" cols="50" rows="13" class="cInput" placeholder=#{cTextPlaceholder cLang}>
<p>
<label>
^{captcha}
<p><input class="cInput" style="width:120px;" type="submit" value=#{cSend cLang}>
|]
where
aLink = T.concat ["/", show' cLang, "/postcomment/", show' cId]
showSiteNotice :: Html
showSiteNotice = [shamlet|
$doctype 5

View file

@ -160,5 +160,5 @@ rightText EN = "Deutsche Version <a href=\"/de\" class=\"link\">hier verf&uuml;g
-- static information
repoURL :: Text = "https://bitbucket.org/tazjin/tazblog-haskell"
mailTo :: Text = "mailto:tazjin@gmail.com"
mailTo :: Text = "mailto:tazjin+blog@gmail.com"
twitter :: Text = "http://twitter.com/#!/tazjin"