Post.hs

module Panda.View.Atom.Post where
  
import Panda.Helper.Env hiding (name, title)
import Prelude hiding ((.), (/), (^), id, span)
import qualified Panda.Config.Global as G
import Panda.Helper.StateHelper hiding (uri)

-- view
import qualified Panda.View.Atom.Tag as Tag

-- model
import Panda.Model.Post

-- render
instance DataRenderer Post where
  render_data = entry

-- instance helpers
entry x = div_class "post" << [entry_title, entry_mark, entry_body] where
  entry_title = x.title_link
  entry_body  = div_class "entry" << x.markup
  entry_mark  = p ! [theclass "small"] << [ post_date, post_tags, post_comments ].map (send_to x)

title_link x              = h2 << hotlink (x.uri) << x.title
post_date x               = toHtml $ x.date.format_date "%b %e, %Y"

post_tags x | x.tags.null = toHtml ""
post_tags x = " | " +++ "Published in " +++ x.tags.map Tag.tag_link .intersperse (", ".toHtml)

post_comments x | x.comment_size.is 0 = toHtml ""
post_comments x = " | " +++ hotlink ( x.uri / "#comments") << (x.comment_size.show ++ " Comments")