maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* one step closer to adding comments

Browse source 
* generic Doc update function
* redirect /<commentID> to appropriate full link
This commit is contained in:
"Vincent Ambo ext:(%22) 2012-03-07 12:59:44 +01:00
parent cd3a5f2cb5
commit bc25b9d1e0
3 changed files with 46 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Blog.hs
View file

@ -14,6 +14,7 @@ import Text.Blaze.Html5 (Html, (!), a, form, input, p, toHtml, label)
import Text.Blaze.Html5.Attributes (action, enctype, href, name, size, type_, value)
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
import System.Locale (defaultTimeLocale)
import Locales
@ -53,8 +54,9 @@ blogTemplate lang t_append body = H.docTypeHtml $ do --add body
H.body $ do
H.div ! A.class_ "mainshell" $ H.div ! A.class_ "gradBox" $ do
H.div ! A.class_ "header" $ do
H.a ! A.href (toValue $ "/" ++ show lang) !
A.style "text-decoration:none;color:black;font-size:x-large;font-weight:bold;" $
toHtml $ blogTitle lang ""
H.a ! A.href "/" ! A.style "text-decoration:none;color:black;font-size:x-large;font-weight:bold;" $
H.p ! A.style "clear: both;" $ do
H.span ! A.style "float: left;" ! A.id "cosx" $ H.b $ contactInfo iMessage
-- H.span ! A.id "cios" ! A.style "display:none;" $ H.b $ contactInfo "sms:tazjin@me.com"
@ -117,6 +119,7 @@ renderCommentBox cLang cId = do
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
H.p $ H.input ! A.type_ "submit" ! A.value (toValue $ cSend cLang)
renderComments :: [Comment] -> BlogLang -> Html
renderComments [] lang = H.li $ toHtml $ noComments lang