xmonad: added brightness controls

.xmonad/xmonad.hs

@@ -155,7 +155,7 @@ projects =
       { projectName = wsADA,
         projectDirectory = "~/",
         projectStartHook = Just $ do spawnOn wsADA daedalus
-      },
+      }
   ]
 
 promptTheme :: XPConfig
@@ -174,7 +174,9 @@ promptTheme =
 -- Applications --
 ------------------
 
-browser, discord, editor, element, incognitoBrowser, iogBrowser, launcher, logseq, musicPlayer, obs, screenshot, slack, myTerminal :: String
+brightnessDown, brightnessUp, browser, discord, editor, element, incognitoBrowser, iogBrowser, launcher, logseq, musicPlayer, obs, screenshot, slack, myTerminal :: String
+brightnessDown = "light -U 5"
+brightnessUp = "light -A 5"
 browser = "brave"
 daedalus = "daedalus"
 discord = "discord"
@@ -216,7 +218,10 @@ myKeybinds =
     ("M-C-S-l", spawn myScreenLock),
     ("M-C-d", setLayout $ Layout (layoutHook myConfig)),
     ("M-C-w", shiftToProjectPrompt promptTheme),
-    ("M-w", switchProjectPrompt promptTheme)
+    ("M-w", switchProjectPrompt promptTheme),
+    -- Environment controls
+    ("<XF86MonBrightnessDown>", spawn brightnessDown),
+    ("<XF86MonBrightnessUp>", spawn brightnessUp)
   ]
     -- Navigation
     ++ zipWith (makeKeybindZipper "M-" windowGo) htnsKeys dirs