moved index to markdown

This commit is contained in:
nek0 2016-03-03 23:02:14 +01:00
parent 04ca1eded1
commit 089cce4f27
3 changed files with 33 additions and 36 deletions

View File

@ -1,23 +0,0 @@
---
title: Home
---
<h2>Welcome</h2>
<img src="/images/nekonet.svg" style="height: 250px; width: auto;" />
<p>Welcome to my blog!</p>
<p>This blog is about everything and anything I want to share with the world.
<br>
It is mostly technical stuff about coding and software configuration, but also about photography, music, tea and everything else I find noteworthy or important enough to tell. <br>
Here are my latest Posts:
</p>
<!--<h2>Posts</h2>-->
$partial("templates/post-list.html")$
<p>...and there are even more in the <a href="/archive.html">archive</a>.</p>
<!--<p>Tagcloud: $tags$</p>-->

20
index.md Normal file
View File

@ -0,0 +1,20 @@
---
title: Home
---
## Welcome
<img src="/images/nekonet.svg" style="height: 250px; width: auto;"/>
Welcome to my blog!
This blog is about everything and anything I want to share with the world.
It is mostly technical stuff about coding and software configuration, but also about photography, music, tea and everything else I find noteworthy or important enough to tell.
Here are my latest Posts:
$partial("templates/post-list.html")$
...and there are even more in the [archive][archive].
[archive]: /archive.html

View File

@ -33,6 +33,19 @@ main = do
let baseCtx = tagCloudField "tagcloud" 80.0 200.0 tags <>
defaultContext
match "index.md" $ do
route idRoute
compile $ do
posts <- fmap (take 5) . recentFirst =<< loadAll "posts/*"
let indexCtx = listField "posts" (postCtx tags) (return posts) <>
constField "title" "Home" <>
field "tags" (\_ -> renderTagCloud 85.0 300.0 tags) <>
defaultContext
getResourceBody >>= myPandoc
>>= applyAsTemplate indexCtx
>>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls
match "about.md" $ do
route $ setExtension "html"
compile $ pandocCompiler
@ -99,19 +112,6 @@ main = do
>>= loadAndApplyTemplate "templates/default.html" archiveCtx
>>= relativizeUrls
match "index.html" $ do
route idRoute
compile $ do
posts <- fmap (take 5) . recentFirst =<< loadAll "posts/*"
let indexCtx = listField "posts" (postCtx tags) (return posts) <>
constField "title" "Home" <>
field "tags" (\_ -> renderTagCloud 85.0 300.0 tags) <>
defaultContext
getResourceBody
>>= applyAsTemplate indexCtx
>>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls
match "templates/*" $ compile templateCompiler
-- feeds