From 7af6e583d7d6893f67745e23017eba436f8ed826 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Thu, 5 Sep 2013 21:41:20 -0300 Subject: towards configurable keybindings --- src/Lazymail/Screen.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/Lazymail/Screen.hs') 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 -- cgit v1.2.3