diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-10 19:42:09 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-10 19:42:09 +0100 |
commit | 4691a69d5065d388c43ad5ce651125466b1d7f61 (patch) | |
tree | 7b68360f4a4560bf5dc283b3e6c83efd49525882 /src/Zettel/Parse.hs | |
parent | 1c867914453a817c46297eed2734dfc9a62ec869 (diff) | |
download | zk-visual-4691a69d5065d388c43ad5ce651125466b1d7f61.tar.gz zk-visual-4691a69d5065d388c43ad5ce651125466b1d7f61.zip |
Add cannonical attributes
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 |