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