diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:55:47 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 01:55:47 +0100 |
commit | 8d1403b13e75b5eda672af64fb52afe5a0b1f633 (patch) | |
tree | 819f91586478def7c9ac18b3597f353f2e0591ee /src/Zettel/Links.hs | |
parent | 42edc02d4770b389d500e338a0e3e47bdc4c4de8 (diff) | |
download | zk-visual-8d1403b13e75b5eda672af64fb52afe5a0b1f633.tar.gz zk-visual-8d1403b13e75b5eda672af64fb52afe5a0b1f633.zip |
Add entry for bib file in graph
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 |