* began work on commentBox

2 files changed, 17 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
diff --git a/src/Locales.hs b/src/Locales.hs
index 6fb5849b8c0f..01852cbdb0a9 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]"