diff options
-rw-r--r-- | .xmonad/xmonad.hs | 4 |
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" | ||
90 | hostFromName _ = defaultHost | 88 | hostFromName _ = defaultHost |
91 | 89 | ||
92 | wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of | 90 | wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of |