about summary refs log tree commit diff
path: root/src/Blog.hs
diff options
context:
space:
mode:
authorVincent Ambo <viam@humac.com>2012-03-05T04·27+0100
committerVincent Ambo <viam@humac.com>2012-03-05T04·27+0100
commitf113778e17be9124615ccc1ba684cb4a832f9408 (patch)
treed397b7cc8be47013f6d46beef300eade56755986 /src/Blog.hs
parent96093c9009554cd63431022635fccf54e47438e2 (diff)
* began work on commentBox
Diffstat (limited to 'src/Blog.hs')
-rw-r--r--src/Blog.hs14
1 files changed, 14 insertions, 0 deletions
diff --git a/src/Blog.hs b/src/Blog.hs
index 575ec04fcf8a..62de9be0f442 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -102,6 +102,20 @@ renderEntry entry = H.div ! A.class_ "innerBox" $ do
         H.div ! A.class_ "innerBoxComments" $ do
             H.div ! A.name "cHead" ! A.style "font-size:large;font-weight:bold;" $ toHtml $ cHead (lang entry)
             H.ul $ renderComments (comments entry) (lang entry)
+            renderCommentBox $ lang entry
+
+renderCommentBox :: BlogLang -> Html
+renderCommentBox lang = do
+    H.div ! A.name "cHead" $ toHtml $ cwHead lang
+    H.form $ do
+        H.p $ H.label $ do
+            toHtml ("Name:" :: String)
+            H.input 
+{-
+<form>
+ <p><label>Customer name: <input></label></p>
+</form>
+-}
 
 renderComments :: [Comment] -> BlogLang -> Html
 renderComments [] lang = H.li $ toHtml $ noComments lang