diff options
| -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 |