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

;dev:ui:ErrorScreen: note possible updating issue after E key

Browse Source
This commit is contained in:
Simon Michael 2025-09-12 09:57:21 +01:00
parent 27fcd50914
commit 5d1bb5c2ad
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,6 +89,8 @@ esHandle ev = do
VtyEvent (EvKey KEsc []) -> put' $ uiCheckBalanceAssertions d $ resetScreens d ui VtyEvent (EvKey KEsc []) -> put' $ uiCheckBalanceAssertions d $ resetScreens d ui
VtyEvent (EvKey (KChar c) []) | c `elem` ['h','?'] -> put' $ setMode Help ui VtyEvent (EvKey (KChar c) []) | c `elem` ['h','?'] -> put' $ setMode Help ui
VtyEvent (EvKey (KChar 'E') []) -> suspendAndResume $ void (runEditor pos f) >> uiReloadIfFileChanged copts d j (popScreen ui) VtyEvent (EvKey (KChar 'E') []) -> suspendAndResume $ void (runEditor pos f) >> uiReloadIfFileChanged copts d j (popScreen ui)
-- XXX put ? uiCheckBalanceAssertions ?
-- does the error screen update the state, and check balance assertions, after running editor ?
where where
(pos,f) = case parsewithString hledgerparseerrorpositionp _essError of (pos,f) = case parsewithString hledgerparseerrorpositionp _essError of
Right (f',l,c) -> (Just (l, Just c),f') Right (f',l,c) -> (Just (l, Just c),f')
@ -134,7 +136,7 @@ hledgerparseerrorpositionp = do
-- | Reload the journal from its input files, then update the ui app state accordingly. -- | Reload the journal from its input files, then update the ui app state accordingly.
-- This means regenerate the entire screen stack from top level down to the current screen, using the provided today-date. -- This means regenerate the entire screen stack from top level down to the current screen, using the provided today-date.
-- Or if journal reloading fails, enter the error screen; or if already there, update its message. -- As a convenience (usually), if journal reloading fails, this enters the error screen, or if already there, updates its message.
-- --
-- The provided cli options can influence reloading; then if reloading succeeds they are saved in the ui state, -- The provided cli options can influence reloading; then if reloading succeeds they are saved in the ui state,
-- otherwise the UIState keeps its old options. (XXX needed for.. ?) -- otherwise the UIState keeps its old options. (XXX needed for.. ?)