maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* removed iMessage

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2013-04-28 13:45:08 +02:00
parent 247265f354
commit 0f98c3f489
2 changed files with 4 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Blog.hs
View file

@ -46,7 +46,7 @@ $doctype 5
<div class="header">
<a class="btitle" href=#{append "/" (show' lang)}>#{blogTitle lang empty}
<p style="clear: both;">
<span class="contacts" id="cosx">^{contactInfo iMessage}
<span class="contacts" id="cosx">^{contactInfo}
<span class="righttext">^{preEscapedToHtml $ rightText lang}
<div class="middle">
^{body}
@ -57,14 +57,11 @@ $doctype 5
|]
where
rssUrl = T.concat ["/", show' lang, "/rss.xml"]
contactInfo imu = [shamlet|
contactInfo = [shamlet|
#{contactText lang}
<a class="link" href=#{mailTo}>Mail
, #
<a class="link" href=#{twitter} target="_blank">Twitter
#{orText lang}
<a class="link" href=#{imu}>iMessage
.
<a class="link" href=#{twitter} target="_blank">Twitter
|]
showFooter :: BlogLang -> Text -> Html