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