Merge pull request #1152 from IntersectMBO/newhoggy/resize-based-on-terminal-width

Wrap CLI help based on terminal width

Author: newhoggy

cardano-cli/app/cardano-cli.hs

@@ -20,6 +20,8 @@ import qualified Options.Applicative as Opt
 import           Cardano.CLI.OS.Posix
 #endif
 
+import           System.Console.Terminal.Size (Window(..), size)
+
 main :: IO ()
 main = toplevelExceptionHandler $ do
   Crypto.cryptoInit
@@ -30,6 +32,12 @@ main = toplevelExceptionHandler $ do
 #ifdef UNIX
   _ <- setFileCreationMask (otherModes `unionFileModes` groupModes)
 #endif
-  co <- Opt.customExecParser pref (opts envCli)
+
+  mWin <- size
+
+  let termWidth = maybe 80 width mWin
+      dynamicPrefs = pref { Opt.prefColumns = termWidth }
+
+  co <- Opt.customExecParser dynamicPrefs (opts envCli)
 
   orDie (docToText . renderClientCommandError) $ runClientCommand co

cardano-cli/cardano-cli.cabal

@@ -305,6 +305,7 @@ executable cardano-cli
     cardano-cli,
     cardano-crypto-class ^>=2.2,
     optparse-applicative-fork,
+    terminal-size,
     transformers-except,
 
 library cardano-cli-test-lib