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

ui: strip leading/trailing whitespace from filter query

Browse Source
This commit is contained in:
Simon Michael 2016-08-02 17:17:04 -07:00
parent 7603f8328b
commit 293b0f6705
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -257,7 +257,7 @@ asHandle ui0@UIState{
case ev of case ev of
EvKey KEsc [] -> continue $ closeMinibuffer ui EvKey KEsc [] -> continue $ closeMinibuffer ui
EvKey KEnter [] -> continue $ regenerateScreens j d $ setFilter s $ closeMinibuffer ui EvKey KEnter [] -> continue $ regenerateScreens j d $ setFilter s $ closeMinibuffer ui
where s = chomp $ unlines $ getEditContents ed where s = chomp $ unlines $ map strip $ getEditContents ed
ev -> do ed' <- handleEditorEvent ev ed ev -> do ed' <- handleEditorEvent ev ed
continue $ ui{aMode=Minibuffer ed'} continue $ ui{aMode=Minibuffer ed'}

2
hledger-ui/Hledger/UI/RegisterScreen.hs
View File

@ -242,7 +242,7 @@ rsHandle ui@UIState{
case ev of case ev of
EvKey KEsc [] -> continue $ closeMinibuffer ui EvKey KEsc [] -> continue $ closeMinibuffer ui
EvKey KEnter [] -> continue $ regenerateScreens j d $ setFilter s $ closeMinibuffer ui EvKey KEnter [] -> continue $ regenerateScreens j d $ setFilter s $ closeMinibuffer ui
where s = chomp $ unlines $ getEditContents ed where s = chomp $ unlines $ map strip $ getEditContents ed
ev -> do ed' <- handleEditorEvent ev ed ev -> do ed' <- handleEditorEvent ev ed
continue $ ui{aMode=Minibuffer ed'} continue $ ui{aMode=Minibuffer ed'}