diff options
| -rw-r--r-- | src/Internal/Keys.hs | 1 | ||||
| -rw-r--r-- | src/Main.hs | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 4cefae8..6ba903e 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -40,6 +40,7 @@ newKeys = , ((modm .|. shiftMask, xK_r), (void $ spawn "gmrun")) , ((modm .|. mod1Mask, xK_l), (void $ spawn "xscreensaver-command -lock")) , ((modm .|. shiftMask, xK_c), kill) + , ((modm .|. shiftMask, xK_t), withFocused $ windows . W.sink) , ((modm, xK_t), (void $ spawn (terminal config))) , ((modm, xK_m), (submap $ mapAlpha modm (markCurrentWindow markContext))) , ((modm, xK_apostrophe), (submap $ diff --git a/src/Main.hs b/src/Main.hs index a160aa8..b94d4cc 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -29,6 +29,7 @@ main = do spawn fp , manageHook = composeAll [ className =? "Tilda" --> doFloat + , className =? "MPlayer" --> doFloat ] } |