diff options
Diffstat (limited to 'src/Zettel/Parse.hs')
| -rw-r--r-- | src/Zettel/Parse.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Zettel/Parse.hs b/src/Zettel/Parse.hs index cf2604a..6ce74fd 100644 --- a/src/Zettel/Parse.hs +++ b/src/Zettel/Parse.hs @@ -7,6 +7,7 @@ import Text.Pandoc.Builder (toMetaValue) import Text.Pandoc.Chunks (Chunk (..), ChunkedDoc (..), splitIntoChunks) import Text.Pandoc.Class (runIOorExplode) import Text.Pandoc.Definition (Block (..), Inline (..), Meta (..), MetaValue (..), Pandoc (..)) +import Text.Pandoc.Options (ReaderOptions (..), getDefaultExtensions) import Text.Pandoc.Readers (readOrg) import Text.Pandoc.Shared (stringify) import Text.Pandoc.Walk (query, walk) @@ -133,7 +134,7 @@ updatePandocAttr (Pandoc attr b) = parseZettelKasten :: [FilePath] -> IO ZettelGraph parseZettelKasten fl = do fs <- mapM readFileBS fl - orgFiles <- mapM (runIOorExplode . readOrg def . decode) fs + orgFiles <- mapM (runIOorExplode . readOrg (def {readerExtensions = getDefaultExtensions "org"}) . decode) fs let splitChunks = map (splitIntoChunks "%i.md" False Nothing 15) orgFiles let pandocList = map (updatePandocAttr . pandocFromChunk) $ concatMap chunkedChunks splitChunks return . refreshPandocMeta . ZettelGraph . fromList $ map zettelFromPandoc pandocList |