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

ui: capitalise cursor keys in quick help, like help dialog

Browse Source
This commit is contained in:
Simon Michael 2018-10-23 05:43:57 -07:00
parent 3ef8d9fc82
commit 16faa7dd9c
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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"

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

@ -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"

4
hledger-ui/Hledger/UI/TransactionScreen.hs
View File

@ -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")