From eefeea260c25b4364af54b781abfbe57c41cc687 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kjetil.orbekk@gmail.com>
Date: Tue, 5 Jul 2016 13:52:03 -0400
Subject: Xmonad custom bindings.

---
 xmonad/xmonad.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 6d495e4..0c38b8d 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -9,10 +9,11 @@ import System.IO
 import qualified XMonad.StackSet as W
 import qualified Data.Map        as M
 import System.Exit
+import XMonad.Hooks.EwmhDesktops
 
 main = do
   xmproc <- spawnPipe "/usr/bin/env xmobar /home/orbekk/.xmonad/xmobar.hs"
-  xmonad $ desktopConfig
+  xmonad $ ewmh desktopConfig
       { manageHook = manageDocks <+> manageHook defaultConfig
       , layoutHook = smartBorders . avoidStruts $  layoutHook defaultConfig
       , logHook = dynamicLogWithPP xmobarPP
@@ -33,7 +34,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     [ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
 
     -- launch dmenu
-    , ((modm,               xK_p     ), spawn "dmenu_run")
+    , ((modm,               xK_d     ), spawn "dmenu_run")
 
     -- launch gmrun
     , ((modm .|. shiftMask, xK_p     ), spawn "gmrun")
-- 
cgit v1.2.3