Fix backlighting screen stuff on laptop

1 files changed, 23 insertions, 11 deletions

diff --git a/xmonad.hs b/xmonad.hs
index 77dfa5f..9ac0ead 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -1,18 +1,30 @@
 import XMonad.Config
 import XMonad
+import XMonad.Util.CustomKeys (customKeys)
 import XMonad.Hooks.EwmhDesktops (ewmh)
 import XMonad.Hooks.ManageDocks
 --import System.Taffybar.Support.PagerHints (pagerHints)
 
+delKeys conf@(XConfig {modMask = modMask}) =
+    [ (modMask, xK_p) ]
+
+insKeys :: XConfig l -> [((KeyMask, KeySym), X ())]
+insKeys conf@(XConfig {modMask = modMask}) =
+    [ ((0, xK_F5), spawn "xbacklight -dec 1")
+    , ((0, xK_F6), spawn "xbacklight -inc 1")
+    , ((modMask, xK_o), spawn "dmenu")
+    ]
+
 main =
-  xmonad $
-  ewmh $
-  docks $
-  def
-    { modMask = mod4Mask -- ^ super instead of alt
-    , normalBorderColor = "#002b36" -- ^ solarized dark
-    , focusedBorderColor = "#eee8d5" -- ^ solarized light
-    , manageHook = manageDocks <+> manageHook defaultConfig
-    , layoutHook = avoidStruts $ layoutHook defaultConfig
-    , terminal = "/home/ben/.nix-profile/bin/xterm"
-    }
+    xmonad $
+    ewmh $
+    docks $
+    def
+        { modMask = mod4Mask -- ^ super instead of alt
+        , normalBorderColor = "#002b36" -- ^ solarized dark
+        , focusedBorderColor = "#eee8d5" -- ^ solarized light
+        , manageHook = manageDocks <+> manageHook defaultConfig
+        , layoutHook = avoidStruts $ layoutHook defaultConfig
+        , terminal = "/home/ben/.nix-profile/bin/xterm"
+        , keys = customKeys delKeys insKeys
+        }