diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 20:34:56 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 20:34:56 -0300 |
| commit | e3a455fc3791539275fdb6aff003ffa8460f8850 (patch) | |
| tree | cddd898f1264c5f225b3845765b3c82431e5fe8c /src/Lazymail/Screen.hs | |
| parent | 3bd3fd2c6eae2f36f69f247403421e8cf8226394 (diff) | |
rename scrolling functions
Diffstat (limited to 'src/Lazymail/Screen.hs')
| -rw-r--r-- | src/Lazymail/Screen.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Lazymail/Screen.hs b/src/Lazymail/Screen.hs index 699f84e..d6937dd 100644 --- a/src/Lazymail/Screen.hs +++ b/src/Lazymail/Screen.hs @@ -231,11 +231,11 @@ handleEvent = loop where case ev' of EventCharacter 'q' -> EH.previousMode (mode st) - EventSpecialKey KeyUpArrow -> EH.decSelectedRow (mode st) - EventCharacter 'k' -> EH.decSelectedRow (mode st) + EventSpecialKey KeyUpArrow -> EH.scrollUp (mode st) + EventCharacter 'k' -> EH.scrollUp (mode st) - EventSpecialKey KeyDownArrow -> EH.incSelectedRow (mode st) - EventCharacter 'j' -> EH.incSelectedRow (mode st) + EventSpecialKey KeyDownArrow -> EH.scrollDown (mode st) + EventCharacter 'j' -> EH.scrollDown (mode st) EventCharacter '\n' -> EH.changeMode (mode st) EventSpecialKey KeyRightArrow -> EH.changeMode (mode st) |