* began work on commentBox

This commit is contained in:
Vincent Ambo 2012-03-05 05:27:20 +01:00
parent 96093c9009
commit f113778e17
2 changed files with 17 additions and 0 deletions

View file

@ -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

View file

@ -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]"