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

[blog] Add inline class on headers

Browse source
This commit is contained in:
Vincent Ambo 2015-11-21 18:37:29 +01:00
parent 28b00ef3d4
commit 80b6f2ca1f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Blog.hs
View file

@ -72,7 +72,7 @@ renderEntries :: Bool -> [Entry] -> Maybe Html -> Html
renderEntries showAll entries pageLinks = [shamlet| renderEntries showAll entries pageLinks = [shamlet|
$forall entry <- toDisplay $forall entry <- toDisplay
<article> <article>
<h2> <h2 .inline>
<a href=#{linkElems entry} .unstyled-link> <a href=#{linkElems entry} .unstyled-link>
#{title entry} #{title entry}
<aside .date> <aside .date>
@ -115,7 +115,7 @@ showLinks Nothing lang = [shamlet|
renderEntry :: Entry -> Html renderEntry :: Entry -> Html
renderEntry e@Entry{..} = [shamlet| renderEntry e@Entry{..} = [shamlet|
<article> <article>
<h2> <h2 .inline>
#{title} #{title}
<aside .date> <aside .date>
#{pack $ formatTime defaultTimeLocale "%Y-%m-%d" edate} #{pack $ formatTime defaultTimeLocale "%Y-%m-%d" edate}