Helper.hs

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

import Bamboo.View.Env hiding (p)
import Bamboo.View.Helper

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