From ece2c194432de29699c457c98e7b7db7ff2733c8 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 3 Jul 2015 23:56:49 +0200 Subject: bugfixes --- .xmonad/xmonad.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to '.xmonad') 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" -- cgit v1.2.3