module Panda.View.Control.Helper where

import Panda.Helper.Env
import Prelude hiding ((.), (/), (^), id, span)
  
import Panda.Type.Pager as Pager
import qualified Panda.Config.Global as G


nav p r = 
  [ div_class "alignleft" << nav_previous p r
  , div_class "alignright" << nav_next p r
  ]
  
nav_previous p r = if p.Pager.has_previous 
  then toHtml $ hotlink ( G.root ++ 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 ( G.root ++ 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"