-- Copyright (C) 2009-2012 Emil Axelsson <emax@chalmers.se>
--
-- This program is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-- |
-- Copyright : Copyright (C) 2009-2012 Emil Axelsson <emax@chalmers.se>
-- License : GNU GPL, version 2 or above
--
-- Maintainer : Emil Axelsson <emax@chalmers.se>
module Types where
import Text.Pandoc
data MetaInfo = MetaInfo
{ title :: [Inline]
, authors :: [[Inline]]
, date :: [Inline]
, comment :: [Inline]
, keywords :: [[Inline]]
}
deriving (Eq, Show)
data Context = Context
{ -- | Pandoc HTML template
htmlTemplate :: String
-- | Optional link to CSS file
, cssLink_ :: Maybe FilePath
-- | Optional link to MathJax.js file
, mathjaxLink_ :: Maybe FilePath
-- | Optional editor command
, editor_ :: Maybe String
-- | Show the edit/regenerate script?
, showScript_ :: Bool
-- | Path to root of bookshelf
, rootPath_ :: FilePath
-- | Path to current node, relative to the root
, relPath_ :: FilePath
}
deriving (Eq, Show)
data ShelfInfo = ShelfInfo
{ -- | The document's context
shelfContext :: Context
-- | The full name of the associated main document. `Nothing` means
-- that there is no main document.
, mainDocument :: Maybe String
-- | The full name of the shelf document.
, shelfDocument :: String
}
class HasContext a
where
cssLink :: a -> Maybe FilePath
mathjaxLink :: a -> Maybe FilePath
editor :: a -> Maybe String
showScript :: a -> Bool
rootPath :: a -> FilePath
relPath :: a -> FilePath
instance HasContext Context
where
cssLink = cssLink_
mathjaxLink = mathjaxLink_
editor = editor_
showScript = showScript_
rootPath = rootPath_
relPath = relPath_
instance HasContext ShelfInfo
where
cssLink = cssLink_ . shelfContext
mathjaxLink = mathjaxLink_ . shelfContext
editor = editor_ . shelfContext
showScript = showScript_ . shelfContext
rootPath = rootPath_ . shelfContext
relPath = relPath_ . shelfContext