Ability to hibernate or suspend

833d3ba102d089fededb7ec79d017a0db3992b7e
Alexis Sellier committed ago 1 parent 7c8638da
.xmonad/xmonad.hs +4 -3
68 68 
myKeys :: FilePath -> XConfig Layout -> Map (KeyMask, KeySym) (X ())
69 69 
myKeys home conf@XConfig { XMonad.modMask = modMask } =
70 70 
    Map.union ks (XMonad.keys def conf)
71 71 
  where
72 72 
    ks = Map.fromList
73 - 
       [ ((modMask, xK_F12),     safeSpawn "systemctl" ["hibernate"])
74 - 
       , ((modMask, xK_p),       dmenu)
75 - 
       , ((noModMask, xK_Print), spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)
73 + 
       [ ((modMask, xK_F12),                  safeSpawn "systemctl" ["suspend"])
74 + 
       , ((modMask .|. shiftMask, xK_F12),    safeSpawn "systemctl" ["hibernate"])
75 + 
       , ((modMask, xK_p),                    dmenu)
76 + 
       , ((noModMask, xK_Print),              spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)
76 77 
       ]
77 78 
    dmenu :: X ()
78 79 
    dmenu = safeSpawn
79 80 
        "dmenu_run" [ "-fn", "Inconsolata:size=13"
80 81 
                    , "-i"