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 selectedstr = withAttr (borderAttr <> "query") . str
quickhelp = borderKeysStr' [ quickhelp = borderKeysStr' [
("?", str "help") ("?", str "help")
,("right", str "register") ,("RIGHT", str "register")
,("H" ,("H"
,if ishistorical ,if ishistorical
then selectedstr "historical" <+> str "/period" 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 selectedstr = withAttr (borderAttr <> "query") . str
quickhelp = borderKeysStr' [ quickhelp = borderKeysStr' [
("?", str "help") ("?", str "help")
,("left", str "back") ,("LEFT", str "back")
,("right", str "transaction") ,("RIGHT", str "transaction")
,("H" ,("H"
,if ishistorical ,if ishistorical
then selectedstr "historical" <+> str "/period" 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 where
quickhelp = borderKeysStr [ quickhelp = borderKeysStr [
("?", "help") ("?", "help")
,("left", "back") ,("LEFT", "back")
,("up/down", "prev/next") ,("UP/DOWN", "prev/next")
--,("ESC", "cancel/top") --,("ESC", "cancel/top")
-- ,("a", "add") -- ,("a", "add")
,("E", "editor") ,("E", "editor")