From d6ee0e228470a3f13dc17f465da770e940f6c4ea Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 30 May 2018 08:28:37 -0700
Subject: Fix backlighting screen stuff on laptop

---
 xmonad.hs | 34 +++++++++++++++++++++++-----------
 1 file changed, 23 insertions(+), 11 deletions(-)

(limited to 'xmonad.hs')

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
+        }
-- 
cgit v1.2.3