From e358894df10ce2106acf3df560ce94ac03e03e5f Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 15 Mar 2010 19:07:53 +0100 Subject: Migrated rssblog example to feedblog. --- examples/rssblog/hakyll.hs | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 examples/rssblog/hakyll.hs (limited to 'examples/rssblog/hakyll.hs') diff --git a/examples/rssblog/hakyll.hs b/examples/rssblog/hakyll.hs deleted file mode 100644 index 50970f8..0000000 --- a/examples/rssblog/hakyll.hs +++ /dev/null @@ -1,34 +0,0 @@ -module Main where - -import Control.Monad.Reader (liftIO) -import Text.Hakyll (hakyll) -import Text.Hakyll.Render (renderAndConcat, renderChain, css) -import Text.Hakyll.File (getRecursiveContents, directory) -import Text.Hakyll.Renderables (createPagePath, createCustomPage, createListing) -import Data.List (sort) -import Control.Monad (mapM_, liftM) -import Data.Either (Either(..)) - -main = hakyll $ do - -- Static directory. - directory css "css" - - -- Find all post paths. - postPaths <- liftM (reverse . sort) $ getRecursiveContents "posts" - let renderablePosts = map createPagePath postPaths - - -- Render index, including recent posts. - let index = createListing "index.html" "templates/postitem.html" (take 3 renderablePosts) [("title", "Home")] - renderChain ["index.html", "templates/default.html"] index - - -- Render all posts list. - let posts = createListing "posts.html" "templates/postitem.html" renderablePosts [("title", "All posts")] - renderChain ["posts.html", "templates/default.html"] posts - - -- Render all posts. - liftIO $ putStrLn "Generating posts..." - mapM_ (renderChain ["templates/post.html", "templates/default.html"]) renderablePosts - - -- Render rss feed - let rss = createListing "rss.xml" "templates/rssitem.xml" (take 3 renderablePosts) [] - renderChain ["templates/rss.xml"] rss -- cgit v1.2.3