From 4f9e2732d8c19bcb731f82d590436f5a3168ec8d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Thu, 5 Sep 2013 22:42:28 -0300 Subject: Working configurable keybindings --- src/Lazymail/Keymap.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Lazymail/Keymap.hs') diff --git a/src/Lazymail/Keymap.hs b/src/Lazymail/Keymap.hs index 27dce60..c649faa 100644 --- a/src/Lazymail/Keymap.hs +++ b/src/Lazymail/Keymap.hs @@ -19,7 +19,7 @@ import UI.NCurses(Event(..), Key(..)) import Lazymail.Types(Keymap, LazymailState(..), Mode(..), LazymailConfig(..)) import Lazymail.Handlers(advanceMode, previousMode, scrollUp, scrollDown) -defaultGlobalKeymap = [ ([EventCharacter '\n', EventSpecialKey KeyRightArrow], advanceMode) +defaultGlobalKeymap = [ ([EventCharacter '\n', EventCharacter ' ', EventSpecialKey KeyRightArrow], advanceMode) , ([EventCharacter 'q', EventCharacter 'Q'], previousMode) , ([EventSpecialKey KeyUpArrow, EventCharacter 'k'], scrollUp) , ([EventSpecialKey KeyDownArrow, EventCharacter 'j'], scrollDown) -- cgit v1.2.3