diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs index 507bd43..f1938a6 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -2,7 +2,9 @@ import Control.Monad.Reader ( MonadReader (ask), ReaderT (runReaderT), ) +import Data.List (isPrefixOf) import Data.Monoid (Endo (Endo)) +import qualified Rahm.Desktop.BorderColors import Rahm.Desktop.Common ( Location (Location), getCurrentWorkspace, @@ -45,6 +47,7 @@ import XMonad terminal, workspaces ), + XState (dragging), appName, className, composeAll, @@ -53,11 +56,14 @@ import XMonad floatLocation, liftX, mod3Mask, + modify, + mouseDrag, + refresh, spawn, title, withWindowSet, (-->), - (=?), mouseDrag, refresh, modify, XState (dragging), + (=?), ) import qualified XMonad as X (xmonad) import XMonad.Hooks.DynamicProperty (dynamicTitle) @@ -65,8 +71,6 @@ import XMonad.Hooks.EwmhDesktops (ewmh) import XMonad.Hooks.ManageDocks (docks) import XMonad.Hooks.ManageHelpers (doFullFloat, isFullscreen) import XMonad.Layout.Fullscreen (fullscreenEventHook) -import Data.List (isPrefixOf) -import Rahm.Desktop.Keys.Wml (wmlLogHook) main = do logHook <- xMobarLogHook @@ -83,8 +87,13 @@ main = do (=<<) X.xmonad $ applyKeys $ - withStackChangeHook historyHook $ - ewmh $ + withStackChangeHook + ( mconcat + [ historyHook, + Rahm.Desktop.BorderColors.stackChangeHook + ] + ) + $ ewmh $ docks $ def { terminal = "alacritty", @@ -129,7 +138,7 @@ main = do ], focusFollowsMouse = False, clickJustFocuses = False, - logHook = wmlLogHook >> logHook xmobar + logHook = logHook xmobar } -- Should the chrome window float? Returns false if the window's title starts |