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