[clckwrks-0.7.1: added Acid.getPageTitle
Jeremy Shaw <jeremy@seereason.com>**20120526214634
 Ignore-this: 327575aa0b7ac5399717d77f59ceb08e
] hunk ./clckwrks-dot-com/Main.hs 245
+            , dir "blog" $ dir "atom.xml" $ seeOther ((siteShowURL sitePlus) (C $ AtomFeed) []) (toResponse ())
+            , dir "blog"        $ seeOther ((siteShowURL sitePlus) (C $ Blog) []) (toResponse ())
hunk ./clckwrks-dot-com/Main.hs 332
+------------------------------------------------------------------------------
+-- javascript check
+------------------------------------------------------------------------------
+
+-- javascriptCheck :: 
addfile ./clckwrks-dot-com/run.sh
hunk ./clckwrks-dot-com/run.sh 1
+#!/bin/bash
hunk ./clckwrks-dot-com/run.sh 3
+runhaskell -i../clckwrks/ -i../clckwrks-theme-clckwrks/ -i../clckwrks-plugin-media Main.hs --http-port 8000 --jstree-path=../jstree --json2-path=../json2
hunk ./clckwrks-theme-clckwrks/Theme/Blog.hs 12
-       <ol id="blog-posts">
+       <ol class="blog-posts">
hunk ./clckwrks-theme-clckwrks/Theme/Blog.hs 19
-     <h1><% pageTitle %></h1>
+     <h2><% pageTitle %></h2>
hunk ./clckwrks-theme-clckwrks/Theme/Blog.hs 30
-            <div id="page-content">
+            <div id="blog-content">
hunk ./clckwrks-theme-clckwrks/Theme/Home.hs 19
-    template "Home" () $
+    template "clckwrks.com" () $
hunk ./clckwrks-theme-clckwrks/Theme/Home.hs 26
+         <div id="page-content">
+          <% getPageContent %>
+         </div>
+
hunk ./clckwrks-theme-clckwrks/Theme/Template.hs 55
-                      else <%>
-                            <div><a href=(Auth $ AuthURL A_Login)>login</a></div>
-                            <div><a href=(Admin Console)>admin console</a></div>
-                           </%>
+                      else do pid <- lift getPageId
+                              <%>
+                               <div><a href=(Auth $ AuthURL A_Login)>login</a></div>
+                               <div><a href=(Admin Console)>admin console</a></div>
+                               <div><a href=(Admin (EditPage pid))>edit this page</a></div>
+                              </%>
hunk ./clckwrks-theme-clckwrks/data/style.css 9
+/* background: #e0ffe0; */
+
hunk ./clckwrks-theme-clckwrks/data/style.css 18
+ background: white;
+/*
+ background:url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAIAAAACCAYAAABytg0kAAAAFUlEQVQIHWNgYGAw/v//PwMjiAABADusBi/shrLOAAAAAElFTkSuQmCC) repeat; 
+ background-color: #ef0f;
+*/
+
+/* background:url('http://ak5.picdn.net/shutterstock/videos/1278652/preview/stock-footage-light-seamless-background.jpg') repeat;  */
+
+
+
+
+/*    background:url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAIAAAACCAYAAABytg0kAAAAFUlEQVQIHWNgYGAw/v//PwMjiAABADusBi/shrLOAAAAAElFTkSuQmCC) repeat; */
+/*    position: absolute;
+    width: 100%;
+    margin-top: 3em;
+    height: 400px;
+    border-radius: 10px;
+    opacity: 0.5; */
+
+
hunk ./clckwrks-theme-clckwrks/data/style.css 58
-    font-weight: normal;
+
hunk ./clckwrks-theme-clckwrks/data/style.css 89
-    box-shadow: 0px 0px 5px 0px #aaa;
-}
-
-ul.page-menu:hover
-{
-    background: #444;
hunk ./clckwrks-theme-clckwrks/data/style.css 115
-    margin-right: -1px;
-    line-height: 2.5em;
+    margin-right: 1em;
+    line-height: 1.5em;
+    box-shadow: 0px 0px 5px 0px #aaa;
hunk ./clckwrks-theme-clckwrks/data/style.css 120
+.page-menu li:hover
+{
+    background: #444;
+}
+
+
hunk ./clckwrks-theme-clckwrks/data/style.css 179
+    background: white;
hunk ./clckwrks-theme-clckwrks/data/style.css 288
+
+#blog-content
+{
+/*    border: 1px solid #ddd;
+    box-shadow: 0px 3px 10px 5px #dfdfdf; */
+    padding-bottom: 1em;
+    margin-left: 15em;
+    margin-right: 15em;
+    margin-top: 1em;
+    background: white;
+
+}
+
+#blog-content h1
+{
+    margin-left: 0.5em;
+    margin-top: 0em;
+    margin-bottom: 0em;
+    font-size: 2em;
+    font-weight: bold;
+}
+
+#blog-content h2
+{
+    margin-top: 0.5em;
+    margin-left: 0;
+    margin-bottom: 0;
+    font-size: 1.75em;
+    color: #36afdc;
+    font-weight: bold;
+}
+
+.pub-date
+{
+    font-size: 0.8em;
+    font-style: italic;
+    color: #bbb;
+}
+
+.blog-posts
+{
+}
+
+ol.blog-posts
+{
+    list-style-type: none;
+}
+
+.blog-posts li
+{
+    border-bottom: 1px dotted #aaa;
+}
hunk ./clckwrks/Clckwrks/Page/Acid.hs 10
+    , GetPageTitle(..)
hunk ./clckwrks/Clckwrks/Page/Acid.hs 111
+-- | get the 'pageTitle' for 'PageId'
+getPageTitle :: PageId -> Query PageState (Maybe Text)
+getPageTitle pid = fmap pageTitle <$> pageById pid
+
+
hunk ./clckwrks/Clckwrks/Page/Acid.hs 184
+  , 'getPageTitle
hunk ./clckwrks/clckwrks.cabal 2
-Version:             0.7.0
+Version:             0.7.1