diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-08 13:33:43 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-08 13:33:43 +0100 |
commit | 2751b27c1a480b703e2420bca5a833bbe52f0c78 (patch) | |
tree | e0b4d3b30b76bec30f8e3415858f01c439a1f8cb /examples/tagblog | |
parent | 699bd0011e9771cd5c03c65aec0ec79656c475a1 (diff) | |
download | hakyll-2751b27c1a480b703e2420bca5a833bbe52f0c78.tar.gz |
Added another tutorial.
Diffstat (limited to 'examples/tagblog')
-rw-r--r-- | examples/tagblog/hakyll.hs | 3 | ||||
-rw-r--r-- | examples/tagblog/index.html | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/examples/tagblog/hakyll.hs b/examples/tagblog/hakyll.hs index 330ba3b..1476360 100644 --- a/examples/tagblog/hakyll.hs +++ b/examples/tagblog/hakyll.hs @@ -35,7 +35,8 @@ main = hakyll $ do (take 3 renderablePosts) renderChain ["index.html", "templates/default.html"] $ createCustomPage "index.html" ("templates/postitem.html" : take 3 postPaths) - [("title", Left "Home"), ("posts", Right recentPosts)] + [("title", Left "Home"), ("posts", Right recentPosts), + ("tagcloud", Left $ renderTagCloud tagMap tagToURL 100 200)] -- Render all posts. mapM_ (renderChainWith postManipulation diff --git a/examples/tagblog/index.html b/examples/tagblog/index.html index e628bd6..777433d 100644 --- a/examples/tagblog/index.html +++ b/examples/tagblog/index.html @@ -4,6 +4,9 @@ $posts </ul> <a href="/posts.html">All posts...</a> + <div> + $tagcloud + </div> </div> <div class="about"> |