Helper.hs

module Panda.View.Theme.BluePrint.Helper where



import Panda.Helper.Env
import Prelude hiding ((.), (/), id, span)
import Panda.Config.Global as Config
import qualified Panda.Type.State as State
import Text.XHtml.Strict
  
import Panda.View.Theme.BluePrint.Template.Template
import Panda.Model.Post as Post
import Panda.Type.Pager as Pager


nav p r = 
  [ div_class "alighleft" << nav_next p r
  , div_class "alignright" << nav_previous p r
  ]
  
nav_previous p r = if p.Pager.has_previous 
  then toHtml $ hotlink ( r' ++ "page=" ++ p.Pager.previous.show ) << previous_sign
  else spaceHtml
  where r' = if isSuffixOf "&" r then r else r ++ "?"
    
nav_next p r = if p.Pager.has_next
  then toHtml $ hotlink ( r' ++ "page=" ++ p.Pager.next.show ) << next_sign
  else spaceHtml
  where r' = if isSuffixOf "&" r then r else r ++ "?"

next_sign     = "Next Entries »"
previous_sign = "« Previous Entries"