diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2023-05-11 16:56:01 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-11 16:56:01 +0100 |
| commit | c9ad64355e00f56663b84daa3be6c6936c6ae44d (patch) | |
| tree | aa47276e2eac870fc44ce93f176ca331db3b58d3 /src/Main.hs | |
| parent | 3e650e1ebdd9279f0d4100bcfdb9115edac0e40c (diff) | |
| download | zk-visual-c9ad64355e00f56663b84daa3be6c6936c6ae44d.tar.gz zk-visual-c9ad64355e00f56663b84daa3be6c6936c6ae44d.zip | |
Add Transclusion support
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 13 |
1 files changed, 7 insertions, 6 deletions
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 () |