From e3a455fc3791539275fdb6aff003ffa8460f8850 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Thu, 5 Sep 2013 20:34:56 -0300 Subject: rename scrolling functions --- src/Lazymail/Screen.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Lazymail/Screen.hs') 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) -- cgit v1.2.3