와인크래시X모나드

아치에 xmonad를 설정했지만 wine을 통해 .exe 파일을 실행하면 xmonad가 응답을 멈춥니다. (여전히 응용 프로그램을 입력하고 상호 작용할 수 있지만 창을 전환하거나 dmenu를 열 수는 없습니다.) xmonad의 FAQ를 살펴봤지만 unclutter를 사용하지 않고 파이프 문제를 해결한 것 같습니다.

이것은 내 xmonad.hs입니다.

import XMonad
import XMonad.ManageHook
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.FadeInactive
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.Run
import XMonad.Util.EZConfig
import XMonad.Layout.Monitor
import XMonad.Layout.NoBorders(smartBorders)
import Graphics.X11.ExtraTypes.XF86
import System.IO
import Data.Default

main = xmonad  =<< statusBar "xmobar" barPP toggleStrutsKey myConfig
toggleStrutsKey XConfig {XMonad.modMask = mm} = (mm,xK_b)
barPP = xmobarPP
        { ppOutput = (\_ -> return ())
        , ppTitle = xmobarColor "white" "" . shorten 5
        }
myXmonadBar = "xmobar /home/iam/.xmobarrc"
myTerm = "urxvt"
myWorkspaces =
  [ "1:Main"
  , "2:Alt"
  , "3:Music"
  , "4:Chat"
  , "5:Web"
  , "6:Code"
  ]
myConfig = ewmh def
    { manageHook = (isFullscreen --> doFullFloat) <+> manageDocks <+> manageHook'
    , handleEventHook =  handleEventHook def <+> fullscreenEventHook
    , workspaces = myWorkspaces
    , layoutHook = smartBorders $ avoidStruts $ layoutHook def
    , modMask = mod4Mask
    , terminal = myTerm
    , normalBorderColor = "#1F034E"
    , focusedBorderColor = "#958500"
    } `additionalKeys`
    [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
    , ((0, xF86XK_AudioLowerVolume), spawn "amixer set Master 2%- unmute")
    , ((0, xF86XK_AudioRaiseVolume), spawn "amixer set Master 2%+ unmute")
    , ((0, xF86XK_AudioMute), spawn "amixer set Master toggle")
    ]

manageHook' :: ManageHook
manageHook' = composeAll . concat $
              [ [className =? "Vivaldi-stable" --> doShift "5:Web"]
              --, [className =? c --> doShift "4:Term" | c <- terminals]
              , [className =? "Emacs" --> doShift "6:Code"]
              , [className =? music --> doShift "3:Music" | music <- ["Rhythmbox"]]
              --, [resource =? r --> doIgnore | r <- myIgnores]
              ]
  where
    terminals = [ "urxvt"
                , "gnome-terminal"
                , "terminator"
                , "xterm"
                ]
    myIgnores = [ "desktop"
                , "desktop_window"
                , "trayer"
                ]
    browsers = [ "Vivaldi-stable"
               , "Firefox"
               ]