From ed971eb848c66a2cc38f33dbb80a6096b066ad6e Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Sun, 28 May 2023 01:12:59 +0100
Subject: Get better help messages

---
 src/Main.hs | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 4ecd73c..9f3eeab 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+
 module Main where
 
 -- import Data.Char (isAlphaNum, isLetter, isNumber)
@@ -279,8 +281,11 @@ options =
       "Show current version"
   ]
 
+version :: String
+version = "org-zk 0.1.0 - (C) 2023 Yann Herklotz"
+
 headerOpts :: String
-headerOpts = "org-zk v0.1.0, (C) 2023 Yann Herklotz\n\nUsage: org-zk [OPTION...] files..."
+headerOpts = version <> "\n\nUsage: org-zk [OPTION...] [FILE...]\n\n[OPTION]"
 
 compilerOpts :: [String] -> IO (Options, [String])
 compilerOpts argv =
@@ -297,7 +302,7 @@ main = do
     exitSuccess
 
   when (optShowVersion zkOpts) $ do
-    putStrLn "org-zk v0.1.0, (C) 2023 Yann Herklotz"
+    putStrLn version
     exitSuccess
 
   graph' <- parseZettelKasten $ zip [1 ..] fl
@@ -306,4 +311,12 @@ main = do
   let linkedGraph = linkAll graph
   let wrappedGraph = wrapZettelGraph linkedGraph
 
-  renderZettelGraphFile (optVerbose zkOpts) (fromMaybe "ieee.csl" (optCsl zkOpts)) (optBibliography zkOpts) (fromMaybe "output" (optOutput zkOpts)) wrappedGraph
+  renderZettelGraphFile
+    (optVerbose zkOpts)
+    ( fromMaybe
+        "ieee.csl"
+        (optCsl zkOpts)
+    )
+    (optBibliography zkOpts)
+    (fromMaybe "output" (optOutput zkOpts))
+    wrappedGraph
-- 
cgit