From 52d7f993601726dc2f01be6d7c2038d3e67b6b95 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 28 Oct 2022 16:52:45 -1000 Subject: [PATCH] fix: ui: fix internal screen state when using --register This seems not to have been user-visible. --- hledger-ui/Hledger/UI/Main.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs index 14ff926e8..ae961af7e 100644 --- a/hledger-ui/Hledger/UI/Main.hs +++ b/hledger-ui/Hledger/UI/Main.hs @@ -131,11 +131,12 @@ runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=r filteredQuery q = simplifyQuery $ And [queryFromFlags ropts, filtered q] 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. + -- Remember the parent screens are ordered nearest/lowest first. (prevscrs, startscr) = case uoRegister uopts of Nothing -> ([menuscr], acctsscr) - Just apat -> ([menuscr, asSetSelectedAccount acct acctsscr], regscr) + Just apat -> ([asSetSelectedAccount acct acctsscr, menuscr], regscr) where regscr = rsSetAccount acct False $