{-# LANGUAGE NoImplicitPrelude #-}
module Bamboo.View.Control.Helper where

import Bamboo.Helper.Env
  
import Bamboo.Type.Pager as Pager

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 ( 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"