Comment.hs

{-# LANGUAGE NoImplicitPrelude #-}
module Panda.View.Control.Comment where
  
import Panda.Helper.Env hiding (body, date)

-- view
import Panda.View.Atom.Comment as Comment

-- api
styled_entry alt x = li ! [theclass alt] << x.render_data

list [] = []
list xs = 
  [ h2 ! [id "comments"] << "Responses"
  , olist ! [theclass "commentlist" ] << xs.zip (cycle ["comments-alt", ""]).map (splash styled_entry)
  ]
  
create = Comment.create