diff options
| author | Azat Bahawi <azat@bahawi.net> | 2022-02-16 02:15:52 +0300 |
|---|---|---|
| committer | Azat Bahawi <azat@bahawi.net> | 2022-02-16 02:15:52 +0300 |
| commit | 13964faa53b09924bdd27328311ba27457b0b61d (patch) | |
| tree | 73dcca227f3084fd1fa09fd4d3323544b61218ea /src/lib/XMonad/Custom | |
| parent | meh (diff) | |
I hate the Antichrist
Diffstat (limited to '')
| -rw-r--r-- | src/lib/XMonad/Custom/Config.hs | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/src/lib/XMonad/Custom/Config.hs b/src/lib/XMonad/Custom/Config.hs index 84f4069..4a4af2d 100644 --- a/src/lib/XMonad/Custom/Config.hs +++ b/src/lib/XMonad/Custom/Config.hs @@ -11,8 +11,8 @@ -- module XMonad.Custom.Config - ( myConfig - ) where + ( myConfig + ) where import Flow import XMonad @@ -31,24 +31,24 @@ import XMonad.Hooks.UrgencyHook import XMonad.Layout.IndependentScreens myConfig = do - screens <- countScreens - def { borderWidth = C.border - , workspaces = C.myWorkspaces screens - , layoutHook = C.layoutHook - , terminal = C.term C.applications - , normalBorderColor = C.colorN - , focusedBorderColor = C.colorF - , modMask = C.modMask - , keys = C.keys - , mouseBindings = C.mouseBindings - , manageHook = C.manageHook - , handleEventHook = C.handleEventHook - , focusFollowsMouse = False - , clickJustFocuses = False - } - |> withUrgencyHook (borderUrgencyHook C.red1) - |> withNavigation2DConfig C.myNavigation2DConfig - |> ewmh - |> ewmhFullscreen - |> docks - |> (return :: a -> IO a) + screens <- countScreens + def { borderWidth = C.border + , workspaces = C.myWorkspaces screens + , layoutHook = C.layoutHook + , terminal = C.term C.applications + , normalBorderColor = C.colorN + , focusedBorderColor = C.colorF + , modMask = C.modMask + , keys = C.keys + , mouseBindings = C.mouseBindings + , manageHook = C.manageHook + , handleEventHook = C.handleEventHook + , focusFollowsMouse = False + , clickJustFocuses = False + } + |> withUrgencyHook (borderUrgencyHook C.red1) + |> withNavigation2DConfig C.myNavigation2DConfig + |> ewmh + |> ewmhFullscreen + |> docks + |> (return :: a -> IO a) |