module Game.LambdaHack.Client.UI.Content.KeyKind
( KeyKind(..)
, macroLeftButtonPress, macroShiftLeftButtonPress
) where
import qualified Game.LambdaHack.Client.Key as K
import Game.LambdaHack.Client.UI.HumanCmd
data KeyKind = KeyKind
{ rhumanCommands :: ![(K.KM, ([CmdCategory], HumanCmd))]
}
macroLeftButtonPress :: HumanCmd
macroLeftButtonPress =
Macro "go to pointer for 100 steps"
[ "ALT-space", "ALT-minus"
, "SHIFT-MiddleButtonPress", "CTRL-semicolon"
, "CTRL-period", "V" ]
macroShiftLeftButtonPress :: HumanCmd
macroShiftLeftButtonPress =
Macro "run collectively to pointer for 100 steps"
[ "ALT-space"
, "SHIFT-MiddleButtonPress", "CTRL-colon"
, "CTRL-period", "V" ]