From f113778e17be9124615ccc1ba684cb4a832f9408 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <viam@humac.com>
Date: Mon, 5 Mar 2012 05:27:20 +0100
Subject: [PATCH] * began work on commentBox

---
 src/Blog.hs    | 14 ++++++++++++++
 src/Locales.hs |  3 +++
 2 files changed, 17 insertions(+)

diff --git a/src/Blog.hs b/src/Blog.hs
index 575ec04fc..62de9be0f 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
diff --git a/src/Locales.hs b/src/Locales.hs
index 6fb5849b8..01852cbdb 100644
--- a/src/Locales.hs
+++ b/src/Locales.hs
@@ -87,6 +87,9 @@ noComments EN = " No comments yet"
 cHead DE = "Kommentare:"
 cHead EN = "Comments:"
 
+cwHead DE = "Kommentieren:"
+cwHead EN = "Comment:"
+
 cTimeFormat DE = "[Am %d.%m.%y um %H:%M Uhr]"
 cTimeFormat EN = "[On %D at %H:%M]"