From f728a2897e98837575f7ffba3528b125aaccbc85 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Thu, 11 May 2023 22:16:34 +0100
Subject: Fix links

---
 src/Main.hs         | 2 +-
 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
-- 
cgit