fixed markdown template for index

This commit is contained in:
nek0 2016-03-04 00:21:25 +01:00
parent 0b91d4f69f
commit 00a6dc0dda
2 changed files with 7 additions and 6 deletions

View file

@ -41,8 +41,9 @@ main = do
constField "title" "Home" <> constField "title" "Home" <>
field "tags" (\_ -> renderTagCloud 85.0 300.0 tags) <> field "tags" (\_ -> renderTagCloud 85.0 300.0 tags) <>
defaultContext defaultContext
getResourceBody >>= myPandoc getResourceBody
>>= applyAsTemplate indexCtx >>= applyAsTemplate indexCtx
>>= renderPandoc
>>= loadAndApplyTemplate "templates/default.html" baseCtx >>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls >>= relativizeUrls

View file

@ -1,7 +1,7 @@
<ul> <ul>
$for(posts)$ $for(posts)$
<li> <li>
<a href="$url$">$title$</a> - $date$ <a href="$url$">$title$</a> - $date$
</li> </li>
$endfor$ $endfor$
</ul> </ul>