[the theme should provide a recent blog posts view
Jeremy Shaw <jeremy@seereason.com>**20121125023807
 Ignore-this: efdfe45dcae30e18c03b8e312f75a53f
] hunk ./clckwrks-theme-bootstrap/BootstrapTheme.hs 1
-{-# LANGUAGE FlexibleContexts, OverloadedStrings #-}
+{-# LANGUAGE FlexibleContexts, OverloadedStrings, RecordWildCards #-}
hunk ./clckwrks-theme-bootstrap/BootstrapTheme.hs 16
+    , themeBlog      = blog
hunk ./clckwrks-theme-bootstrap/BootstrapTheme.hs 43
+
+postsHTML :: XMLGenT (Clck ClckURL) XML
+postsHTML =
+    do posts <- getPosts
+       <ol class="blog-posts">
+        <% mapM postHTML posts %>
+        </ol>
+
+postHTML :: Page -> XMLGenT (Clck ClckURL) XML
+postHTML Page{..} =
+    <li class="blog-post">
+     <h2><% pageTitle %></h2>
+     <span class="pub-date"><% pageDate %></span>
+     <% pageSrc %>
+     <p><a href=(ViewPage pageId)>permalink</a></p>
+    </li>
+
+blog :: XMLGenT (Clck ClckURL) XML
+blog =
+    do ttl <- lift getBlogTitle
+       pageTemplate ttl () $
+           <%>
+            <div id="blog-content">
+             <h1 class="page-title"><% ttl %></h1>
+             <% postsHTML %>
+            </div>
+           </%>
hunk ./clckwrks-theme-clckwrks/Theme.hs 1
-{-# LANGUAGE FlexibleContexts, OverloadedStrings #-}
+{-# LANGUAGE FlexibleContexts, OverloadedStrings, RecordWildCards #-}
hunk ./clckwrks-theme-clckwrks/Theme.hs 16
+    , themeBlog      = blog
hunk ./clckwrks-theme-clckwrks/Theme.hs 65
+
+postsHTML :: XMLGenT (Clck ClckURL) XML
+postsHTML =
+    do posts <- getPosts
+       <ol class="blog-posts">
+        <% mapM postHTML posts %>
+        </ol>
+
+postHTML :: Page -> XMLGenT (Clck ClckURL) XML
+postHTML Page{..} =
+    <li class="blog-post">
+     <h2><% pageTitle %></h2>
+     <span class="pub-date"><% pageDate %></span>
+     <% pageSrc %>
+     <p><a href=(ViewPage pageId)>permalink</a></p>
+    </li>
+
+blog :: XMLGenT (Clck ClckURL) XML
+blog =
+    do ttl <- lift getBlogTitle
+       pageTemplate ttl () $
+           <%>
+            <div id="blog-content">
+             <h1 class="page-title"><% ttl %></h1>
+             <% postsHTML %>
+            </div>
+           </%>
hunk ./clckwrks/Clckwrks/Monad.hs 114
+    , themeBlog      :: XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
hunk ./clckwrks/Clckwrks/Plugin.hs 78
-{-
-         (Blog) ->  -- FIXME
-           do clckBlogHandler cc
--}
+
+         (Blog) ->
+           do p <- plugins <$> get
+              mTheme <- getTheme p
+              case mTheme of
+                Nothing -> escape $ internalServerError $ toResponse $ ("No theme package is loaded." :: Text)
+                (Just theme) -> fmap toResponse $ unXMLGenT $ themeBlog theme
+