diff options
-rw-r--r-- | .xmonad/xmonad.hs | 6 |
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 | |||
71 | Just str -> show i ++ " " ++ str | 71 | Just str -> show i ++ " " ++ str |
72 | Nothing -> show i | 72 | Nothing -> show i |
73 | , hLayoutMod = id | 73 | , hLayoutMod = id |
74 | , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map spawnBindings conf [ (xK_d, ["dwb", "dwb $(xclip -o)"]) | 74 | , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"]) |
75 | ] | 75 | ] |
76 | } | 76 | } |
77 | where | 77 | where |
78 | workspaceNames = Map.fromList [ (1, "web") | 78 | workspaceNames = Map.fromList [ (1, "web") |
@@ -95,7 +95,7 @@ main = do | |||
95 | , layoutHook = smartBorders $ avoidStruts layout' | 95 | , layoutHook = smartBorders $ avoidStruts layout' |
96 | , logHook = dynamicLogWithPP xmobarPP' | 96 | , logHook = dynamicLogWithPP xmobarPP' |
97 | , modMask = mod4Mask | 97 | , modMask = mod4Mask |
98 | , keys = myKeys' | 98 | , keys = hKeysMod host $ myKeys' |
99 | , workspaces = take (length numKeys) $ map (hWsp host) [1..] | 99 | , workspaces = take (length numKeys) $ map (hWsp host) [1..] |
100 | , startupHook = assimilateKeychain >> (sequence autostart) >> (setDefaultCursor xC_left_ptr) >> banishScreen LowerRight >> return () | 100 | , startupHook = assimilateKeychain >> (sequence autostart) >> (setDefaultCursor xC_left_ptr) >> banishScreen LowerRight >> return () |
101 | , normalBorderColor = "#202020" | 101 | , normalBorderColor = "#202020" |