From b8974c4bccbc66a58d30b7323b41b52e7fa0baa9 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 27 Mar 2015 08:02:37 -0700
Subject: [PATCH] register: update --width help

---
 hledger/Hledger/Cli/Register.hs | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index 2b23fdf60..af4931455 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-|
 
 A ledger-compatible @register@ command.
@@ -31,8 +32,17 @@ registermode = (defCommandMode $ ["register"] ++ aliases) {
       flagNone ["historical","H"] (\opts -> setboolopt "historical" opts) "include prior postings in the running total"
      ,flagNone ["average","A"] (\opts -> setboolopt "average" opts) "show a running average instead of the running total (implies --empty)"
      ,flagNone ["related","r"] (\opts -> setboolopt "related" opts) "show postings' siblings instead"
-     ,flagReq  ["width","w"] (\s opts -> Right $ setopt "width" s opts) "N" "set output width (default: 80)"
-     ]
+     ,flagReq  ["width","w"] (\s opts -> Right $ setopt "width" s opts) "N"
+      (unlines
+       ["set output width (default:"
+#ifdef mingw32_HOST_OS
+       ,(show defaultWidth)
+#else
+       ,"terminal width"
+#endif
+       ,"or COLUMNS. -wN,M sets description width as well)"
+       ])
+    ]
      ++ outputflags
     ,groupHidden = []
     ,groupNamed = [generalflagsgroup1]