Misc.hs

module Turbinado.View.Helpers.Misc ( 
  breadCrumbs
  ) where

import Data.List
import Data.Maybe
import qualified Network.URI as URI
import qualified Network.HTTP as HTTP
import System.FilePath

import Turbinado.Environment.Types
import Turbinado.Environment.Request
import Turbinado.View.Monad
import Turbinado.View.XML
import Turbinado.View.XMLGenerator

breadCrumbs :: View XML
breadCrumbs = do e <- getEnvironment
                 let r  = fromJust $ getRequest e
                     ps = tail $ splitDirectories $ URI.uriPath $ rqURI r
                 return $ cdata $"<div class='breadcrumbs'>" ++ (concat $ intersperse " : " ps) ++ "</div>"