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

ui: acc: accept = as an alias for the + key

Browse Source
This commit is contained in:
Simon Michael 2015-09-04 09:10:00 -07:00
parent 4a4fb13a95
commit 5504d70a41
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,7 @@ where
import Control.Lens ((^.))
-- import Control.Monad
import Control.Monad.IO.Class
import Control.Monad.IO.Class (liftIO)
-- import Data.Default
import Data.List
import Data.Maybe
@ -103,7 +103,7 @@ drawAccountsScreen _st@AppState{aopts=uopts, ajournal=j, aScreen=AccountsScreen{
<+> borderDepthStr mdepth
<+> str " ("
<+> cur
<+> str " of "
<+> str "/"
<+> total
<+> str ")"
files = case journalFilePaths j of
@ -120,7 +120,7 @@ drawAccountsScreen _st@AppState{aopts=uopts, ajournal=j, aScreen=AccountsScreen{
bottomlabel = borderKeysStr [
-- ("up/down/pgup/pgdown/home/end", "move")
("-+1234567890", "adjust depth limit")
("-, +/=, 1234567890", "adjust depth limit")
,("right/enter", "show transactions")
,("g", "reload")
,("q", "quit")
@ -220,6 +220,7 @@ handleAccountsScreen st@AppState{
_ -> continue st
Vty.EvKey (Vty.KChar '-') [] -> reload $ decDepth st
Vty.EvKey (Vty.KChar '+') [] -> reload $ incDepth st
Vty.EvKey (Vty.KChar '=') [] -> reload $ incDepth st
Vty.EvKey (Vty.KChar '1') [] -> reload $ setDepth 1 st
Vty.EvKey (Vty.KChar '2') [] -> reload $ setDepth 2 st
Vty.EvKey (Vty.KChar '3') [] -> reload $ setDepth 3 st