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

ADD optimus switcher

This commit is contained in:
Nathan Dwarshuis 2020-03-16 20:16:53 -04:00
parent 668d7e232f
commit 7b124c4ad3
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
bin/xmonad.hs
View File

@ -275,6 +275,20 @@ myPowerPrompt = mkXPrompt PowerPrompt theme comp executeAction
myQuitPrompt :: X () myQuitPrompt :: X ()
myQuitPrompt = confirmPrompt T.promptTheme "quit?" $ io exitSuccess myQuitPrompt = confirmPrompt T.promptTheme "quit?" $ io exitSuccess
isUsingNvidia :: IO Bool
isUsingNvidia = doesDirectoryExist "/sys/module/nvidia"
runOptimusPrompt :: X ()
runOptimusPrompt = do
nvidiaOn <- io isUsingNvidia
switch $ if nvidiaOn then "intel" else "nvidia"
where
switch mode = confirmPrompt T.promptTheme (prompt mode) (cmd mode)
prompt mode = "gpu switch to " ++ mode ++ "?"
cmd mode = spawnCmd "optimus-manager"
["--switch", mode, "--no-confirm"]
>> io exitSuccess
-- shell commands -- shell commands
fmtCmd :: String -> [String] -> String fmtCmd :: String -> [String] -> String
@ -597,4 +611,5 @@ myKeys hs c =
, ("M-S-<F2>", addName "recompile xmonad" runRecompile) , ("M-S-<F2>", addName "recompile xmonad" runRecompile)
, ("M-<End>", addName "power menu" myPowerPrompt) , ("M-<End>", addName "power menu" myPowerPrompt)
, ("M-<Home>", addName "quit xmonad" myQuitPrompt) , ("M-<Home>", addName "quit xmonad" myQuitPrompt)
, ("M-<Esc>", addName "switch gpu" runOptimusPrompt)
] ]