panda-2008.10.12: Panda/Type/Sidebar.hs

module Panda.Type.Sidebar where

import Panda.Helper.Env hiding (body)
import Prelude hiding ((.), (/), (^), id, readFile)
import Panda.Type.Reader

data SidebarItem = SidebarItem
  { name :: String
  , body :: String
  , reader :: Reader
  }
  deriving (Show, Eq)

instance Markable SidebarItem where
  markup x  = render_to_html (x.reader) (x.body)

read_sidebar_item default_reader s = liftM2 (SidebarItem name) body (return reader) where
  body = s.to_utf8.readFile
  reader = s.take_extension.guess_reader.fromMaybe default_reader
  name = s.takeFileName.dropExtension