-
^{preEscapedText $ btext}
^{preEscapedText $ mtext}
#{cHead lang}- #{renderComments comments lang}
^{renderCommentBox lang entryId}
|]
where
woText = flip T.append author $ T.pack $ (formatTime defaultTimeLocale (eTimeFormat lang) edate)
renderComments :: [Comment] -> BlogLang -> Html
renderComments [] lang = [shamlet|
- #{noComments lang}|] renderComments comments lang = [shamlet| $forall comment <- comments
-
#{append (cauthor comment) ": "}
^{preEscapedText $ ctext comment}
#{timeString $ cdate comment} |] where timeString = formatTime defaultTimeLocale (cTimeFormat lang) renderCommentBox :: BlogLang -> EntryId -> Html renderCommentBox cLang cId = [shamlet|
#{cwHead cLang}