summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.xmonad/xmonad.hs4
1 files changed, 1 insertions, 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
76 ] 76 ]
77 , hWsp = hWsp 77 , hWsp = hWsp
78 , hCoWsp = hCoWsp 78 , hCoWsp = hCoWsp
79 , hLayoutMod = maybe' applyWeb 79 , hLayoutMod = onWorkspace (hWsp 1) (noBorders Full ||| tabbedLayout tabbedBottomAlways)
80 , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"]) 80 , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"])
81 ] 81 ]
82 } 82 }
@@ -85,8 +85,6 @@ hostFromName h@("vali") = defaultHost { hName = h
85 ] 85 ]
86 hWsp = wspFromMap workspaceNames 86 hWsp = wspFromMap workspaceNames
87 hCoWsp = coWspFromMap workspaceNames 87 hCoWsp = coWspFromMap workspaceNames
88 maybe' = fromMaybe id
89 applyWeb = (\wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways)) <$> hCoWsp "web"
90hostFromName _ = defaultHost 88hostFromName _ = defaultHost
91 89
92wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of 90wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of