diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-11 22:16:34 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-11 22:16:34 +0100 |
commit | f728a2897e98837575f7ffba3528b125aaccbc85 (patch) | |
tree | 608503847ec2d1e802f1bae7185bfbab5c5bea64 | |
parent | c9ad64355e00f56663b84daa3be6c6936c6ae44d (diff) | |
download | zk-visual-f728a2897e98837575f7ffba3528b125aaccbc85.tar.gz zk-visual-f728a2897e98837575f7ffba3528b125aaccbc85.zip |
Fix links
-rw-r--r-- | src/Main.hs | 2 | ||||
-rw-r--r-- | src/Zettel/Links.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 88c8d1b..8789ac2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -211,5 +211,5 @@ main = do graph' <- parseZettelKasten fl let graph = transcludeMdAll graph' let linkedGraph = linkAll graph - renderZettelGraphFile "test/content/tree" linkedGraph + renderZettelGraphFile "../zettelkasten/content/zettel" linkedGraph return () diff --git a/src/Zettel/Links.hs b/src/Zettel/Links.hs index f5638ad..676f945 100644 --- a/src/Zettel/Links.hs +++ b/src/Zettel/Links.hs @@ -57,7 +57,7 @@ backwardLink zg = ZettelGraph . Map.mapWithKey (backwardLinkNode zg) $ unZettelG updatePandocLinksInline :: Inline -> Inline updatePandocLinksInline l@(Link a i (_, t)) - | not $ T.null ids = Link a i ("/tree/" <> ids, t) + | not $ T.null ids = Link a i ("/zettel/" <> ids, t) | otherwise = l where ids = parseIds $ stringify i |