primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2025-12-06 06:39:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmonad: powerprofilesctl bindings

Browse source
This commit is contained in:
Primrose 2025-07-13 22:37:08 +02:00
parent a6cd6515a6
commit 62d085de11
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
nix/configurations/vanadium/home/xmonad/xmonad.hs
View file

@ -4,7 +4,7 @@
import XMonad import XMonad
import XMonad.Actions.SwapWorkspaces(swapWithCurrent) import XMonad.Actions.SwapWorkspaces(swapWithCurrent)
import XMonad.Actions.Submap (submap) import XMonad.Actions.Submap (submap, visualSubmap)
import XMonad.Util.EZConfig (additionalKeys, removeKeys) import XMonad.Util.EZConfig (additionalKeys, removeKeys)
import XMonad.Util.NamedScratchpad (NamedScratchpad (NS), import XMonad.Util.NamedScratchpad (NamedScratchpad (NS),
@ -228,6 +228,17 @@ main = xmonad
, ((superMask, xK_l), spawn lock ) , ((superMask, xK_l), spawn lock )
]) ])
++ (let
powerprofile p = (p, spawn $ "powerprofilesctl set " ++ p)
in
[ ( (superMask, xK_p), visualSubmap def $ M.fromList
[ ((0, xK_1), powerprofile "power-saver")
, ((0, xK_2), powerprofile "balanced" )
, ((0, xK_3), powerprofile "performance")
]
)
])
myTerm :: String myTerm :: String
myTerm = "kitty" myTerm = "kitty"