ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD DPMS switch

This commit is contained in:
Nathan Dwarshuis 2020-03-14 15:55:58 -04:00
parent 53d68f5324
commit bb9e6ad056
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
xmonad.hs
View File

@ -455,6 +455,12 @@ runMaxBacklight = spawnCmd "adj_backlight" ["max"]
showWorkspace tag = windows $ W.view tag showWorkspace tag = windows $ W.view tag
enableDPMS :: X ()
enableDPMS = spawnCmd "xset" ["s", "on", "+dpms"]
disableDPMS :: X ()
disableDPMS = spawnCmd "xset" ["s", "off", "-dpms"]
-- keybindings -- keybindings
showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
@ -563,6 +569,8 @@ myKeys c =
, ("M-,", addName "backlight down" runDecBacklight) , ("M-,", addName "backlight down" runDecBacklight)
, ("M-M1-,", addName "backlight min" runMaxBacklight) , ("M-M1-,", addName "backlight min" runMaxBacklight)
, ("M-M1-.", addName "backlight max" runMinBacklight) , ("M-M1-.", addName "backlight max" runMinBacklight)
, ("M-M1-=", addName "enable screensaver" enableDPMS)
, ("M-M1--", addName "disable screensaver" disableDPMS)
, ("M-<F2>", addName "restart xmonad" $ runCleanup >> runRestart) , ("M-<F2>", addName "restart xmonad" $ runCleanup >> runRestart)
, ("M-S-<F2>", addName "recompile xmonad" $ runCleanup >> runRecompile) , ("M-S-<F2>", addName "recompile xmonad" $ runCleanup >> runRecompile)
, ("M-<End>", addName "power menu" myPowerPrompt) , ("M-<End>", addName "power menu" myPowerPrompt)