summaryrefslogtreecommitdiff
path: root/xmonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'xmonad.hs')
-rw-r--r--xmonad.hs12
1 files changed, 1 insertions, 11 deletions
diff --git a/xmonad.hs b/xmonad.hs
index ebd72a6..c27cafb 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -101,7 +101,7 @@ myKeys =
, ("M-S-c", spawn "xmonad --recompile && xmonad --restart")
, ("M-S-r", spawn "xmonad --restart")
, ("M-S-e", io exitSuccess)
- , ("M-S-x", lockScreen)
+ , ("M-S-x", spawn "xsecurelock")
, ("M-j", windows W.focusDown)
, ("M-k", windows W.focusUp)
@@ -172,16 +172,6 @@ myLogHook fifo = dynamicLogWithPP $ def
}
------------------------------------------------------------------------
--- Lock screen helper function
-------------------------------------------------------------------------
-
-lockScreen :: X ()
-lockScreen = do
- let modes = ["spiral", "space", "helix", "grav"]
- i <- io $ randomRIO (0, length modes - 1)
- spawn $ "xlock -mode " ++ (modes !! i)
-
-------------------------------------------------------------------------
-- Main
------------------------------------------------------------------------