From c9ad64355e00f56663b84daa3be6c6936c6ae44d Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Thu, 11 May 2023 16:56:01 +0100 Subject: Add Transclusion support --- src/Main.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 7db7885..88c8d1b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -202,13 +202,14 @@ import Zettel main :: IO () main = do let fl = - [ "/Users/ymherklotz/Dropbox/zk/verification.org", - "/Users/ymherklotz/Dropbox/zk/mathematics.org", - "/Users/ymherklotz/Dropbox/zk/hls.org", - "/Users/ymherklotz/Dropbox/zk/computing.org", - "/Users/ymherklotz/Dropbox/zk/hardware.org" + [ "/home/ymherklotz/Dropbox/zk/verification.org", + "/home/ymherklotz/Dropbox/zk/mathematics.org", + "/home/ymherklotz/Dropbox/zk/hls.org", + "/home/ymherklotz/Dropbox/zk/computing.org", + "/home/ymherklotz/Dropbox/zk/hardware.org" ] - graph <- parseZettelKasten fl + graph' <- parseZettelKasten fl + let graph = transcludeMdAll graph' let linkedGraph = linkAll graph renderZettelGraphFile "test/content/tree" linkedGraph return () -- cgit