Call the sleep script

a8dcfd281a02a30349d7f8f4555c8de3a1de7b63
Alexis Sellier committed ago 1 parent 999be084
.xmonad/xmonad.hs +1 -1
73 73 
myKeys :: FilePath -> XConfig Layout -> Map (KeyMask, KeySym) (X ())
74 74 
myKeys home conf@XConfig { XMonad.modMask = modMask } =
75 75 
    Map.union ks (XMonad.keys def conf)
76 76 
  where
77 77 
    ks = Map.fromList
78 - 
       [ ((modMask, xK_F12),                    safeSpawn "systemctl" ["suspend"])
78 + 
       [ ((modMask, xK_F12),                    safeSpawn "sleep" [])
79 79 
       , ((modMask .|. shiftMask, xK_F12),      safeSpawn "systemctl" ["hibernate"])
80 80 
       , ((modMask, xK_p),                      dmenu)
81 81 
       , ((modMask, xK_Tab),                    toggleWS)
82 82 
       , ((modMask .|. controlMask, xK_Return), toggleFloatNext >> (spawn $ XMonad.terminal conf))
83 83 
       , ((noModMask, xK_Print),                spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)