diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 03:52:10 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-05-28 03:52:10 +0100 |
commit | 02d36d9c5c55d49bdfedf29fb9aff9202f19cf53 (patch) | |
tree | 2f8cc931b77aaefaf71eec3cc15f0015496a2dd2 /src/Main.hs | |
parent | 5681d073ee1ded65bcd944c6abc2c7082cff2b31 (diff) | |
download | zk-visual-02d36d9c5c55d49bdfedf29fb9aff9202f19cf53.tar.gz zk-visual-02d36d9c5c55d49bdfedf29fb9aff9202f19cf53.zip |
Add support for bibliography notes export
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs index 002fbff..c819300 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -262,7 +262,7 @@ options = Option [] ["org-bibliography"] - (ReqArg (\f opts -> opts {optBibliography = Just f}) "FILE") + (ReqArg (\f opts -> opts {optOrgBibliography = Just f}) "FILE") "Bibliography FILE (default: bibliography.org)", Option ['q'] @@ -305,11 +305,9 @@ main = do putStrLn version exitSuccess - graph' <- parseZettelKasten $ zip [1 ..] fl + graph <- parseZettelKasten (zip [1 ..] fl) (optOrgBibliography zkOpts) - let graph = transcludeMdAll graph' - let linkedGraph = linkAll graph - let wrappedGraph = wrapZettelGraph linkedGraph + let pipeline = transcludeMdAll >> linkAll >> wrapZettelGraph >> handleBibliography renderZettelGraphFile (optVerbose zkOpts) @@ -319,4 +317,4 @@ main = do ) (optBibliography zkOpts) (fromMaybe "output" (optOutput zkOpts)) - wrappedGraph + (pipeline graph) |