From 99bbf037e6966dd17c5dd1026b1dc5d1cedba13c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 4 Jul 2015 14:29:24 +0200 Subject: workspace numbers need to be statically known because layouts are type-level --- .xmonad/xmonad.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 8813651..e1ed49b 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -76,7 +76,7 @@ hostFromName h@("vali") = defaultHost { hName = h ] , hWsp = hWsp , hCoWsp = hCoWsp - , hLayoutMod = maybe' applyWeb + , hLayoutMod = onWorkspace (hWsp 1) (noBorders Full ||| tabbedLayout tabbedBottomAlways) , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"]) ] } @@ -85,8 +85,6 @@ hostFromName h@("vali") = defaultHost { hName = h ] hWsp = wspFromMap workspaceNames hCoWsp = coWspFromMap workspaceNames - maybe' = fromMaybe id - applyWeb = (\wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways)) <$> hCoWsp "web" hostFromName _ = defaultHost wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of -- cgit v1.2.3