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

dev:ui: cleanup

Browse Source
This commit is contained in:
Simon Michael 2024-10-21 18:41:39 -10:00
parent 7c31ddfba2
commit 4b4cc54a6a
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
hledger-ui/Hledger/UI/UIOptions.hs
View File

@ -98,16 +98,17 @@ defuiopts = UIOpts
} }
-- | Process a RawOpts into a UIOpts. -- | Process a RawOpts into a UIOpts.
-- This will return a usage error if provided an invalid theme. -- An invalid --theme name will raise an error.
rawOptsToUIOpts :: RawOpts -> IO UIOpts rawOptsToUIOpts :: RawOpts -> IO UIOpts
rawOptsToUIOpts rawopts = do rawOptsToUIOpts rawopts = do
cliopts <- set balanceaccum accum <$> rawOptsToCliOpts rawopts cliopts <- set balanceaccum accum <$> rawOptsToCliOpts rawopts
return defuiopts { return
uoWatch = boolopt "watch" rawopts defuiopts {
,uoTheme = checkTheme <$> maybestringopt "theme" rawopts uoWatch = boolopt "watch" rawopts
,uoRegister = maybestringopt "register" rawopts ,uoTheme = checkTheme <$> maybestringopt "theme" rawopts
,uoCliOpts = cliopts ,uoRegister = maybestringopt "register" rawopts
} ,uoCliOpts = cliopts
}
where where
-- show historical balance by default (unlike hledger) -- show historical balance by default (unlike hledger)
accum = fromMaybe Historical $ balanceAccumulationOverride rawopts accum = fromMaybe Historical $ balanceAccumulationOverride rawopts