diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 21:41:20 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 21:41:20 -0300 |
| commit | 7af6e583d7d6893f67745e23017eba436f8ed826 (patch) | |
| tree | b65568d156cfc3c0319a43548b6c5b644c379d90 /src/Lazymail/Screen.hs | |
| parent | e3a455fc3791539275fdb6aff003ffa8460f8850 (diff) | |
towards configurable keybindings
Diffstat (limited to 'src/Lazymail/Screen.hs')
| -rw-r--r-- | src/Lazymail/Screen.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Lazymail/Screen.hs b/src/Lazymail/Screen.hs index d6937dd..7bc980b 100644 --- a/src/Lazymail/Screen.hs +++ b/src/Lazymail/Screen.hs @@ -229,16 +229,16 @@ handleEvent = loop where Nothing -> loop Just ev' -> case ev' of - EventCharacter 'q' -> EH.previousMode (mode st) + EventCharacter 'q' -> EH.previousMode - EventSpecialKey KeyUpArrow -> EH.scrollUp (mode st) - EventCharacter 'k' -> EH.scrollUp (mode st) + EventSpecialKey KeyUpArrow -> EH.scrollUp + EventCharacter 'k' -> EH.scrollUp - EventSpecialKey KeyDownArrow -> EH.scrollDown (mode st) - EventCharacter 'j' -> EH.scrollDown (mode st) + EventSpecialKey KeyDownArrow -> EH.scrollDown + EventCharacter 'j' -> EH.scrollDown - EventCharacter '\n' -> EH.changeMode (mode st) - EventSpecialKey KeyRightArrow -> EH.changeMode (mode st) + EventCharacter '\n' -> EH.advanceMode + EventSpecialKey KeyRightArrow -> EH.advanceMode _ -> loop |