From 4691a69d5065d388c43ad5ce651125466b1d7f61 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Wed, 10 May 2023 19:42:09 +0100 Subject: Add cannonical attributes --- src/Zettel/Parse.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Zettel/Parse.hs') 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 -- cgit