fix console width issue

RELEASE_NOTES.md

@@ -1,3 +1,6 @@
+### 3.6.1
+* Fix default character width issue in console apps.
+
 ### 3.6.0
 * Fix wordwrapping issue in usage strings.
 

src/Argu/ArgumentParser.fs

@@ -89,8 +89,6 @@ and [<Sealed; NoEquality; NoComparison; AutoSerializable(false)>]
     // memoize parser generation for given template type
     static let argInfoLazy = lazy(preComputeUnionArgInfo<'Template> ())
 
-    static let getUsageWidth() = try min Console.WindowWidth 80 with _ -> 80
-
     let mkUsageString argInfo msgOpt = mkUsageString argInfo _programName false _usageStringCharacterWidth msgOpt |> StringExpr.build
 
     let (|ParserExn|_|) (e : exn) =
@@ -109,7 +107,7 @@ and [<Sealed; NoEquality; NoComparison; AutoSerializable(false)>]
     /// <param name="usageStringCharacterWidth">Text width used when formatting the usage string. Defaults to 80 chars.</param>
     /// <param name="errorHandler">The implementation of IExiter used for error handling. Exception is default.</param>
     new (?programName : string, ?helpTextMessage : string, ?usageStringCharacterWidth : int, ?errorHandler : IExiter) =
-        let usageStringCharacterWidth = match usageStringCharacterWidth with None -> getUsageWidth() | Some w -> w
+        let usageStringCharacterWidth = match usageStringCharacterWidth with None -> getDefaultCharacterWidth() | Some w -> w
         let programName = match programName with Some pn -> pn | None -> currentProgramName.Value
         let errorHandler = match errorHandler with Some e -> e  | None -> new ExceptionExiter() :> _
         new ArgumentParser<'Template>(argInfoLazy.Value, programName, helpTextMessage, usageStringCharacterWidth, errorHandler)

src/Argu/AssemblyInfo.fs

@@ -2,10 +2,10 @@
 namespace System
 open System.Reflection
 
-[<assembly: AssemblyVersionAttribute("3.6.0")>]
-[<assembly: AssemblyFileVersionAttribute("3.6.0")>]
+[<assembly: AssemblyVersionAttribute("3.6.1")>]
+[<assembly: AssemblyFileVersionAttribute("3.6.1")>]
 do ()
 
 module internal AssemblyVersionInformation =
-    let [<Literal>] AssemblyVersion = "3.6.0"
-    let [<Literal>] AssemblyFileVersion = "3.6.0"
+    let [<Literal>] AssemblyVersion = "3.6.1"
+    let [<Literal>] AssemblyFileVersion = "3.6.1"

src/Argu/Utils.fs

@@ -297,6 +297,11 @@ type PrefixDictionary<'Value>(keyVals : seq<string * 'Value>) =
         else kresult <- keys.[maxPos] ; vresult <- values.[maxPos] ; true
 
 
+/// Gets the default width of the current console window,
+/// if available.
+let getDefaultCharacterWidth() =
+    max (try Console.WindowWidth - 1 with _ -> 80) 80
+
 // Wordwrap implementation kindly provided by @forki
 let wordwrap (width:int) (inputText:string) =
     let breakLine (text:string) (pos:int) (max:int) =

src/Argu/project.json

@@ -1,5 +1,5 @@
 {
-  "version": "3.6.0",
+  "version": "3.6.1",
   "buildOptions": {
     "debugType": "portable",
     "compilerName": "fsc",

tests/Argu.Tests/project.json

@@ -1,5 +1,5 @@
 {
-  "version": "3.6.0",
+  "version": "3.6.1",
   "buildOptions": {
     "debugType": "portable",
     "compilerName": "fsc",