fixing things up for presentation

This commit is contained in:
nek0 2017-12-04 00:07:46 +01:00
parent 55f67911f5
commit c70236571a
2 changed files with 7 additions and 7 deletions

View file

@ -1,9 +1,9 @@
--- ---
title: Home title: Home
description: A mutlilinugal blog about technical stuff, writing and other musings description: "A mutlilinugal blog about everything I spend my time with: technical stuff, writing and other musings."
--- ---
## Welcome ## Welcome to my blog
<img title="cat face" alt="cat face grinning with smiling eyes" src="/images/nekonet.svg" style="height: 250px; width: auto;"/> <img title="cat face" alt="cat face grinning with smiling eyes" src="/images/nekonet.svg" style="height: 250px; width: auto;"/>

View file

@ -45,7 +45,7 @@ main =
match "site/index.md" $ do match "site/index.md" $ do
route $ myRoute `composeRoutes` setExtension "html" route $ myRoute `composeRoutes` setExtension "html"
compile $ do compile $ do
posts <- fmap (take 5) . recentFirst =<< loadAll "posts/*" posts <- fmap (take 5) . recentFirst =<< loadAll "site/posts/*"
let indexCtx = listField "posts" (postCtx tags) (return posts) <> let indexCtx = listField "posts" (postCtx tags) (return posts) <>
constField "title" "Home" <> constField "title" "Home" <>
defaultContext defaultContext
@ -53,7 +53,7 @@ main =
>>= applyAsTemplate indexCtx >>= applyAsTemplate indexCtx
>>= renderPandoc >>= renderPandoc
>>= loadAndApplyTemplate "templates/default.html" baseCtx >>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls -- >>= relativizeUrls
match (fromList match (fromList
[ "site/about.md" [ "site/about.md"
@ -63,7 +63,7 @@ main =
route $ myRoute `composeRoutes` setExtension "html" route $ myRoute `composeRoutes` setExtension "html"
compile $ pandocCompiler compile $ pandocCompiler
>>= loadAndApplyTemplate "templates/default.html" baseCtx >>= loadAndApplyTemplate "templates/default.html" baseCtx
>>= relativizeUrls -- >>= relativizeUrls
match "site/404.md" $ do match "site/404.md" $ do
route $ myRoute `composeRoutes` setExtension "html" route $ myRoute `composeRoutes` setExtension "html"
@ -118,7 +118,7 @@ main =
makeItem "" makeItem ""
>>= loadAndApplyTemplate "templates/archive.html" archiveCtx >>= loadAndApplyTemplate "templates/archive.html" archiveCtx
>>= loadAndApplyTemplate "templates/default.html" archiveCtx >>= loadAndApplyTemplate "templates/default.html" archiveCtx
>>= relativizeUrls -- >>= relativizeUrls
match "templates/*" $ compile templateCompiler match "templates/*" $ compile templateCompiler
@ -205,7 +205,7 @@ feedConf = FeedConfiguration
config :: Configuration config :: Configuration
config = defaultConfiguration config = defaultConfiguration
{ deployCommand = "rsync --del --checksum -ave 'ssh -p 5555' \\_site/* nek0@chelnok.de:/home/nek0/www/blog" { deployCommand = "rsync --del --checksum -ave 'ssh -p 5555' \\_site/* nek0@chelnok.de:/home/nek0/www/blog-seo"
} }
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------