diff options
Diffstat (limited to 'src/Zettel/Parse.hs')
-rw-r--r-- | src/Zettel/Parse.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/Zettel/Parse.hs b/src/Zettel/Parse.hs index d6d8aa9..cf2604a 100644 --- a/src/Zettel/Parse.hs +++ b/src/Zettel/Parse.hs @@ -10,6 +10,7 @@ import Text.Pandoc.Definition (Block (..), Inline (..), Meta (..), MetaValue (.. import Text.Pandoc.Readers (readOrg) import Text.Pandoc.Shared (stringify) import Text.Pandoc.Walk (query, walk) +import Zettel.Common import Zettel.Types decode :: ByteString -> Text @@ -84,7 +85,8 @@ zettelMetaFromMeta t m = (lookupString "date" m) (lookupString "modified" m) t - [] + cempty + (Just "Yann Herklotz") pandocFromChunk :: Chunk -> Pandoc pandocFromChunk c = @@ -99,14 +101,11 @@ pandocFromChunk c = zettelFromPandoc :: Pandoc -> (ZettelId, Zettel) zettelFromPandoc p@(Pandoc attr _) = - (ZettelId ident, Zettel title (zettelMetaFromMeta tags attr) p) + (ZettelId ident, Zettel title (zettelMetaFromMeta tags attr) p cempty cempty) where ident = fromMaybe "" $ lookupString "custom_id" attr (title, tags) = maybe ([], []) separateTitleTags $ lookupInlines "title" attr -initNode :: Zettel -> ZettelNode -initNode zettel = ZettelNode zettel cempty cempty - updatePandocAttr :: Pandoc -> Pandoc updatePandocAttr (Pandoc attr b) = Pandoc @@ -137,4 +136,4 @@ parseZettelKasten fl = do orgFiles <- mapM (runIOorExplode . readOrg def . decode) fs let splitChunks = map (splitIntoChunks "%i.md" False Nothing 15) orgFiles let pandocList = map (updatePandocAttr . pandocFromChunk) $ concatMap chunkedChunks splitChunks - return . ZettelGraph . fromList $ map (second initNode . zettelFromPandoc) pandocList + return . refreshPandocMeta . ZettelGraph . fromList $ map zettelFromPandoc pandocList |