* fixed comments and footer in Bootstrap

This commit is contained in:
"Vincent Ambo ext:(%22) 2013-05-05 20:16:49 +02:00
parent 514d2b2777
commit 11a51f6abd

View file

@ -71,7 +71,8 @@ $doctype 5
<link rel="alternate" type="application/rss+xml" title="RSS-Feed" href=#{rssUrl}> <link rel="alternate" type="application/rss+xml" title="RSS-Feed" href=#{rssUrl}>
<meta http-equiv="content-type" content="text/html;charset=UTF-8"> <meta http-equiv="content-type" content="text/html;charset=UTF-8">
<body> <body>
<div .container .header> <div .header>
<div .container >
<div .row> <div .row>
<div .span12 .blogtitle> <div .span12 .blogtitle>
<a class="btitle" href=#{append "/" (show' lang)}>#{blogTitle lang empty} <a class="btitle" href=#{append "/" (show' lang)}>#{blogTitle lang empty}
@ -83,11 +84,8 @@ $doctype 5
<span .righttext>^{preEscapedToHtml $ rightText lang} <span .righttext>^{preEscapedToHtml $ rightText lang}
<div .container> <div .container>
^{body} ^{body}
<div .container> <footer .footer>
<footer>
^{showFooter lang $ pack version} ^{showFooter lang $ pack version}
<div class="centerbox">
<span style="font-size:17px;font-family:Helvetica;">_ಠ
|] |]
where where
rssUrl = T.concat ["/", show' lang, "/rss.xml"] rssUrl = T.concat ["/", show' lang, "/rss.xml"]
@ -100,7 +98,9 @@ $doctype 5
showFooter :: BlogLang -> Text -> Html showFooter :: BlogLang -> Text -> Html
showFooter l v = [shamlet| showFooter l v = [shamlet|
<div class="rightbox" style="text-align:right;"> <div .container>
<div .row>
<div .span12 .righttext style="text-align: right;margin-right:-200px">
Proudly made with # Proudly made with #
<a class="link" href="http://haskell.org">Haskell <a class="link" href="http://haskell.org">Haskell
, # , #
@ -110,6 +110,9 @@ showFooter l v = [shamlet|
<a class="link" href=#{repoURL}>#{append "Version " v} <a class="link" href=#{repoURL}>#{append "Version " v}
&nbsp; &nbsp;
<a class="link" href="/notice">#{noticeText l} <a class="link" href="/notice">#{noticeText l}
<div .row .text-center>
<div .span12>
<span style="font-size:13px;font-family:Helvetica;">_ಠ
|] |]
isEntryMarkdown :: Entry -> Bool isEntryMarkdown :: Entry -> Bool