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) ]