[clckwrks-theme-clckwrks: add support for Home
Jeremy Shaw <jeremy@seereason.com>**20121126201438
 Ignore-this: 4c88f1e4c2410722359b52923ae62ca5
] hunk ./clckwrks-theme-clckwrks/Theme.hs 27
-
hunk ./clckwrks-theme-clckwrks/Theme.hs 28
+    do pid <- XMLGenT $ getPageId
+       case pid of
+         (PageId 1) -> home ttl hdr bdy
+         _          -> standardTemplate ttl hdr bdy
+
+standardTemplate :: ( EmbedAsChild (ClckT ClckURL (ServerPartT IO)) headers
+                    , EmbedAsChild (ClckT ClckURL (ServerPartT IO)) body
+                    ) =>
+                    Text
+                 -> headers
+                 -> body
+                 -> XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
+standardTemplate ttl hdr bdy =
hunk ./clckwrks-theme-clckwrks/Theme.hs 44
-      <link href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.1.1/css/bootstrap.min.css"        rel="stylesheet" media="screen" />
-      <link href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.1.1/css/bootstrap-responsive.css" rel="stylesheet" />
+--      <link href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.1.1/css/bootstrap.min.css"        rel="stylesheet" media="screen" />
+--      <link href="http://netdna.bootstrapcdn.com/twitter-bootstrap/2.1.1/css/bootstrap-responsive.css" rel="stylesheet" />
hunk ./clckwrks-theme-clckwrks/Theme.hs 67
-      <div class="container">
-       <div class="row">
+--      <div class="container">
+--       <div class="row">
hunk ./clckwrks-theme-clckwrks/Theme.hs 72
-       </div>
-      </div>
+--       </div>
+--      </div>
hunk ./clckwrks-theme-clckwrks/Theme.hs 78
+------------------------------------------------------------------------------
+-- blog
+------------------------------------------------------------------------------
+
hunk ./clckwrks-theme-clckwrks/Theme.hs 108
+
+------------------------------------------------------------------------------
+-- home
+------------------------------------------------------------------------------
+
+summaryBox :: PageId -> String -> String -> GenXML (Clck ClckURL)
+summaryBox pid title iconURL =
+    <div class="summary-box">
+     <h2><% title %></h2>
+--     <img src=(ThemeData iconURL) />
+     <% getPageSummary pid %>
+     <p class="read-more"><a href=(ViewPage pid)>read more...</a></p>
+    </div>
+
+-- home :: XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
+home :: ( EmbedAsChild (ClckT ClckURL (ServerPartT IO)) headers
+        , EmbedAsChild (ClckT ClckURL (ServerPartT IO)) body
+        ) =>
+        Text
+     -> headers
+     -> body
+     -> XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
+home ttl hdr bdy =
+    standardTemplate "clckwrks.com" hdr $
+        <div id="homepage">
+
+         <div id="page-content">
+         <h1>clckwrks</h1>
+{-
+         <div id="logo">
+          <img src=(ThemeData "clckwrks-logo.png") />
+         </div>
+-}
+         <blockquote>
+--          <p><span class="big-quote">“</span>runs smoothly and invisibly<span class="big-quote">”</span> - <span class="quote-author">Katherine Durkes</span></p>
+          <p><span class="big-quote">“</span>An open-source CMS you can trust, built with the dexterity of Haskell.<span class="big-quote">”</span></p>
+         </blockquote>
+
+          <% bdy %>
+
+          <div class="summary-boxes">
+           <% summaryBox (PageId 8) "Why?" "philosophy-icon.png" %>
+           <% summaryBox (PageId 3) "Get Started" "7-icon.png" %>
+           <% summaryBox (PageId 2) "Get Involved" "8-icon.png" %>
+         </div>
+
+         </div>
+
+        </div>