diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 20:52:00 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 20:52:00 +0100 |
| commit | ce8226f1a7d64da56117d2f7f351e06225a84614 (patch) | |
| tree | 9f2d716df0230f5f17372f19b8718dcf86039fd9 /src/Text/Pandoc/Readers/Org.hs | |
| parent | e86e44b98e592d5a5e4c6b43d9b57b195f091ed9 (diff) | |
| parent | 12d96508c62189b4ff8c8b797d34cc9ef177f5ee (diff) | |
| download | pandoc-ce8226f1a7d64da56117d2f7f351e06225a84614.tar.gz | |
Merge commit '9e52ac6bb02afd7b4ed5dad61021a1fa33051203' as 'data/templates'
Diffstat (limited to 'src/Text/Pandoc/Readers/Org.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org.hs | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/src/Text/Pandoc/Readers/Org.hs b/src/Text/Pandoc/Readers/Org.hs deleted file mode 100644 index c8dbbf45a..000000000 --- a/src/Text/Pandoc/Readers/Org.hs +++ /dev/null @@ -1,62 +0,0 @@ -{- -Copyright (C) 2014-2016 Albert Krewinkel <tarleb+pandoc@moltkeplatz.de> - -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 --} - -{- | - Module : Text.Pandoc.Readers.Org - Copyright : Copyright (C) 2014-2016 Albert Krewinkel - License : GNU GPL, version 2 or above - - Maintainer : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de> - -Conversion of org-mode formatted plain text to 'Pandoc' document. --} -module Text.Pandoc.Readers.Org ( readOrg ) where - -import Text.Pandoc.Readers.Org.Blocks ( blockList, meta ) -import Text.Pandoc.Readers.Org.Parsing ( OrgParser, readWithM ) -import Text.Pandoc.Readers.Org.ParserState ( optionsToParserState ) - -import Text.Pandoc.Class (PandocMonad) -import Text.Pandoc.Definition -import Text.Pandoc.Error -import Text.Pandoc.Options - -import Control.Monad.Except ( throwError ) -import Control.Monad.Reader ( runReaderT ) - - --- | Parse org-mode string and return a Pandoc document. -readOrg :: PandocMonad m - => ReaderOptions -- ^ Reader options - -> String -- ^ String to parse (assuming @'\n'@ line endings) - -> m Pandoc -readOrg opts s = do - parsed <- flip runReaderT def $ - readWithM parseOrg (optionsToParserState opts) (s ++ "\n\n") - case parsed of - Right result -> return result - Left _ -> throwError $ PandocParseError "problem parsing org" - --- --- Parser --- -parseOrg :: PandocMonad m => OrgParser m Pandoc -parseOrg = do - blocks' <- blockList - meta' <- meta - return $ Pandoc meta' blocks' |