matterhorn-50200.11.0: src/Matterhorn/KeyMap.hs

module Matterhorn.KeyMap
  ( keybindingModeMap
  )
where

import           Prelude ()
import           Matterhorn.Prelude

import           Matterhorn.Events.Keybindings
import           Matterhorn.Events.ChannelSelect
import           Matterhorn.Events.Main
import           Matterhorn.Events.MessageSelect
import           Matterhorn.Events.PostListOverlay
import           Matterhorn.Events.ShowHelp
import           Matterhorn.Events.UrlSelect
import           Matterhorn.Events.ManageAttachments

keybindingModeMap :: [(String, KeyConfig -> KeyHandlerMap)]
keybindingModeMap =
    [ ("main", mainKeybindings)
    , ("help screen", helpKeybindings)
    , ("channel select", channelSelectKeybindings)
    , ("url select", urlSelectKeybindings)
    , ("message select", messageSelectKeybindings)
    , ("post list overlay", postListOverlayKeybindings)
    , ("attachment list", attachmentListKeybindings)
    , ("attachment file browse", attachmentBrowseKeybindings)
    ]