From 755077c39a0dc63f07e30564df4a3121d7079da2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 30 Jul 2024 19:19:25 +0200
Subject: List available commands in help text

---
 src/Main.hs | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 7dcc484..cdce0f9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -61,8 +61,19 @@ main = do
             exitFailure
 
     when (optShowHelp opts) $ do
-        let header = "Usage: minici [<option>...] <command> [<args>]"
-        putStr $ usageInfo header options
+        let header = "Usage: minici [<option>...] <command> [<args>]\n\nCommon options are:"
+            commandDesc (SC proxy) = "  " <> padCommand (commandName proxy) <> commandDescription proxy
+
+            padTo n str = str <> replicate (n - length str) ' '
+            padCommand = padTo (maxCommandNameLength + 3)
+            commandNameLength (SC proxy) = length $ commandName proxy
+            maxCommandNameLength = maximum $ map commandNameLength commands
+
+        putStr $ usageInfo header options <> unlines (
+            [ ""
+            , "Available commands:"
+            ] ++ map commandDesc commands
+          )
         exitSuccess
 
     when (optShowVersion opts) $ do
-- 
cgit v1.2.3