From 8685a78795bbf7e274a8824e79256cca4c7899e5 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 3 Sep 2015 21:05:15 -0700
Subject: [PATCH] ui: acc: enter key also enters register, for now

---
 hledger-ui/Hledger/UI/AccountsScreen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs
index 5a4177222..a9a066c1d 100644
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@@ -219,7 +219,7 @@ handleAccountsScreen st@AppState{aScreen=scr@AccountsScreen{asState=l}} e = do
         Vty.EvKey (Vty.KChar '9') [] -> reload $ setDepth 9 st
         Vty.EvKey (Vty.KChar '0') [] -> reload $ setDepth 0 st
         Vty.EvKey (Vty.KLeft) []     -> continue $ popScreen st
-        Vty.EvKey (Vty.KRight) []    -> do
+        Vty.EvKey (k) [] | k `elem` [Vty.KRight, Vty.KEnter] -> do
           let st' = screenEnter d RS.screen{rsAcct=acct} st
           vScrollToBeginning $ viewportScroll "register"
           continue st'