bugfixes

1 files changed, 3 insertions, 3 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index e88a60c..a06d240 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -71,8 +71,8 @@ hostFromName h@("vali") = defaultHost { hName = h
                                         Just str -> show i ++ " " ++ str
                                         Nothing -> show i
                                       , hLayoutMod = id
-                                      , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map spawnBindings conf [ (xK_d, ["dwb", "dwb $(xclip -o)"])
-                                                                                                                     ]
+                                      , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"])
+                                                                                                                       ]
                                       }
   where
     workspaceNames = Map.fromList [ (1, "web")
@@ -95,7 +95,7 @@ main = do
         , layoutHook = smartBorders $ avoidStruts layout'
         , logHook = dynamicLogWithPP xmobarPP'
         , modMask = mod4Mask
-        , keys = myKeys'
+        , keys = hKeysMod host $ myKeys'
         , workspaces = take (length numKeys) $ map (hWsp host) [1..]
         , startupHook = assimilateKeychain >> (sequence autostart) >> (setDefaultCursor xC_left_ptr) >> banishScreen LowerRight >> return ()
         , normalBorderColor = "#202020"