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

ui: reg: increase whitespace before change amount

Browse Source
This commit is contained in:
Simon Michael 2015-08-25 07:02:32 -07:00
parent cec9b7cae9
commit 055d820ec7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-ui/Hledger/UI/RegisterScreen2.hs
View File

@ -109,7 +109,7 @@ drawRegisterScreen2 AppState{aopts=_opts, aScreen=RegisterScreen2{rs2State=l}} =
-- they need, while reserving a minimum of space for other -- they need, while reserving a minimum of space for other
-- columns and whitespace. If they don't get all they need, -- columns and whitespace. If they don't get all they need,
-- allocate it to them proportionally to their maximum widths. -- allocate it to them proportionally to their maximum widths.
whitespacewidth = 9 -- inter-column whitespace, fixed width whitespacewidth = 10 -- inter-column whitespace, fixed width
minnonamtcolswidth = datewidth + 2 + 2 -- date column plus at least 2 for desc and accts minnonamtcolswidth = datewidth + 2 + 2 -- date column plus at least 2 for desc and accts
maxamtswidth = max 0 (totalwidth - minnonamtcolswidth - whitespacewidth) maxamtswidth = max 0 (totalwidth - minnonamtcolswidth - whitespacewidth)
maxchangewidthseen = maximum' $ map (length . fourth5) displayitems maxchangewidthseen = maximum' $ map (length . fourth5) displayitems
@ -152,7 +152,7 @@ drawRegisterItem (datewidth,descwidth,acctswidth,changewidth,balwidth) _sel (dat
str (padright descwidth $ elideRight descwidth desc) <+> str (padright descwidth $ elideRight descwidth desc) <+>
str " " <+> str " " <+>
str (padright acctswidth $ elideLeft acctswidth $ accts) <+> str (padright acctswidth $ elideLeft acctswidth $ accts) <+>
str " " <+> str " " <+>
str (padleft changewidth $ elideLeft changewidth change) <+> str (padleft changewidth $ elideLeft changewidth change) <+>
str " " <+> str " " <+>
str (padleft balwidth $ elideLeft balwidth bal) str (padleft balwidth $ elideLeft balwidth bal)