* further work on Bootstrapping
This commit is contained in:
parent
287f7fda8c
commit
514d2b2777
2 changed files with 56 additions and 45 deletions
99
src/Blog.hs
99
src/Blog.hs
|
@ -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>
|
||||
<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
|
||||
|
|
|
@ -160,5 +160,5 @@ rightText EN = "Deutsche Version <a href=\"/de\" class=\"link\">hier verfü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"
|
||||
|
|
Loading…
Reference in a new issue