about summary refs log tree commit diff
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
parent96093c9009554cd63431022635fccf54e47438e2 (diff)
* began work on commentBox
-rw-r--r--src/Blog.hs14
-rw-r--r--src/Locales.hs3
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]"