Initial pinealservo.com hakyll site
commit
46d8678476
|
|
@ -0,0 +1,5 @@
|
|||
_cache
|
||||
*~
|
||||
site.hi
|
||||
site.o
|
||||
site
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
---
|
||||
title: About this site
|
||||
---
|
||||
|
||||
There's not much to say yet.
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
---
|
||||
title: Contact
|
||||
---
|
||||
|
||||
You can reach me most easily via email, <levipearson@gmail.com>.
|
||||
|
||||
I occasionally follow Facebook and Google+ as well.
|
||||
|
|
@ -0,0 +1,341 @@
|
|||
{-# LANGUAGE OverloadedStrings #-}
|
||||
import Clay hiding (div)
|
||||
import Clay.Stylesheet
|
||||
import Data.Monoid ((<>))
|
||||
import Data.Text (pack)
|
||||
import Prelude hiding ((**))
|
||||
|
||||
import qualified Data.List as L
|
||||
|
||||
data CalcSize = Px Integer
|
||||
| Pt Double
|
||||
| Em Double
|
||||
| Rem Double
|
||||
| Ex Double
|
||||
| Zero
|
||||
deriving (Eq, Ord)
|
||||
|
||||
instance Num CalcSize where
|
||||
fromInteger i | j == 0 = Zero
|
||||
| j < 0 = Zero
|
||||
| otherwise = Px j
|
||||
where j = fromIntegral i
|
||||
|
||||
Zero + b = b
|
||||
a + Zero = a
|
||||
Px a + Px b = Px $ a + b
|
||||
Pt a + Pt b = Pt $ a + b
|
||||
Em a + Em b = Em $ a + b
|
||||
Rem a + Rem b = Rem $ a + b
|
||||
Ex a + Ex b = Ex $ a + b
|
||||
_ + _ = error "Can't add sizes of different kinds"
|
||||
|
||||
Zero * b = b
|
||||
a * Zero = a
|
||||
Px a * Px b = Px $ a * b
|
||||
Pt a * Pt b = Pt $ a * b
|
||||
Em a * Em b = Em $ a * b
|
||||
Rem a * Rem b = Rem $ a * b
|
||||
Ex a * Ex b = Ex $ a * b
|
||||
_ * _ = error "Can't multiply sizes of different kinds"
|
||||
|
||||
abs Zero = Zero
|
||||
abs (Px i) = Px $ abs i
|
||||
abs (Pt d) = Pt $ abs d
|
||||
abs (Em d) = Em $ abs d
|
||||
abs (Rem d) = Rem $ abs d
|
||||
abs (Ex d) = Ex $ abs d
|
||||
|
||||
signum Zero = Zero
|
||||
signum (Px i) = Px $ signum i
|
||||
signum (Pt d) = Pt $ signum d
|
||||
signum (Em d) = Em $ signum d
|
||||
signum (Rem d) = Rem $ signum d
|
||||
signum (Ex d) = Ex $ signum d
|
||||
|
||||
times :: Integer -> CalcSize -> CalcSize
|
||||
i `times` Zero = Zero
|
||||
i `times` Px b = Px $ i * b
|
||||
i `times` Pt b = Pt $ (fromIntegral i) * b
|
||||
i `times` Em b = Em $ (fromIntegral i) * b
|
||||
i `times` Rem b = Rem $ (fromIntegral i) * b
|
||||
i `times` Ex b = Ex $ (fromIntegral i) * b
|
||||
|
||||
toSize :: CalcSize -> Size Abs
|
||||
toSize s = case s of
|
||||
Zero -> nil
|
||||
Px i -> px i
|
||||
Pt d -> pt d
|
||||
Em d -> em d
|
||||
Rem d -> em d -- todo: Add rem to Clay.Size
|
||||
Ex d -> ex d
|
||||
|
||||
perct :: CalcSize -> CalcSize -> Double
|
||||
perct Zero b = 0
|
||||
perct a Zero = error "Division by zero"
|
||||
perct (Px a) (Px b) = (fromIntegral a) / (fromIntegral b) * 100
|
||||
perct (Pt a) (Pt b) = a / b * 100
|
||||
perct (Em a) (Em b) = a / b * 100
|
||||
perct (Rem a) (Rem b) = a / b * 100
|
||||
perct (Ex a) (Ex b) = a / b * 100
|
||||
perct _ _ = error "Can't take percentage of different kinds"
|
||||
|
||||
percentage :: CalcSize -> CalcSize -> Size Rel
|
||||
percentage a b = pct $ perct a b
|
||||
|
||||
data LayoutSettings =
|
||||
Layout { totalColumns :: Integer
|
||||
, columnWidth :: CalcSize
|
||||
, gutterWidth :: CalcSize
|
||||
, gridPadding :: CalcSize
|
||||
}
|
||||
|
||||
data ColSpec = Full
|
||||
| Next Integer Integer
|
||||
| Final Integer Integer
|
||||
|
||||
columnsWidth cols =
|
||||
let gutter = gutterWidth def
|
||||
colWidth = columnWidth def
|
||||
baseWidth = cols `times` colWidth
|
||||
in
|
||||
if cols >= 1
|
||||
then baseWidth + ((cols - 1) `times` gutter)
|
||||
else baseWidth
|
||||
|
||||
relativeWidth width ctx =
|
||||
percentage width (columnsWidth ctx)
|
||||
|
||||
widthWithGridPadding cols =
|
||||
let width = columnsWidth cols
|
||||
basePad = gridPadding def
|
||||
in width + (2 `times` basePad)
|
||||
|
||||
container =
|
||||
let pad = gridPadding def
|
||||
width = widthWithGridPadding $ totalColumns def
|
||||
in do
|
||||
maxWidth $ toSize width
|
||||
paddingLeft $ toSize pad
|
||||
paddingRight $ toSize pad
|
||||
marginLeft auto
|
||||
marginRight auto
|
||||
|
||||
colSpan spec = case spec of
|
||||
Full -> do
|
||||
clear both
|
||||
Next n m ->
|
||||
let gutter = gutterWidth def
|
||||
colsWidth = columnsWidth n
|
||||
rw = relativeWidth colsWidth m
|
||||
rm = percentage gutter (columnsWidth m)
|
||||
in do
|
||||
width rw
|
||||
float floatLeft
|
||||
marginRight rm
|
||||
Final n m ->
|
||||
let colsWidth = columnsWidth n
|
||||
rw = relativeWidth colsWidth m
|
||||
in do
|
||||
width rw
|
||||
float floatRight
|
||||
marginRight nil
|
||||
|
||||
push spec = case spec of
|
||||
Next n m ->
|
||||
let gutter = gutterWidth def
|
||||
colsWidth = columnsWidth n
|
||||
rw = relativeWidth colsWidth m
|
||||
in do
|
||||
marginLeft rw
|
||||
_ -> error "Bad push spec"
|
||||
|
||||
pull spec = case spec of
|
||||
Next n m ->
|
||||
let gutter = gutterWidth def
|
||||
colsWidth = columnsWidth n
|
||||
rw = relativeWidth colsWidth m
|
||||
in do
|
||||
marginLeft (0 - rw)
|
||||
_ -> error "Bad pull spec"
|
||||
|
||||
|
||||
data GridShow = Pad | Col | Gut
|
||||
showGrid =
|
||||
let begin = "-moz-linear-gradient(left center, "
|
||||
gutColor = " transparent "
|
||||
padColor = " transparent "
|
||||
colColor = " rgba(255, 254, 251, 0.5) "
|
||||
totalWidth = widthWithGridPadding $ totalColumns def
|
||||
padWidth = perct (gridPadding def) totalWidth
|
||||
colWidth = perct (columnWidth def) totalWidth
|
||||
gutWidth = perct (gutterWidth def) totalWidth
|
||||
colCount = fromIntegral (totalColumns def)
|
||||
cols = Pad : L.intersperse Gut (replicate colCount Col)
|
||||
go xs out s = case xs of
|
||||
[] -> begin ++ out ++ padColor ++ (show s) ++ "%, " ++ padColor ++ "100%)"
|
||||
Pad:xs ->
|
||||
let n = padWidth + s
|
||||
v = padColor ++ (show s) ++ "%, " ++ padColor ++ (show n) ++ "% ,"
|
||||
in go xs (out ++ v) n
|
||||
Col:xs ->
|
||||
let n = colWidth + s
|
||||
v = colColor ++ (show s) ++ "%, " ++ colColor ++ (show n) ++ "% ,"
|
||||
in go xs (out ++ v) n
|
||||
Gut:xs ->
|
||||
let n = gutWidth + s
|
||||
v = gutColor ++ (show s) ++ "%, " ++ gutColor ++ (show n) ++ "% ,"
|
||||
in go xs (out ++ v) n
|
||||
in pack $ go cols "" 0
|
||||
|
||||
showBaseline n = do
|
||||
backgroundSize $ (px 40) `by` (px n)
|
||||
backgroundImage $ repeatingLinearGradient (angular $ deg 0) [("#111", px 0)
|
||||
,("#111", px 1)
|
||||
,(transparent, px 1)
|
||||
,(transparent, px n)]
|
||||
height (pct 100)
|
||||
width (pct 100)
|
||||
opacity 0.75
|
||||
position absolute
|
||||
top nil
|
||||
left nil
|
||||
zIndex (-4)
|
||||
|
||||
|
||||
defaultFontPx = 16
|
||||
|
||||
pxRatio x y = (fromIntegral x) / (fromIntegral y)
|
||||
emFromRatio elemPx fontPx = em $ pxRatio elemPx fontPx
|
||||
|
||||
selectors :: [Selector] -> Selector
|
||||
selectors = foldl1 (<>)
|
||||
|
||||
setFontSize x = do
|
||||
let line = 1 + x `div` baselinePx
|
||||
fontSize $ emFromRatio x defaultFontPx
|
||||
lineHeight $ emFromRatio (line * baselinePx) x
|
||||
|
||||
{- Insert this into main for layout-debugging grids
|
||||
|
||||
body ? (showBaseline baselinePx)
|
||||
"#container" ? do
|
||||
container
|
||||
backgroundColor "#EEE8D5"
|
||||
"background-image" -: showGrid
|
||||
|
||||
-}
|
||||
|
||||
-----------------------------------------------------------------------------
|
||||
|
||||
def =
|
||||
Layout { totalColumns = 12
|
||||
, columnWidth = Em 3
|
||||
, gutterWidth = Em 1
|
||||
, gridPadding = Em 1
|
||||
}
|
||||
|
||||
primary = "#033E6B"
|
||||
accent1 = "#FFB400"
|
||||
accent2 = "#A63F00"
|
||||
|
||||
bodyCopyColor = "#444"
|
||||
|
||||
baselinePx = 24
|
||||
baseFontPx = 16
|
||||
headingColor = primary
|
||||
|
||||
main = putCss $ do
|
||||
typography
|
||||
|
||||
"#container" ? do
|
||||
container
|
||||
|
||||
"#header" ? do
|
||||
push $ Next 1 12
|
||||
colSpan $ Next 11 12
|
||||
|
||||
"#navigation" ? (colSpan $ Final 2 12)
|
||||
|
||||
"#content" ? do
|
||||
push $ Next 1 12
|
||||
colSpan $ Next 9 12
|
||||
|
||||
"#footer" ? do
|
||||
push $ Next 1 12
|
||||
colSpan $ Next 11 12
|
||||
|
||||
typography = do
|
||||
-- Reset the padding/margin on all elements so we can set up a vertical
|
||||
-- rhythm on a baseline grid
|
||||
star ? do
|
||||
sym margin nil
|
||||
sym padding nil
|
||||
|
||||
body ? do
|
||||
fontFamily ["PT Sans", "Verdana"] [sansSerif]
|
||||
textRendering optimizeLegibility
|
||||
color bodyCopyColor
|
||||
a ? color primary
|
||||
lineHeight $ emFromRatio baselinePx defaultFontPx
|
||||
|
||||
"#logo" ? do
|
||||
paddingTop $ px (1*baselinePx)
|
||||
a ? do
|
||||
setFontSize 75
|
||||
fontFamily ["Orbitron"] [sansSerif]
|
||||
fontWeight (other "700")
|
||||
textDecoration none
|
||||
color headingColor
|
||||
|
||||
ul |> li ? do
|
||||
paddingLeft $ em (-0.7)
|
||||
textIndent $ indent (em (-0.7))
|
||||
":before" & do
|
||||
content $ stringContent "- "
|
||||
color accent2
|
||||
a ? do
|
||||
textDecoration none
|
||||
|
||||
"#navigation" ** li ? do
|
||||
setFontSize 24
|
||||
fontFamily ["Oswald"] [sansSerif]
|
||||
fontWeight (other "400")
|
||||
|
||||
".info" ? do
|
||||
color accent2
|
||||
|
||||
"#footer" ** p ? do
|
||||
color accent2
|
||||
|
||||
selectors [ p, ".info", "#logo" ] ? do
|
||||
setFontSize baseFontPx
|
||||
|
||||
selectors [ p, ".info", "#logo" ] ? do
|
||||
marginBottom $ px baselinePx
|
||||
|
||||
selectors [ h1, h2, h3] ? do
|
||||
fontFamily ["Oswald"] [sansSerif]
|
||||
fontWeight (other "400")
|
||||
color headingColor
|
||||
|
||||
h1 ? do
|
||||
setFontSize 42
|
||||
let btw = 3
|
||||
ptw = 6
|
||||
paddingTop $ px ptw
|
||||
borderTop solid (px btw) accent1
|
||||
marginBottom $ px (baselinePx - btw - ptw)
|
||||
|
||||
h2 ? do
|
||||
setFontSize 32
|
||||
marginBottom $ px baselinePx
|
||||
|
||||
h3 ? do
|
||||
setFontSize 24
|
||||
|
||||
ul <> ol ? do
|
||||
marginLeft $ emFromRatio baselinePx baseFontPx
|
||||
marginBottom $ px baselinePx
|
||||
"list-style-type" -: "none"
|
||||
|
||||
|
|
@ -0,0 +1,130 @@
|
|||
{-# LANGUAGE OverloadedStrings #-}
|
||||
import Clay
|
||||
import Clay.Size
|
||||
import Data.Monoid
|
||||
import Data.Text (Text)
|
||||
import Prelude hiding ((**))
|
||||
|
||||
selectors :: [Selector] -> Selector
|
||||
selectors = foldl1 (<>)
|
||||
|
||||
pseudoNot :: Text -> Refinement
|
||||
pseudoNot n = func "not" [n]
|
||||
|
||||
main = putCss $ do
|
||||
html5display
|
||||
baseStyle
|
||||
linksStyle
|
||||
typographyStyle
|
||||
embeddedContentStyle
|
||||
formStyle
|
||||
tableStyle
|
||||
|
||||
html5display = do
|
||||
selectors [ article, aside, details, figcaption, figure, footer
|
||||
, header, hgroup, nav, section, summary, "main"
|
||||
] ? display block
|
||||
|
||||
selectors [ audio, canvas, video ] ? display inlineBlock
|
||||
|
||||
audio # pseudoNot "[controls]" ? do
|
||||
display none
|
||||
height $ px 0
|
||||
|
||||
star # "hidden" <> "template" ? display none
|
||||
|
||||
baseStyle = do
|
||||
html ? do
|
||||
fontFamily [] [sansSerif]
|
||||
"-ms-text-size-adjust" -: "100%"
|
||||
"-webkit-text-size-adjust" -: "100%"
|
||||
body ? margin (px 0) (px 0) (px 0) (px 0)
|
||||
|
||||
linksStyle = do
|
||||
a ? background transparent
|
||||
a # focus ? do
|
||||
outlineStyle dotted
|
||||
"outline-width" -: "thin"
|
||||
a # active <> a # hover ?
|
||||
outlineWidth (px 0)
|
||||
|
||||
typographyStyle = do
|
||||
h1 ? do
|
||||
fontSize (em 2)
|
||||
margin (em 0.67) (em 0) (em 0) (em 0.67)
|
||||
abbr # title ? do
|
||||
borderBottomWidth (px 1)
|
||||
borderBottomStyle dotted
|
||||
b <> strong ? fontWeight bold
|
||||
dfn ? fontStyle italic
|
||||
hr ? do
|
||||
boxSizing contentBox
|
||||
height (px 0)
|
||||
mark ? do
|
||||
backgroundColor (rgb 0xf 0xf 0x0)
|
||||
color (rgb 0 0 0)
|
||||
selectors [code, kbd, pre, samp] ? do
|
||||
fontFamily [] [monospace, serif]
|
||||
fontSize (em 1)
|
||||
pre ? whiteSpace preWrap
|
||||
"q" -: "quotes \"\\201C\" \"\\201D\" \"\\2018\" \"\\2019\""
|
||||
small ? fontSize (pct 80)
|
||||
sub <> sup ? do
|
||||
fontSize (pct 75)
|
||||
lineHeight (px 0)
|
||||
position relative
|
||||
"vertical-align" -: "baseline"
|
||||
sub ? top (em (-0.5))
|
||||
sup ? bottom (em (-0.25))
|
||||
|
||||
embeddedContentStyle = do
|
||||
img ? borderWidth (px 0)
|
||||
"svg" # pseudoNot ":root" ? overflow hidden
|
||||
figure ? margin (px 0) (px 0) (px 0) (px 0)
|
||||
|
||||
formStyle = do
|
||||
fieldset ? do
|
||||
borderWidth (px 1)
|
||||
borderStyle solid
|
||||
borderColor (rgb 0xc0 0xc0 0xc0)
|
||||
margin (px 0) (px 2) (px 2) (px 0)
|
||||
padding (em 0.35) (em 0.625) (em 0.75) (em 0)
|
||||
legend ? do
|
||||
borderWidth (px 0)
|
||||
padding (px 0) (px 0) (px 0) (px 0)
|
||||
selectors [button, input, select, textarea] ? do
|
||||
"font-family" -: "inherit"
|
||||
fontSize (pct 100)
|
||||
margin (px 0) (px 0) (px 0) (px 0)
|
||||
button <> input ? lineHeight normal
|
||||
button <> select ? textTransform none
|
||||
selectors [ button, html ** input # ("type" @= "button")
|
||||
, input # ("type" @= "reset")
|
||||
, input # ("type" @= "submit")
|
||||
] ? do
|
||||
"-webkit-appearance" -: "button"
|
||||
"cursor" -: "pointer"
|
||||
button # "@disabled" <> html ** input # "@disabled" ? do
|
||||
"cursor" -: "default"
|
||||
input # ("type" @= "checkbox") <> input # ("type" @= "radio") ? do
|
||||
boxSizing borderBox
|
||||
padding (px 0) (px 0) (px 0) (px 0)
|
||||
input # ("type" @= "search") ? do
|
||||
"-webkit-appearance" -: "textfield"
|
||||
"-moz-box-sizing" -: "content-box"
|
||||
"-webkit-box-sizing" -: "content-box"
|
||||
"box-sizing" -: "content-box"
|
||||
input # ("type" @= "search") # "::-webkit-search-cancel-button"
|
||||
<> input # ("type" @= "search") # "::-webkit-search-decoration" ? do
|
||||
"-webkit-appearance" -: "none"
|
||||
button # "::-moz-focus-inner" <> input # "::-moz-focus-inner" ? do
|
||||
borderWidth (px 0)
|
||||
padding (px 0) (px 0) (px 0) (px 0)
|
||||
textarea ? do
|
||||
overflow auto
|
||||
"vertical-align" -: "top"
|
||||
|
||||
tableStyle = table ? do
|
||||
"border-collapse" -: "collapse"
|
||||
"border-spacing" -: "0px"
|
||||
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
$for(posts)$
|
||||
<h1>$title$</h1>
|
||||
$body$
|
||||
$endfor$
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
---
|
||||
title: Hello, world
|
||||
---
|
||||
|
||||
It's about time I had a blog/journal/mental dumping ground again, and
|
||||
getting this set up was a nice little exercise in system
|
||||
administration and a little bit of Haskell coding.
|
||||
|
||||
I mention system administration because this is running on a system
|
||||
with a version of Debian Linux installed that has been continuously
|
||||
upgraded since around 2001. It was both slightly broken and very
|
||||
crufty, but I was able to get plenty of space cleared and get
|
||||
everything up-to-date with few issues.
|
||||
|
||||
And I mention Haskell because I'm using two Haskell programs as part
|
||||
of the infrastructure of this site. One is the site engine itself,
|
||||
[Hakyll][1]. It's a customizable build tool that translates from
|
||||
various markup formats to HTML, then assembles all the site's pieces
|
||||
together.
|
||||
|
||||
The second Haskell program I'm using the the [Clay][2] CSS generator,
|
||||
which lets me build the CSS rules in a Haskell program in a CSS-like
|
||||
DSL. A short program generates both a flexible semantic grid layout
|
||||
and a baseline grid for managing the vertical rhythm of the text. I am
|
||||
not a master page designer by any means, but I'm happy with the
|
||||
result.
|
||||
|
||||
I will share more details about these tools, along with other things
|
||||
I've been working on, in entries to follow.
|
||||
|
||||
[1]: http://jaspervdj.be/hakyll/ "Hakyll's Home Page"
|
||||
[2]: http://fvisser.nl/clay/ "Clay's Home Page"
|
||||
|
|
@ -0,0 +1,87 @@
|
|||
--------------------------------------------------------------------------------
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
import Data.Monoid (mappend)
|
||||
import Data.Default
|
||||
import Hakyll
|
||||
|
||||
-- Configuration
|
||||
|
||||
frontPagePosts = 5
|
||||
|
||||
hakyllConfig :: Configuration
|
||||
hakyllConfig = def { deployCommand = "cd _site; cp -R * /var/www/pinealservo.com" }
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
main :: IO ()
|
||||
main = hakyllWith hakyllConfig $ do
|
||||
match "images/*" $ do
|
||||
route idRoute
|
||||
compile copyFileCompiler
|
||||
|
||||
match "css/*.css" $ do
|
||||
route idRoute
|
||||
compile compressCssCompiler
|
||||
|
||||
match "css/*.hs" $ do
|
||||
route $ setExtension "css"
|
||||
compile $ getResourceString >>= withItemBody (unixFilter "runhaskell" [])
|
||||
>>= return . fmap compressCss
|
||||
match "*.markdown" $ do
|
||||
route $ setExtension "html"
|
||||
compile $ pandocCompiler
|
||||
>>= loadAndApplyTemplate "templates/default.html" defaultContext
|
||||
>>= relativizeUrls
|
||||
|
||||
match "posts/*" $ do
|
||||
route $ setExtension "html"
|
||||
compile $ pandocCompiler
|
||||
>>= loadAndApplyTemplate "templates/post.html" postCtx
|
||||
>>= saveSnapshot "content"
|
||||
>>= loadAndApplyTemplate "templates/default.html" postCtx
|
||||
>>= relativizeUrls
|
||||
|
||||
create ["archive.html"] $ do
|
||||
route idRoute
|
||||
compile $ do
|
||||
posts <- recentFirst =<< loadAll "posts/*"
|
||||
let archiveCtx =
|
||||
listField "posts" postCtx (return posts) `mappend`
|
||||
constField "title" "Archives" `mappend`
|
||||
defaultContext
|
||||
|
||||
makeItem ""
|
||||
>>= loadAndApplyTemplate "templates/archive.html" archiveCtx
|
||||
>>= loadAndApplyTemplate "templates/default.html" archiveCtx
|
||||
>>= relativizeUrls
|
||||
|
||||
|
||||
match "index.html" $ do
|
||||
route idRoute
|
||||
compile $ do
|
||||
allPosts <- fmap (take frontPagePosts) . recentFirst
|
||||
=<< loadAllSnapshots "posts/*" "content"
|
||||
let indexCtx =
|
||||
listField "posts" postCtx (return allPosts) `mappend`
|
||||
defaultNoTitleContext
|
||||
|
||||
getResourceBody
|
||||
>>= applyAsTemplate indexCtx
|
||||
>>= loadAndApplyTemplate "templates/default.html" indexCtx
|
||||
>>= relativizeUrls
|
||||
|
||||
match "templates/*" $ compile templateCompiler
|
||||
|
||||
|
||||
--------------------------------------------------------------------------------
|
||||
defaultNoTitleContext :: Context String
|
||||
defaultNoTitleContext =
|
||||
bodyField "body" `mappend`
|
||||
metadataField `mappend`
|
||||
urlField "url" `mappend`
|
||||
pathField "path" `mappend`
|
||||
missingField
|
||||
|
||||
postCtx :: Context String
|
||||
postCtx =
|
||||
dateField "date" "%B %e, %Y" `mappend`
|
||||
defaultContext
|
||||
|
|
@ -0,0 +1,2 @@
|
|||
<p>Here you can find all my previous posts:</p>
|
||||
$partial("templates/post-list.html")$
|
||||
|
|
@ -0,0 +1,43 @@
|
|||
<!DOCTYPE html>
|
||||
<html lang="en">
|
||||
<head>
|
||||
<link href='http://fonts.googleapis.com/css?family=Orbitron:700|PT+Sans|Oswald:400,300' rel='stylesheet' type='text/css'>
|
||||
<meta charset="utf-8" />
|
||||
<title>PinealServo$if(title)$ - $title$$endif$</title>
|
||||
<link rel="stylesheet" href="/css/layout.css" />
|
||||
<!--[if IE]>
|
||||
<script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script>
|
||||
<![endif]-->
|
||||
</head>
|
||||
<body>
|
||||
<div id="container">
|
||||
|
||||
<div id="header">
|
||||
<div id="logo">
|
||||
<a href="/">PinealServo</a>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="navigation">
|
||||
<ul>
|
||||
<li><a href="/">Home</a></li>
|
||||
<li><a href="/about.html">About</a></li>
|
||||
<li><a href="/contact.html">Contact</a></li>
|
||||
<li><a href="/archive.html">Archive</a></li>
|
||||
</ul>
|
||||
</div>
|
||||
|
||||
<div id="content">
|
||||
$if(title)$<h1>$title$</h1>$endif$
|
||||
|
||||
$body$
|
||||
</div>
|
||||
|
||||
<div id="footer">
|
||||
<p><em>Site proudly generated by
|
||||
<a href="http://jaspervdj.be/hakyll">Hakyll</a></em></p>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
<ul>
|
||||
$for(posts)$
|
||||
<li>
|
||||
<a href="$url$">$title$</a> - $date$
|
||||
</li>
|
||||
$endfor$
|
||||
</ul>
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
<div class="info">
|
||||
<em>Posted on $date$
|
||||
$if(author)$
|
||||
by $author$
|
||||
$endif$</em>
|
||||
</div>
|
||||
|
||||
$body$
|
||||
Loading…
Reference in New Issue