diff --git a/home/alex/programs/xmonad/config.hs b/home/alex/programs/xmonad/config.hs index 4e1c6ec..8087dad 100644 --- a/home/alex/programs/xmonad/config.hs +++ b/home/alex/programs/xmonad/config.hs @@ -108,7 +108,7 @@ myConfig = , ("M-S-r", compileRestart True) , ("M-S-q", restart "xmonad" True) , ("M-C-s", unGrab *> spawn "scrot -s") - , ("M-b", sendMessage Docks.ToggleStruts) + , ("M-S-s", sendMessage Docks.ToggleStruts) , ("M-f", sendMessage (Toggle "Full")) , ("M-p", spawn appLauncher) , ("M-i", spawn passLauncher) @@ -124,16 +124,21 @@ myConfig = ("M-s M-t", namedScratchpadAction scratchpads "shell") , ("M-s M-s", namedScratchpadAction scratchpads "notes") , -- backlight control - ("", spawn "xbacklight -dec 5") , ("", spawn "xbacklight -inc 5") , ("", spawn "xbacklight -dec 5") , ("", spawn "xbacklight -inc 5") + , -- transparency + ("S-", spawn "picom-trans -c -5") + , ("S-", spawn "picom-trans -c +5") + , ("M-S-d", spawn "picom-trans -c +5") + , ("M-S-b", spawn "picom-trans -c -5") , -- volume control - ("", changeVolume ToggleVolume) , ("", changeVolume $ LowerVolume 5) , ("", changeVolume $ RaiseVolume 5) + , ("M-d", changeVolume $ RaiseVolume 5) + , ("M-b", changeVolume $ LowerVolume 5) , ("M-a", sendMessage Balance) , ("M-S-a", sendMessage Equalize) , ("M-o", sendMessage Rotate)