stdin

stdin

import XMonad
import XMonad.Config.Xfce
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.EZConfig

main = xmonad $ ewmh xfceConfig {
        terminal = "xfce4-terminal",
	handleEventHook = handleEventHook xfceConfig <+> fullscreenEventHook,
	layoutHook = smartBorders $ layoutHook xfceConfig,
	manageHook = myManageHook <+> manageHook xfceConfig
    } `additionalKeys`
    [ ((mod1Mask, xK_b     ), sendMessage ToggleStruts) ]

myManageHook = composeAll
                [ manageDocks
                , isFullscreen --> doFullFloat
                , (composeAll (map floatCenter miscFloatCenter))
                , className =? "Wrapper-1.0" --> doFloat
                , resource =? "IcedTea-Web Control Panel" --> doFloat
                , resource =? "Java Control Panel" --> doFloat
                , resource =? "Policy Tool" --> doFloat
		]

floatCenter s = (className =? s --> doCenterFloat)
miscFloatCenter = [ "7zFM"
                  , "Arandr"
                  , "Avahi-discover"
                  , "bssh"
                  , "bvnc"
                  , "File-roller"
                  , "Gigolo"
                  , "Ghb"
                  , "Manjaro Welcome"
                  , "manjaro-settings-manager-gui"
                  , "Ristretto"
                  , "Unetbootin"
                  , "Xfce4-about"
                  , "Xfce4-accessibility-settings"
                  , "Xfce4-appearance-settings"
                  , "Xfce4-display-settings"
                  , "Xfce4-keyboard-settings"
                  , "Xfce4-mime-settings"
                  , "Xfce4-mouse-settings"
                  , "Xfce4-notifyd-config"
                  , "Xfce4-session-settings"
                  , "Xfce4-taskmanager"
                  , "Xfce4-settings-manager"
                  , "Zenity"]