diff options
| author | EuAndreh <eu@euandre.org> | 2023-02-28 13:22:44 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-02-28 13:22:44 -0300 |
| commit | 95e82ed1b4f6ac2e41f2f4fb99761f116ae73cd7 (patch) | |
| tree | ea285e27e0b806483315bc815e01455361a52980 | |
| parent | bin/update: Do not fail if last repository fails (diff) | |
| download | dotfiles-95e82ed1b4f6ac2e41f2f4fb99761f116ae73cd7.tar.gz dotfiles-95e82ed1b4f6ac2e41f2f4fb99761f116ae73cd7.tar.xz | |
etc/xmonad/xmonad.hs: Use EWMH fullscreen handling
| -rw-r--r-- | etc/xmonad/xmonad.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/etc/xmonad/xmonad.hs b/etc/xmonad/xmonad.hs index 0a061b2..b3a98bf 100644 --- a/etc/xmonad/xmonad.hs +++ b/etc/xmonad/xmonad.hs @@ -9,18 +9,16 @@ import XMonad.Util.Run(spawnPipe) import XMonad.Layout.ResizableTile import XMonad.Layout.ResizableTile(MirrorResize(MirrorShrink, MirrorExpand)) import XMonad.StackSet +import XMonad.Hooks.EwmhDesktops(ewmh, ewmhFullscreen) main :: IO () main = do xmproc <- spawnPipe "xmobar" xmproc <- spawnPipe "xss-lock i3lock" - xmonad $ docks $ def - -- Fullscreen handling: - -- https://stackoverflow.com/questions/20446348/xmonad-toggle-fullscreen-xmobar - { manageHook = manageDocks <+> (isFullscreen --> doFullFloat) <+> (className =? "trayer" --> doIgnore) <+> manageHook def - -- , handleEventHook = handleEventHook def <+> docksEventHook + xmonad $ ewmhFullscreen . ewmh $ docks $ def + { manageHook = manageDocks <+> manageHook def , layoutHook = myLayoutHook - , modMask = mod4Mask -- User Super instead of Alt + , modMask = mod4Mask , terminal = "st" , startupHook = myStartup } `additionalKeysP` myKeyPBindings |