diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs index 94fb5a7..2b9baf3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -3,7 +3,7 @@ import XMonad import XMonad.Hooks.ManageDocks (docks) import System.Directory (getHomeDirectory) import System.FilePath ((</>)) -import XMonad.Hooks.EwmhDesktops (ewmhDesktopsStartup) +import XMonad.Hooks.EwmhDesktops (ewmh) import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) import XMonad.Layout.Fullscreen (fullscreenEventHook) import System.Environment (setEnv) @@ -16,6 +16,7 @@ import qualified XMonad as X import qualified XMonad.StackSet as S main = do + -- Execute some commands. homeDir <- getHomeDirectory let fp = homeDir </> ".xmonad" </> "startup" @@ -25,7 +26,7 @@ main = do xmobar <- spawnXMobar (=<<) X.xmonad $ - applyKeys $ docks $ def + applyKeys $ ewmh $ docks $ def { terminal = "alacritty" , modMask = mod3Mask , borderWidth = 2 @@ -33,9 +34,7 @@ main = do , focusedBorderColor = "#ff6c00" , normalBorderColor = "#404040" , layoutHook = myLayout - , startupHook = do - ewmhDesktopsStartup - spawn fp + , startupHook = spawn fp , manageHook = composeAll [ isFullscreen --> doFullFloat , className =? "Tilda" --> doFloat @@ -43,6 +42,8 @@ main = do , className =? "MPlayer" --> doFloat , title =? "Event Tester" --> doFloat , title =? "Floating Term" --> doFloat + , title =? "xmessage" --> doFloat + , title =? "gxmessage" --> doFloat , className =? "mpv" --> doFloat , className =? "gnubby_ssh_prompt" --> doFloat ] |