summaryrefslogtreecommitdiff
path: root/.xmonad
diff options
context:
space:
mode:
Diffstat (limited to '.xmonad')
-rw-r--r--.xmonad/xmonad.hs6
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"