Move src/ to lib/, put Init.hs in src/

1 files changed, 0 insertions, 164 deletions

diff --git a/src/Hakyll/Web/Pandoc.hs b/src/Hakyll/Web/Pandoc.hs
deleted file mode 100644
index eec0a8a..0000000
--- a/src/Hakyll/Web/Pandoc.hs
+++ /dev/null
@@ -1,164 +0,0 @@
---------------------------------------------------------------------------------
--- | Module exporting convenient pandoc bindings
-module Hakyll.Web.Pandoc
-    ( -- * The basic building blocks
-      readPandoc
-    , readPandocWith
-    , writePandoc
-    , writePandocWith
-    , renderPandoc
-    , renderPandocWith
-
-      -- * Derived compilers
-    , pandocCompiler
-    , pandocCompilerWith
-    , pandocCompilerWithTransform
-    , pandocCompilerWithTransformM
-
-      -- * Default options
-    , defaultHakyllReaderOptions
-    , defaultHakyllWriterOptions
-    ) where
-
-
---------------------------------------------------------------------------------
-import qualified Data.Set                   as S
-import           Text.Pandoc
-import           Text.Pandoc.Error          (PandocError (..))
-
-
---------------------------------------------------------------------------------
-import           Hakyll.Core.Compiler
-import           Hakyll.Core.Item
-import           Hakyll.Web.Pandoc.FileType
-
-
---------------------------------------------------------------------------------
--- | Read a string using pandoc, with the default options
-readPandoc
-    :: Item String             -- ^ String to read
-    -> Compiler (Item Pandoc)  -- ^ Resulting document
-readPandoc = readPandocWith defaultHakyllReaderOptions
-
-
---------------------------------------------------------------------------------
--- | Read a string using pandoc, with the supplied options
-readPandocWith
-    :: ReaderOptions           -- ^ Parser options
-    -> Item String             -- ^ String to read
-    -> Compiler (Item Pandoc)  -- ^ Resulting document
-readPandocWith ropt item =
-    case traverse (reader ropt (itemFileType item)) item of
-        Left (ParseFailure err)  -> fail $
-            "Hakyll.Web.Pandoc.readPandocWith: parse failed: " ++ err
-        Left (ParsecError _ err) -> fail $
-            "Hakyll.Web.Pandoc.readPandocWith: parse failed: " ++ show err
-        Right item'              -> return item'
-  where
-    reader ro t = case t of
-        DocBook            -> readDocBook ro
-        Html               -> readHtml ro
-        LaTeX              -> readLaTeX ro
-        LiterateHaskell t' -> reader (addExt ro Ext_literate_haskell) t'
-        Markdown           -> readMarkdown ro
-        MediaWiki          -> readMediaWiki ro
-        OrgMode            -> readOrg ro
-        Rst                -> readRST ro
-        Textile            -> readTextile ro
-        _                  -> error $
-            "Hakyll.Web.readPandocWith: I don't know how to read a file of " ++
-            "the type " ++ show t ++ " for: " ++ show (itemIdentifier item)
-
-    addExt ro e = ro {readerExtensions = S.insert e $ readerExtensions ro}
-
-
---------------------------------------------------------------------------------
--- | Write a document (as HTML) using pandoc, with the default options
-writePandoc :: Item Pandoc  -- ^ Document to write
-            -> Item String  -- ^ Resulting HTML
-writePandoc = writePandocWith defaultHakyllWriterOptions
-
-
---------------------------------------------------------------------------------
--- | Write a document (as HTML) using pandoc, with the supplied options
-writePandocWith :: WriterOptions  -- ^ Writer options for pandoc
-                -> Item Pandoc    -- ^ Document to write
-                -> Item String    -- ^ Resulting HTML
-writePandocWith wopt = fmap $ writeHtmlString wopt
-
-
---------------------------------------------------------------------------------
--- | Render the resource using pandoc
-renderPandoc :: Item String -> Compiler (Item String)
-renderPandoc =
-    renderPandocWith defaultHakyllReaderOptions defaultHakyllWriterOptions
-
-
---------------------------------------------------------------------------------
--- | Render the resource using pandoc
-renderPandocWith
-    :: ReaderOptions -> WriterOptions -> Item String -> Compiler (Item String)
-renderPandocWith ropt wopt item =
-    writePandocWith wopt <$> readPandocWith ropt item
-
-
---------------------------------------------------------------------------------
--- | Read a page render using pandoc
-pandocCompiler :: Compiler (Item String)
-pandocCompiler =
-    pandocCompilerWith defaultHakyllReaderOptions defaultHakyllWriterOptions
-
-
---------------------------------------------------------------------------------
--- | A version of 'pandocCompiler' which allows you to specify your own pandoc
--- options
-pandocCompilerWith :: ReaderOptions -> WriterOptions -> Compiler (Item String)
-pandocCompilerWith ropt wopt =
-    cached "Hakyll.Web.Pandoc.pandocCompilerWith" $
-        pandocCompilerWithTransform ropt wopt id
-
-
---------------------------------------------------------------------------------
--- | An extension of 'pandocCompilerWith' which allows you to specify a custom
--- pandoc transformation for the content
-pandocCompilerWithTransform :: ReaderOptions -> WriterOptions
-                            -> (Pandoc -> Pandoc)
-                            -> Compiler (Item String)
-pandocCompilerWithTransform ropt wopt f =
-    pandocCompilerWithTransformM ropt wopt (return . f)
-
-
---------------------------------------------------------------------------------
--- | Similar to 'pandocCompilerWithTransform', but the transformation
--- function is monadic. This is useful when you want the pandoc
--- transformation to use the 'Compiler' information such as routes,
--- metadata, etc
-pandocCompilerWithTransformM :: ReaderOptions -> WriterOptions
-                    -> (Pandoc -> Compiler Pandoc)
-                    -> Compiler (Item String)
-pandocCompilerWithTransformM ropt wopt f =
-    writePandocWith wopt <$>
-        (traverse f =<< readPandocWith ropt =<< getResourceBody)
-
-
---------------------------------------------------------------------------------
--- | The default reader options for pandoc parsing in hakyll
-defaultHakyllReaderOptions :: ReaderOptions
-defaultHakyllReaderOptions = def
-    { -- The following option causes pandoc to read smart typography, a nice
-      -- and free bonus.
-      readerSmart = True
-    }
-
-
---------------------------------------------------------------------------------
--- | The default writer options for pandoc rendering in hakyll
-defaultHakyllWriterOptions :: WriterOptions
-defaultHakyllWriterOptions = def
-    { -- This option causes literate haskell to be written using '>' marks in
-      -- html, which I think is a good default.
-      writerExtensions = S.insert Ext_literate_haskell (writerExtensions def)
-    , -- We want to have hightlighting by default, to be compatible with earlier
-      -- Hakyll releases
-      writerHighlight  = True
-    }