From 293b0f6705d0d4002243b3fc76909f420a3fc9af Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 2 Aug 2016 17:17:04 -0700
Subject: [PATCH] ui: strip leading/trailing whitespace from filter query

---
 hledger-ui/Hledger/UI/AccountsScreen.hs | 2 +-
 hledger-ui/Hledger/UI/RegisterScreen.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs
index 75ad3bf08..67b494441 100644
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@@ -257,7 +257,7 @@ asHandle ui0@UIState{
       case ev of
         EvKey KEsc   [] -> continue $ 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
                               continue $ ui{aMode=Minibuffer ed'}
 
diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs
index ab246eb95..b9c703e84 100644
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@@ -242,7 +242,7 @@ rsHandle ui@UIState{
       case ev of
         EvKey KEsc   [] -> continue $ 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
                               continue $ ui{aMode=Minibuffer ed'}