diff options
| author | leungbk <bkleung89@gmail.com> | 2019-01-27 22:22:44 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert+github@zeitkraut.de> | 2019-01-30 18:27:38 +0100 |
| commit | ac83b9c37c39a49878e7d864fb276c0e4caed338 (patch) | |
| tree | 781f4696af7815fb5c13c3c91bcccd846c6dc443 /src/Text/Pandoc/Readers/Org/Blocks.hs | |
| parent | dc431745730aaac244a2e59b25f5554a654abf4c (diff) | |
| download | pandoc-ac83b9c37c39a49878e7d864fb276c0e4caed338.tar.gz | |
Org reader: add support for #+SELECT_TAGS.
Diffstat (limited to 'src/Text/Pandoc/Readers/Org/Blocks.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index d6930398c..e991d8132 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -34,7 +34,8 @@ module Text.Pandoc.Readers.Org.Blocks import Prelude import Text.Pandoc.Readers.Org.BlockStarts -import Text.Pandoc.Readers.Org.DocumentTree (documentTree, headlineToBlocks, filterHeadlineTree) +import Text.Pandoc.Readers.Org.DocumentTree (documentTree, + unprunedHeadlineToBlocks) import Text.Pandoc.Readers.Org.Inlines import Text.Pandoc.Readers.Org.Meta (metaExport, metaKey, metaLine) import Text.Pandoc.Readers.Org.ParserState @@ -64,12 +65,10 @@ import qualified Text.Pandoc.Walk as Walk -- | Get a list of blocks. blockList :: PandocMonad m => OrgParser m [Block] blockList = do - fHeadlineTree <- documentTree blocks inline + fHeadlineTree <- documentTree blocks inline st <- getState let headlineTree = runF fHeadlineTree st - headlineBlocks <- headlineToBlocks $ filterHeadlineTree headlineTree st - -- ignore first headline, it's the document's title - return . drop 1 . B.toList $ headlineBlocks + unprunedHeadlineToBlocks headlineTree st -- | Get the meta information saved in the state. meta :: Monad m => OrgParser m Meta |