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

ui: fixups

Browse Source
This commit is contained in:
Simon Michael 2015-10-28 10:27:14 -07:00
parent 2515025a84
commit 423934b2b8
2 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger-ui/Hledger/UI/AccountsScreen.hs
View File

@ -220,15 +220,10 @@ handleAccountsScreen st@AppState{
-- Vty.EvKey (Vty.KChar 'l') [Vty.MCtrl] -> do -- Vty.EvKey (Vty.KChar 'l') [Vty.MCtrl] -> do
Vty.EvKey (Vty.KChar 'g') [] -> do Vty.EvKey (Vty.KChar 'g') [] -> do
ej <- liftIO $ journalReload j ej <- liftIO $ journalReload j -- (ej, changed) <- liftIO $ journalReloadIfChanged copts j
case ej of case ej of
Right j' -> continue $ reload j' d st Right j' -> continue $ reload j' d st
Left err -> continue $ screenEnter d ES.screen{esState=err} st Left err -> continue $ screenEnter d ES.screen{esState=err} st
-- (ej, changed) <- liftIO $ journalReloadIfChanged copts j
-- case (changed, ej) of
-- (True, Right j') -> reload st{ajournal=j'}
-- -- (True, Left err) -> continue st{amsg=err} -- XXX report parse error
-- _ -> continue st
Vty.EvKey (Vty.KChar '-') [] -> continue $ reload' d $ decDepth st Vty.EvKey (Vty.KChar '-') [] -> continue $ reload' d $ decDepth st
Vty.EvKey (Vty.KChar '+') [] -> continue $ reload' d $ incDepth st Vty.EvKey (Vty.KChar '+') [] -> continue $ reload' d $ incDepth st

5
hledger-ui/hledger-ui.1.md
View File

@ -179,6 +179,5 @@ The need to precede options with `--` when invoked from hledger is awkward.
`-V` doesn't affect the register screen. `-V` doesn't affect the register screen.
When you press `g`, the current and all previous screens are When you press `g`, the current and all previous screens are
regenerated. With large data this will cause a noticeable pause, regenerated, which may cause a noticeable pause. Also there is no
which could be reduced if the previous screens were processed in a visual indication that this is in progress.
background thread.