mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* rendering comments

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2012-02-24 00:03:16 +01:00
parent d04d693eb9
commit 066762051a
3 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
res/blogstyle.css
View file

@ -52,6 +52,15 @@ body {
margin-top: 20px;
}
.tt {
font-family: "courier new",courier,monospace;
font-size: 13px;
}
.cl {
text-decoration:none;color:black;
}
.innerBoxTop {
height: 28px;
color: #000000;

13
src/Blog.hs
View file

@ -91,17 +91,20 @@ renderEntry entry = H.div ! A.class_ "innerBox" $ do
renderComments :: [Comment] -> BlogLang -> Html
renderComments [] DE = H.li $ toHtml (" Keine Kommentare" :: String)
renderComments [] EN = H.li $ toHtml (" No comments yet" :: String)
renderComments comments _ = sequence_ $ map showComment comments
renderComments comments lang = sequence_ $ map showComment comments
where
showComment :: Comment -> Html
showComment c = H.li $ do
H.a ! A.name (toValue $ cdate c) ! A.href (toValue $ "#" ++ show c) $
H.a ! A.name (toValue $ cdate c) ! A.href (toValue $ "#" ++ (show $ cdate c)) ! A.class_ "cl" $
H.i $ toHtml $ (cauthor c ++ ": ")
preEscapedString $ ctext c
H.p ! A.class_ "tt" $ toHtml (timeString $ cdate c)
getTime :: Integer -> Maybe UTCTime
getTime = parseTime defaultTimeLocale "%s" (show )
showTime (Just t) = formatTime defaultTimeLocale "[Am %d.%m.%y um %H:%M Uhr]" t
showTime Nothing = "???" -- this can not happen??
getTime t = parseTime defaultTimeLocale "%s" (show t)
showTime DE (Just t) = formatTime defaultTimeLocale "[Am %d.%m.%y um %H:%M Uhr]" t
showTime EN (Just t) = formatTime defaultTimeLocale "[On %D at %H:%M Uhr]" t
showTime _ Nothing = "[???]" -- this can not happen??
timeString = (showTime lang) . getTime
--[Am %d.%m.%y um %H:%M Uhr]

4
src/Server.hs
View file

@ -85,8 +85,8 @@ stripResult :: Result a -> a
stripResult (Ok z) = z
stripResult (Error s) = error $ "JSON error: " ++ s
-- CouchDB View Setup
latestDEView = "function(doc){ if(doc.lang == \"de\"){ emit([doc.year, doc.month, doc.day, doc.id_], doc); } }"
latestENView = "function(doc){ if(doc.lang == \"en\"){ emit([doc.year, doc.month, doc.day, doc.id_]], doc); } }"
latestDEView = "function(doc){ if(doc.lang == \"DE\"){ emit([doc.year, doc.month, doc.day, doc.id_], doc); } }"
latestENView = "function(doc){ if(doc.lang == \"EN\"){ emit([doc.year, doc.month, doc.day, doc.id_]], doc); } }"
latestDE = ViewMap "latestDE" latestDEView
latestEN = ViewMap "latestEN" latestENView