From 16faa7dd9c42ca551d608d45f006feabb506774e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 23 Oct 2018 05:43:57 -0700
Subject: [PATCH] ui: capitalise cursor keys in quick help, like help dialog

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

diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs
index 6086d6827..1d05f84dd 100644
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@@ -220,7 +220,7 @@ asDraw UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
             selectedstr = withAttr (borderAttr <> "query") . str
             quickhelp = borderKeysStr' [
                ("?", str "help")
-              ,("right", str "register")
+              ,("RIGHT", str "register")
               ,("H"
                ,if ishistorical
                 then selectedstr "historical" <+> str "/period"
diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs
index 609a5be51..17a5719f7 100644
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@@ -229,8 +229,8 @@ rsDraw UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
             selectedstr = withAttr (borderAttr <> "query") . str
             quickhelp = borderKeysStr' [
                ("?", str "help")
-              ,("left", str "back")
-              ,("right", str "transaction")
+              ,("LEFT", str "back")
+              ,("RIGHT", str "transaction")
               ,("H"
                ,if ishistorical
                 then selectedstr "historical" <+> str "/period"
diff --git a/hledger-ui/Hledger/UI/TransactionScreen.hs b/hledger-ui/Hledger/UI/TransactionScreen.hs
index 8a7e0655c..7e201da4e 100644
--- a/hledger-ui/Hledger/UI/TransactionScreen.hs
+++ b/hledger-ui/Hledger/UI/TransactionScreen.hs
@@ -94,8 +94,8 @@ tsDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
           where
             quickhelp = borderKeysStr [
                ("?", "help")
-              ,("left", "back")
-              ,("up/down", "prev/next")
+              ,("LEFT", "back")
+              ,("UP/DOWN", "prev/next")
               --,("ESC", "cancel/top")
               -- ,("a", "add")
               ,("E", "editor")