Add Tilda and MPV float classes + XScreenSaver lock/suspend shortcut.

2 files changed, 5 insertions, 1 deletions

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 6ba903e..8ec06b6 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -39,6 +39,7 @@ newKeys =
         , ((modm, xK_r),   (void $ spawn "dmenu_run"))
         , ((modm .|. shiftMask, xK_r),   (void $ spawn "gmrun"))
         , ((modm .|. mod1Mask, xK_l), (void $ spawn "xscreensaver-command -lock"))
+        , ((modm .|. mod1Mask, xK_s), (void $ spawn "xscreensaver-command -lock && sudo pm-suspend"))
         , ((modm .|. shiftMask, xK_c), kill)
         , ((modm .|. shiftMask, xK_t), withFocused $ windows . W.sink)
         , ((modm, xK_t),  (void $ spawn (terminal config)))
diff --git a/src/Main.hs b/src/Main.hs
index b94d4cc..f48ce63 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -7,6 +7,7 @@ import System.Directory
 import System.FilePath
 import System.Process
 import Internal.Layout
+import XMonad.Hooks.ManageHelpers
 
 import Internal.Keys
 
@@ -28,8 +29,10 @@ main = do
        , startupHook = do
            spawn fp
        , manageHook = composeAll [
-           className =? "Tilda" --> doFloat
+           isFullscreen --> doFloat
+         , className =? "Tilda" --> doFloat
          , className =? "MPlayer" --> doFloat
+         , className =? "mpv" --> doFloat
          ]
        }