diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-06-13 08:43:28 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-06-13 08:43:28 +0200 |
commit | edeef66180f24e4254b512041bee617368fa1eba (patch) | |
tree | df2b6c470dba9fda52a0d3b96fd569d2c74b2c48 /examples/tagblog | |
parent | 893b366435739d073d2b6b9cafae868b5d361354 (diff) | |
download | hakyll-edeef66180f24e4254b512041bee617368fa1eba.tar.gz |
Remove examples from this repo
Diffstat (limited to 'examples/tagblog')
-rw-r--r-- | examples/tagblog/css/default.css | 17 | ||||
-rw-r--r-- | examples/tagblog/hakyll.hs | 99 | ||||
-rw-r--r-- | examples/tagblog/posts/2009-11-05-a-first-post.markdown | 22 | ||||
-rw-r--r-- | examples/tagblog/posts/2009-11-10-another-post.markdown | 16 | ||||
-rw-r--r-- | examples/tagblog/posts/2009-11-28-a-third-post.markdown | 20 | ||||
-rw-r--r-- | examples/tagblog/posts/2009-12-04-this-blog-aint-dead.markdown | 13 | ||||
-rw-r--r-- | examples/tagblog/posts/2009-12-23-almost-christmas.markdown | 14 | ||||
-rw-r--r-- | examples/tagblog/templates/default.html | 23 | ||||
-rw-r--r-- | examples/tagblog/templates/index.html | 19 | ||||
-rw-r--r-- | examples/tagblog/templates/post.html | 7 | ||||
-rw-r--r-- | examples/tagblog/templates/postitem.html | 4 | ||||
-rw-r--r-- | examples/tagblog/templates/posts.html | 4 |
12 files changed, 0 insertions, 258 deletions
diff --git a/examples/tagblog/css/default.css b/examples/tagblog/css/default.css deleted file mode 100644 index 9ed2b01..0000000 --- a/examples/tagblog/css/default.css +++ /dev/null @@ -1,17 +0,0 @@ -body { - width: 600px; - margin: 0px auto 0px auto; -} - -div#navigation { - text-align: center; - border-bottom: 4px solid black; -} - -div#navigation a { - color: white; - text-decoration: none; - background-color: black; - padding: 3px 10px 3px 10px; - margin: 0px 10px 0px 10px; -} diff --git a/examples/tagblog/hakyll.hs b/examples/tagblog/hakyll.hs deleted file mode 100644 index 0f1e7ab..0000000 --- a/examples/tagblog/hakyll.hs +++ /dev/null @@ -1,99 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Main where - -import Prelude hiding (id) -import Control.Arrow ((>>>), (***), arr) -import Control.Category (id) -import Data.Monoid (mempty, mconcat) - -import Hakyll - -main :: IO () -main = hakyll $ do - -- Compress CSS - match "css/*" $ do - route idRoute - compile compressCssCompiler - - -- Render posts - match "posts/*" $ do - route $ setExtension ".html" - compile $ pageCompiler - >>> arr (renderDateField "date" "%B %e, %Y" "Date unknown") - >>> renderTagsField "prettytags" (fromCapture "tags/*") - >>> applyTemplateCompiler "templates/post.html" - >>> applyTemplateCompiler "templates/default.html" - >>> relativizeUrlsCompiler - - -- Render posts list - match "posts.html" $ route idRoute - create "posts.html" $ constA mempty - >>> arr (setField "title" "All posts") - >>> requireAllA "posts/*" addPostList - >>> applyTemplateCompiler "templates/posts.html" - >>> applyTemplateCompiler "templates/default.html" - >>> relativizeUrlsCompiler - - -- Index - match "index.html" $ route idRoute - create "index.html" $ constA mempty - >>> arr (setField "title" "Home") - >>> requireA "tags" (setFieldA "tagcloud" (renderTagCloud')) - >>> requireAllA "posts/*" (id *** arr (take 3 . reverse . sortByBaseName) >>> addPostList) - >>> applyTemplateCompiler "templates/index.html" - >>> applyTemplateCompiler "templates/default.html" - >>> relativizeUrlsCompiler - - -- Tags - create "tags" $ - requireAll "posts/*" (\_ ps -> readTags ps :: Tags String) - - -- Add a tag list compiler for every tag - match "tags/*" $ route $ setExtension ".html" - metaCompile $ require_ "tags" - >>> arr tagsMap - >>> arr (map (\(t, p) -> (tagIdentifier t, makeTagList t p))) - - -- Render RSS feed - match "rss.xml" $ route idRoute - create "rss.xml" $ - requireAll_ "posts/*" - >>> mapCompiler (arr $ copyBodyToField "description") - >>> renderRss feedConfiguration - - -- Read templates - match "templates/*" $ compile templateCompiler - where - renderTagCloud' :: Compiler (Tags String) String - renderTagCloud' = renderTagCloud tagIdentifier 100 120 - - tagIdentifier :: String -> Identifier - tagIdentifier = fromCapture "tags/*" - --- | Auxiliary compiler: generate a post list from a list of given posts, and --- add it to the current page under @$posts@ --- -addPostList :: Compiler (Page String, [Page String]) (Page String) -addPostList = setFieldA "posts" $ - arr (reverse . sortByBaseName) - >>> require "templates/postitem.html" (\p t -> map (applyTemplate t) p) - >>> arr mconcat - >>> arr pageBody - -makeTagList :: String - -> [Page String] - -> Compiler () (Page String) -makeTagList tag posts = - constA (mempty, posts) - >>> addPostList - >>> arr (setField "title" ("Posts tagged ‘" ++ tag ++ "’")) - >>> applyTemplateCompiler "templates/posts.html" - >>> applyTemplateCompiler "templates/default.html" - -feedConfiguration :: FeedConfiguration -feedConfiguration = FeedConfiguration - { feedTitle = "SimpleBlog RSS feed." - , feedDescription = "A simple demo of an RSS feed created with Hakyll." - , feedAuthorName = "Jasper Van der Jeugt" - , feedRoot = "http://example.com" - } diff --git a/examples/tagblog/posts/2009-11-05-a-first-post.markdown b/examples/tagblog/posts/2009-11-05-a-first-post.markdown deleted file mode 100644 index 3c9d4ab..0000000 --- a/examples/tagblog/posts/2009-11-05-a-first-post.markdown +++ /dev/null @@ -1,22 +0,0 @@ ---- -title: A first post -author: Julius Caesar -tags: caesar, random crap ---- - -Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vivamus pretium leo -adipiscing lectus iaculis lobortis. Vivamus scelerisque velit dignissim metus -gravida sit amet dapibus ligula tempor. Quisque sit amet viverra nunc. -Suspendisse cursus elementum ante, ut venenatis nisi dictum eu. Nulla diam -ligula, eleifend in varius quis, malesuada a nibh. Vivamus consequat -pellentesque erat non blandit. Nunc sit amet eros vel massa semper ullamcorper -quis iaculis magna. Vestibulum ullamcorper urna sit amet est elementum -pulvinar. Vestibulum consequat lacus ac quam hendrerit tincidunt. Praesent -bibendum vehicula diam, nec sagittis risus tempus a. Nulla quis odio sit amet -odio vehicula cursus ut id odio. Curabitur semper magna euismod magna mollis -venenatis. Nunc eget eleifend velit. Mauris sed posuere sem. Fusce id nunc -nisi, a aliquam orci. Suspendisse laoreet justo non enim laoreet eget consequat -velit porttitor. Aenean faucibus sodales metus at tincidunt. Donec vestibulum -leo pulvinar erat auctor ac ultrices massa euismod. Phasellus blandit cursus -magna, eget lacinia mi lobortis sed. Suspendisse ultricies enim ligula, vel -scelerisque mauris. diff --git a/examples/tagblog/posts/2009-11-10-another-post.markdown b/examples/tagblog/posts/2009-11-10-another-post.markdown deleted file mode 100644 index 2fffc7c..0000000 --- a/examples/tagblog/posts/2009-11-10-another-post.markdown +++ /dev/null @@ -1,16 +0,0 @@ ---- -title: Another post -author: Marcus Tullius Cicero -tags: cicero, random crap ---- - -Vestibulum in ultrices urna. Etiam tempor enim dui, nec malesuada elit. Donec -tempor ligula et quam volutpat quis fermentum eros congue. Sed ut pulvinar sem. -Sed aliquam ipsum id purus sollicitudin vulputate. Cras et mauris dui, vel -hendrerit leo. Ut metus ipsum, fermentum ac malesuada id, tempus pharetra quam. -Donec diam felis, consequat ac scelerisque cursus, gravida non lectus. Sed -faucibus elit dapibus diam elementum id varius nisi tristique. Proin consequat -faucibus neque in aliquam. Vestibulum ligula odio, pulvinar vel hendrerit -vitae, egestas ut nibh. Praesent ut velit elit, in consequat dolor. Praesent -sem enim, commodo in gravida sed, adipiscing vel eros. Lorem ipsum dolor sit -amet, consectetur adipiscing elit. Proin non aliquam nunc. diff --git a/examples/tagblog/posts/2009-11-28-a-third-post.markdown b/examples/tagblog/posts/2009-11-28-a-third-post.markdown deleted file mode 100644 index afabcc7..0000000 --- a/examples/tagblog/posts/2009-11-28-a-third-post.markdown +++ /dev/null @@ -1,20 +0,0 @@ ---- -title: A third post -author: Publius Ovidius Naso -tags: epic fail, ovidius ---- - -Pellentesque tempor blandit elit, vel ultricies arcu congue egestas. Fusce -vitae rutrum nisl. Fusce id mauris libero, a venenatis tellus. Fusce iaculis, -lorem et ornare molestie, mauris risus mollis nisi, non fermentum lacus lacus -sit amet ipsum. Praesent lobortis ullamcorper dolor, eget convallis ligula -dignissim a. Suspendisse nulla nisi, congue et pharetra vel, convallis non -libero. Ut a nulla ipsum. Phasellus cursus velit id neque viverra ut -pellentesque justo posuere. Curabitur laoreet enim et velit tempor consectetur. -Donec eu pretium urna. Suspendisse vitae nisi at metus vestibulum aliquam in -sit amet nisl. Donec convallis lacinia odio, vestibulum molestie nunc feugiat -a. Suspendisse vehicula, sapien id aliquet consectetur, sem sapien ullamcorper -arcu, scelerisque porttitor elit ipsum posuere ligula. Nulla at velit eu metus -tincidunt auctor ut sit amet enim. Donec placerat dapibus nisi id facilisis. -Maecenas pellentesque pulvinar auctor. Curabitur gravida quam sit amet purus -consectetur blandit. diff --git a/examples/tagblog/posts/2009-12-04-this-blog-aint-dead.markdown b/examples/tagblog/posts/2009-12-04-this-blog-aint-dead.markdown deleted file mode 100644 index 0c56146..0000000 --- a/examples/tagblog/posts/2009-12-04-this-blog-aint-dead.markdown +++ /dev/null @@ -1,13 +0,0 @@ ---- -title: This blog ain't dead -author: Marcus Antonius -tags: epic fail, antonius ---- - -Etiam non felis aliquet tellus dictum vestibulum. Aliquam accumsan mauris non -lacus ultricies nec lacinia enim rhoncus. Curabitur vel tortor massa, elementum -tincidunt elit. Maecenas venenatis luctus arcu ut ullamcorper. Donec interdum -dolor eu enim tristique vel vehicula risus mollis. Nunc nec tortor quam. Nulla -a mauris arcu. Phasellus venenatis tortor vel odio tincidunt consequat. Integer -venenatis nibh vitae lectus laoreet eu feugiat nunc pretium. Integer nec turpis -metus, in fermentum lorem. diff --git a/examples/tagblog/posts/2009-12-23-almost-christmas.markdown b/examples/tagblog/posts/2009-12-23-almost-christmas.markdown deleted file mode 100644 index 78a1508..0000000 --- a/examples/tagblog/posts/2009-12-23-almost-christmas.markdown +++ /dev/null @@ -1,14 +0,0 @@ ---- -title: Almost Christmas! -author: Publius Vergilius Maro -tags: christmas, random crap ---- - -Morbi tincidunt eleifend ante, eu gravida ante rutrum vel. Nunc bibendum nulla -tellus, eget egestas sapien. Nam rhoncus interdum libero, eget congue orci -imperdiet eu. Quisque pellentesque fringilla urna, ac venenatis ante ultricies -et. Pellentesque habitant morbi tristique senectus et netus et malesuada fames -ac turpis egestas. Mauris eleifend sagittis ultrices. Quisque ultrices accumsan -nisl, sed pellentesque metus porta vitae. Nulla facilisi. In et nibh tincidunt -mi volutpat pellentesque vitae nec sapien. Integer massa ipsum, pellentesque in -elementum at, cursus sit amet diam. diff --git a/examples/tagblog/templates/default.html b/examples/tagblog/templates/default.html deleted file mode 100644 index 0537065..0000000 --- a/examples/tagblog/templates/default.html +++ /dev/null @@ -1,23 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" -"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> -<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> - <head> - <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> - <title>SimpleBlog - $title$</title> - <link rel="stylesheet" type="text/css" href="/css/default.css" /> - <link rel="alternate" - type="application/rss+xml" - title="SimpleBlog" - href="/rss.xml" /> - </head> - <body> - <h1>SimpleBlog - $title$</h1> - <div id="navigation"> - <a href="/">Home</a> - <a href="/posts.html">All posts</a> - </div> - - $body$ - </body> -</html> diff --git a/examples/tagblog/templates/index.html b/examples/tagblog/templates/index.html deleted file mode 100644 index 7152d02..0000000 --- a/examples/tagblog/templates/index.html +++ /dev/null @@ -1,19 +0,0 @@ -<div id="posts"> - <h1>Recent posts</h1> - <ul> - $posts$ - </ul> - <p><a href="/posts.html">All posts…</a></p> - - <h1>Tags</h1> - <div> - $tagcloud$ - </div> -</div> - -<div class="about"> - <h1>About</h1> - <p> - This is a sample blog for educational purposes. - </p> -</div> diff --git a/examples/tagblog/templates/post.html b/examples/tagblog/templates/post.html deleted file mode 100644 index 0233fc1..0000000 --- a/examples/tagblog/templates/post.html +++ /dev/null @@ -1,7 +0,0 @@ -<h1>$title$</h1> - -<p>by <em>$author$</em> on <strong>$date$</strong></p> - -<p>Tagged as: $prettytags$.</p> - -$body$ diff --git a/examples/tagblog/templates/postitem.html b/examples/tagblog/templates/postitem.html deleted file mode 100644 index ccbb58e..0000000 --- a/examples/tagblog/templates/postitem.html +++ /dev/null @@ -1,4 +0,0 @@ -<li> - <a href="$url$">$title$</a> - - <em>$date$</em> - by <em>$author$</em> -</li> diff --git a/examples/tagblog/templates/posts.html b/examples/tagblog/templates/posts.html deleted file mode 100644 index 758c670..0000000 --- a/examples/tagblog/templates/posts.html +++ /dev/null @@ -1,4 +0,0 @@ -<h1>$title$</h1> -<ul> - $posts$ -</ul> |