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

fix: ui: fix internal screen state when using --register

Browse Source 
This seems not to have been user-visible.
This commit is contained in:
Simon Michael 2022-10-28 16:52:45 -10:00
parent 21c00f9ba2
commit 52d7f99360
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-ui/Hledger/UI/Main.hs
View File

@ -131,11 +131,12 @@ runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=r
filteredQuery q = simplifyQuery $ And [queryFromFlags ropts, filtered q] filteredQuery q = simplifyQuery $ And [queryFromFlags ropts, filtered q]
where filtered = filterQuery (\x -> not $ queryIsDepth x || queryIsDate x) where filtered = filterQuery (\x -> not $ queryIsDepth x || queryIsDate x)
-- select the starting screen, and parent screens you can step back to: -- Select the starting screen, and parent screens you can step back to:
-- menu > accounts by default, or menu > accounts > register with --register. -- menu > accounts by default, or menu > accounts > register with --register.
-- Remember the parent screens are ordered nearest/lowest first.
(prevscrs, startscr) = case uoRegister uopts of (prevscrs, startscr) = case uoRegister uopts of
Nothing -> ([menuscr], acctsscr) Nothing -> ([menuscr], acctsscr)
Just apat -> ([menuscr, asSetSelectedAccount acct acctsscr], regscr) Just apat -> ([asSetSelectedAccount acct acctsscr, menuscr], regscr)
where where
regscr = regscr =
rsSetAccount acct False $ rsSetAccount acct False $