diff options
Diffstat (limited to 'montis/src/Config.hs')
| -rw-r--r-- | montis/src/Config.hs | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/montis/src/Config.hs b/montis/src/Config.hs index f71b5f9..5ba1c40 100644 --- a/montis/src/Config.hs +++ b/montis/src/Config.hs @@ -3,8 +3,9 @@ module Config (config) where import Data.Bits (shiftL) import Data.Word (Word32) import Montis.Core -import Montis.Standard.Drag (DragConfig (DragConfig)) -import Montis.Standard.Keys.Dsl +import Montis.Standard.Bindings.Button +import Montis.Standard.Bindings.Dsl +import Montis.Standard.Drag import Montis.Standard.Mouse (MouseConfig (MouseConfig)) keyBindings :: [Binding] @@ -14,7 +15,12 @@ keyBindings = [ Bind (Mod1 .+ 'k') (mio $ putStrLn "Pressed 'k' after 'j'") ], Bind (Mod1 .+ 'Q') requestRebirth, - Bind (Mod1 .+ 's') (\(keyEvent :: KeyEvent) -> mio (print keyEvent)) + Bind (Mod1 .+ 'q') requestExit, + Bind (Mod1 .+ 's') (\(keyEvent :: KeyEvent) -> mio (print keyEvent)), + Bind (Mod1 .+ 'S') (\(keyEvent :: KeyEvent) -> mio (print keyEvent)), + Bind (Mod1 .+ btnLeft) startWindowMove, + Bind (Mod1 .+ btnRight) startWindowResize, + Bind (Mod1 .+ btnMiddle) (\(buttonEvent :: ButtonEvent) -> mio (print buttonEvent)) ] mod1Mask :: Word32 @@ -23,5 +29,5 @@ mod1Mask = 1 `shiftL` 3 -- WLR_MODIFIER_ALT config :: MontisConfig config = install MouseConfig $ - install (DragConfig mod1Mask) $ + install DragConfig $ withBindings keyBindings defaultConfig |