slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

lib: Hledger.Utils.IO: avoid excessively wide "compact" prettyprinting

Browse Source
This commit is contained in:
Simon Michael 2023-05-18 06:23:35 -10:00
parent 76f336695c
commit 83de76b67a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger-lib/Hledger/Utils/IO.hs
View File

@ -126,18 +126,20 @@ import Hledger.Utils.Text (WideBuilder(WideBuilder))
-- Pretty showing/printing with pretty-simple -- Pretty showing/printing with pretty-simple
-- https://hackage.haskell.org/package/pretty-simple/docs/Text-Pretty-Simple.html#t:OutputOptions
-- | pretty-simple options with colour enabled if allowed. -- | pretty-simple options with colour enabled if allowed.
prettyopts = prettyopts =
(if useColorOnStderr then defaultOutputOptionsDarkBg else defaultOutputOptionsNoColor) (if useColorOnStderr then defaultOutputOptionsDarkBg else defaultOutputOptionsNoColor)
{ outputOptionsIndentAmount=2 { outputOptionsIndentAmount = 2
, outputOptionsCompact=True -- , outputOptionsCompact = True -- fills lines, but does not respect page width (https://github.com/cdepillabout/pretty-simple/issues/126)
-- , outputOptionsPageWidth = fromMaybe 80 $ unsafePerformIO getTerminalWidth
} }
-- | pretty-simple options with colour disabled. -- | pretty-simple options with colour disabled.
prettyopts' = prettyopts' =
defaultOutputOptionsNoColor defaultOutputOptionsNoColor
{ outputOptionsIndentAmount=2 { outputOptionsIndentAmount=2
, outputOptionsCompact=True
} }
-- | Pretty show. Easier alias for pretty-simple's pShow. -- | Pretty show. Easier alias for pretty-simple's pShow.