diff options
Diffstat (limited to 'etc')
| -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 |