* finished comment field

This commit is contained in:
Vincent Ambo 2012-03-06 00:50:53 +01:00
parent f113778e17
commit 0418692f07
4 changed files with 35 additions and 13 deletions

View file

@ -63,6 +63,11 @@ body {
text-decoration:none;color:black;
}
.cHead {
font-size:large;
font-weight:bold;
}
.innerBoxTop {
height: 28px;
color: #000000;
@ -112,3 +117,13 @@ body {
.innerBoxComments {
padding-left: 20px
}
label span {
width: 6%;
float: left;
}
label input {
display: block;
}

View file

@ -100,22 +100,20 @@ renderEntry entry = H.div ! A.class_ "innerBox" $ do
preEscapedString $ text entry
preEscapedString $ mtext entry
H.div ! A.class_ "innerBoxComments" $ do
H.div ! A.name "cHead" ! A.style "font-size:large;font-weight:bold;" $ toHtml $ cHead (lang entry)
H.div ! A.class_ "cHead" $ toHtml $ cHead (lang entry) -- ! A.style "font-size:large;font-weight:bold;"
H.ul $ renderComments (comments entry) (lang entry)
renderCommentBox $ lang entry
renderCommentBox (lang entry) (_id entry)
renderCommentBox :: BlogLang -> Html
renderCommentBox lang = do
H.div ! A.name "cHead" $ toHtml $ cwHead lang
H.form $ do
renderCommentBox :: BlogLang -> String -> Html
renderCommentBox cLang cId = do
H.div ! A.class_ "cHead" $ toHtml $ cwHead cLang
H.form ! A.method "POST" ! A.action (toValue $ "/" ++ (show cLang) ++ "/postcomment/" ++ cId) $ do
H.p $ H.label $ do
toHtml ("Name:" :: String)
H.input
{-
<form>
<p><label>Customer name: <input></label></p>
</form>
-}
H.span $ "Name:" --toHtml ("Name:" :: String)
H.input ! A.name "cname"
H.p $ H.label $ do
H.span $ toHtml $ cSingle cLang -- toHtml (cSingle lang)
H.textarea ! A.name "ctext" ! A.cols "50" ! A.rows "13" $ mempty
renderComments :: [Comment] -> BlogLang -> Html
renderComments [] lang = H.li $ toHtml $ noComments lang

View file

@ -90,6 +90,9 @@ cHead EN = "Comments:"
cwHead DE = "Kommentieren:"
cwHead EN = "Comment:"
cSingle DE = "Kommentar:" --input label
cSingle EN = "Comment:"
cTimeFormat DE = "[Am %d.%m.%y um %H:%M Uhr]"
cTimeFormat EN = "[On %D at %H:%M]"

View file

@ -46,6 +46,9 @@ blogHandler lang =
msum [ path $ \(year :: Int) -> path $ \(month :: Int) -> path $ --single entry
\(day :: Int) -> path $ \(id_ :: String) -> showEntry year month day id_
, path $ \(year :: Int ) -> path $ \(month :: Int) -> showMonth year month lang
, do
decodeBody tmpPolicy
dir "postcomment" $ path $ \(id_ :: String) -> addComment id_
, do nullDir
showIndex lang
]
@ -84,6 +87,9 @@ showMonth y m lang = do
startkey = JSArray [toJSON y, toJSON m]
endkey = JSArray [toJSON y, toJSON m, JSObject (toJSObject [] )]
addComment :: String -> ServerPart Response
addComment id_ = undefined
-- http://tazj.in/2012/02/10.155234
-- CouchDB functions