From b5cd0351a530d06e8648a12399d90524eafb8569 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sun, 2 Feb 2020 00:39:33 -0700
Subject: Add MPlayer exception and add ability to retile floating windows with
 Mod-Shift-t

---
 src/Internal/Keys.hs | 1 +
 src/Main.hs          | 1 +
 2 files changed, 2 insertions(+)

(limited to 'src')

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
          ]
        }
 
-- 
cgit