diff options
| -rw-r--r-- | src/Internal/Keys.hs | 1 | ||||
| -rw-r--r-- | src/Main.hs | 5 |
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 ] } |