module Panda.View.RSS where

-- env
import Panda.Helper.Env
import Prelude hiding ((.), (/), id)
import qualified Panda.Config.Global as Config
import Panda.Type.Pager as Pager
import Text.RSS

-- model
import Panda.Model.Post as Post


entry_uri x = "/" ++ Post.uid x.urlEncode.split "/".tail.join "/"

-- RSS
channel_rss_template = [ Language "en-us" ]

item_rss_template x = 
  [ Title $ x.Post.title
  , Description $ x.Post.body.Config.markup.show
  , Author $ Config.author_email
  , Link $ x.item_uri
  , PubDate $ x.Post.date 
  ]

item_uri x = URI 
  { uriScheme = "http://"
  , uriAuthority = Nothing
  , uriPath = Config.host_name ++ x.entry_uri
  , uriQuery = ""
  , uriFragment = ""
  }

rss categary s xs = RSS title  (rss_uri link) title channel_rss_template (xs.take 20 .map item_rss_template)
  .rssToXML.showXML
  where 
    link =  Config.host_name / categary / s
    title = Config.blog_title ++ " / " ++ s