diff options
Diffstat (limited to 'src/Zettel/Links.hs')
-rw-r--r-- | src/Zettel/Links.hs | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/src/Zettel/Links.hs b/src/Zettel/Links.hs index 676f945..39a6f5a 100644 --- a/src/Zettel/Links.hs +++ b/src/Zettel/Links.hs @@ -41,7 +41,8 @@ forwardLinkNode zg ident zn = } forwardLink :: ZettelGraph -> ZettelGraph -forwardLink zg = ZettelGraph . Map.mapWithKey (forwardLinkNode zg) $ unZettelGraph zg +forwardLink zg = ZettelGraph (Map.mapWithKey (forwardLinkNode zg) $ unZettelGraph zg) + zg.zettelGraphBib backwardLinkNode :: ZettelGraph -> ZettelId -> Zettel -> Zettel backwardLinkNode graph ident node = Map.foldlWithKey' f node (unZettelGraph graph) @@ -53,7 +54,8 @@ backwardLinkNode graph ident node = Map.foldlWithKey' f node (unZettelGraph grap | otherwise = l backwardLink :: ZettelGraph -> ZettelGraph -backwardLink zg = ZettelGraph . Map.mapWithKey (backwardLinkNode zg) $ unZettelGraph zg +backwardLink zg = ZettelGraph (Map.mapWithKey (backwardLinkNode zg) $ unZettelGraph zg) + zg.zettelGraphBib updatePandocLinksInline :: Inline -> Inline updatePandocLinksInline l@(Link a i (_, t)) @@ -63,15 +65,8 @@ updatePandocLinksInline l@(Link a i (_, t)) ids = parseIds $ stringify i updatePandocLinksInline i = i -updatePandocLinksPandoc :: Pandoc -> Pandoc -updatePandocLinksPandoc = walk updatePandocLinksInline - -updatePandocLinksZettel :: Zettel -> Zettel -updatePandocLinksZettel zg = - zg {zettelBody = updatePandocLinksPandoc (zettelBody zg)} - updatePandocLinks :: ZettelGraph -> ZettelGraph -updatePandocLinks zg = ZettelGraph $ updatePandocLinksZettel <$> unZettelGraph zg +updatePandocLinks = walk updatePandocLinksInline linkAll :: ZettelGraph -> ZettelGraph linkAll = refreshPandocMeta . backwardLink . forwardLink . updatePandocLinks |