1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
{- Lazymail default keymap.
-
- Copyright 2013 Raúl Benencia <rul@kalgan.cc>
-
- Licensed under the GNU GPL version 3 or higher
-}
module Lazymail.Keymap
( defaultGlobalKeymap
, defaultMaildirKeymap
, defaultIndexKeymap
, defaultEmailKeymap
, defaultComposeKeymap
, findHandler
) where
import UI.NCurses(Event(..), Key(..))
import Lazymail.Types(Keymap, LazymailState(..), Mode(..), LazymailConfig(..))
import Lazymail.Handlers(advanceMode, previousMode, scrollUp, scrollDown)
defaultGlobalKeymap = [ ([EventCharacter '\n', EventCharacter ' ', EventSpecialKey KeyRightArrow], advanceMode)
, ([EventCharacter 'q', EventCharacter 'Q'], previousMode)
, ([EventSpecialKey KeyUpArrow, EventCharacter 'k'], scrollUp)
, ([EventSpecialKey KeyDownArrow, EventCharacter 'j'], scrollDown)
]
defaultMaildirKeymap = []
defaultIndexKeymap = []
defaultEmailKeymap = []
defaultComposeKeymap = []
-- | Try to find a keymap for the current mode. If nothing is found, then
-- try looking up in the global keymap.
findHandler st cfg ev = case modeHandler (mode st) ev of
Nothing -> globalHandler ev
h@Just{} -> h
where
modeHandler MaildirMode = lookupHandler $ maildirModeKeymap cfg
modeHandler IndexMode = lookupHandler $ indexModeKeymap cfg
modeHandler EmailMode = lookupHandler $ emailModeKeymap cfg
modeHandler ComposeMode = lookupHandler $ composeModeKeymap cfg
globalHandler = lookupHandler $ globalKeymap cfg
lookupHandler [] _ = Nothing
lookupHandler (km:kms) ev
| elem ev (fst km) = Just $ snd km
| otherwise = lookupHandler kms ev
|
