Xmonad - ManageHookの一部としてマウスポインタを移動するにはどうすればいいですか？

Question

このサンプルが与えられた場合myManageHook。 doIgnoreの後にUpdatePointerに電話するにはどうすればよいですか？すべての試行で型の非互換性が生じました。

myManageHook = composeAll . concat $ 
    [ 
     -- IntelliJ idea Tweaks 
     -- Manage idea completion window 
     , [ appName =? "sun-awt-X11-XWindowPeer" <&&> className =? "jetbrains-idea" --> doIgnore ] 
     , [ (className ~=? "jetbrains-") <&&> (title ~=? "Changes in") --> unfloat ] 
    ] 
    where 
     unfloat = ask >>= doF . W.sink 

私の問題は、IntelliJのアイデアポップアップウィンドウが私のマウスポインタが提案ドロップボックスの上に配置されている場合入力時にフォーカスを失ったということです。そのため、このウィンドウが表示されたら、画面の上部にマウスを移動しようとしています。

UPDはアイデアhttps://youtrack.jetbrains.com/issue/IDEA-112015#comment=27-2362253

Answer 1

あなたはQuery行動にXアクションをオンにするliftXを使用することができますのための回避策との関連スレッドを発見しました。代わりに、代わりにX.A.UpdatePointerの代わりにXMonad.Actions.Warpを使用します。後者は、管理フック中に賢明に発射するにはあまりにも多くの魔法を尽くすかもしれないように見えます。とにかく、あなたはXの行動を起こす方法を見たら自分でそれを試すことができるはずです。このような

ので、banishのために、あなたが使用することができliftX：

... --> (liftX (banish UpperLeft) >> doIgnore) 

その他Xアクションが上昇し、同様にdoIgnoreを配列決定することができます。