diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 22:42:28 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 22:42:28 -0300 |
| commit | 4f9e2732d8c19bcb731f82d590436f5a3168ec8d (patch) | |
| tree | d31241f86dc8ad15fd4a5e9594b171cfcba60cf1 /src/Lazymail/Keymap.hs | |
| parent | 7af6e583d7d6893f67745e23017eba436f8ed826 (diff) | |
Working configurable keybindings
Diffstat (limited to 'src/Lazymail/Keymap.hs')
| -rw-r--r-- | src/Lazymail/Keymap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |