* began work on commentBox
This commit is contained in:
parent
96093c9009
commit
f113778e17
2 changed files with 17 additions and 0 deletions
14
src/Blog.hs
14
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
|
||||
|
|
|
@ -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]"
|
||||
|
||||
|
|
Loading…
Reference in a new issue