diff options
Diffstat (limited to '.xmonad/xmonad.hs')
| -rw-r--r-- | .xmonad/xmonad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index fadc49a..8813651 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs | |||
| @@ -76,8 +76,7 @@ hostFromName h@("vali") = defaultHost { hName = h | |||
| 76 | ] | 76 | ] |
| 77 | , hWsp = hWsp | 77 | , hWsp = hWsp |
| 78 | , hCoWsp = hCoWsp | 78 | , hCoWsp = hCoWsp |
| 79 | , hLayoutMod = mkMod [ (\wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways)) <$> hCoWsp "web" | 79 | , hLayoutMod = maybe' applyWeb |
| 80 | ] | ||
| 81 | , 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)"]) |
| 82 | ] | 81 | ] |
| 83 | } | 82 | } |
| @@ -86,7 +85,8 @@ hostFromName h@("vali") = defaultHost { hName = h | |||
| 86 | ] | 85 | ] |
| 87 | hWsp = wspFromMap workspaceNames | 86 | hWsp = wspFromMap workspaceNames |
| 88 | hCoWsp = coWspFromMap workspaceNames | 87 | hCoWsp = coWspFromMap workspaceNames |
| 89 | mkMod = foldl (.) id . catMaybes | 88 | maybe' = fromMaybe id |
| 89 | applyWeb = (\wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways)) <$> hCoWsp "web" | ||
| 90 | hostFromName _ = defaultHost | 90 | hostFromName _ = defaultHost |
| 91 | 91 | ||
| 92 | wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of | 92 | wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of |