0

私のconfig.hsでは、モニターを使用して、次のようにすべてのウィンドウの上にwmclockmonを表示します。

myClckMonitor = monitor
    { prop = ClassName "DockApp" `And` Title "wmclockmon"
    , rect = Rectangle (1680 - 64) 0 64 64
    , persistent = False
    , name = "clock"
    }
myNewLayout = ModifiedLayout myClckMonitor $ smartBorders $ avoidStruts $ myLayout ||| noBorders Full

さらに、manageHookの無視に追加しました。

私が今やりたいのは、モニターにカーソルを合わせる（マウスオーバーする）ときにモニターを非表示にすることです（もちろん、その領域を離れるときにモニターを再度表示します）。それを達成するためのヒントはありますか？

4

1 に答える 1

1

ついに手に入れました！

私のxmonad.hsの対応する部分:

import Data.IORef
import XMonad.Layout.Monitor

myClckMonitor = monitor
    { prop = ClassName "DockApp" `And` Title "wmclockmon"
    , rect = Rectangle (1680 - 64) 0 64 64
    , persistent = False
    , name = "clock"
    }

screenRectEventHook :: Event -> X All
screenRectEventHook CrossingEvent { ev_window = win } = do
    dpy <- asks display
    root <- asks theRoot
    (posX, posY, acc) <- io $ do
        -- queryPointer :: Display -> Window -> IO (Bool, Window, Window, Int, Int, Int, Int, Modifier)
        --    interface to the X11 library function XQueryPointer().
        (_, _, _, ix, iy, _, _, _) <- queryPointer dpy root
        r <- newIORef Nothing
        return (fromIntegral ix, fromIntegral iy, r)

    if (posY < 64 && posX > (1680 - 64))
        then do
            broadcastMessage HideMonitor >> refresh
            return (All True)
        else do
            broadcastMessage ShowMonitor >> refresh
            return (All True)
screenRectEventHook _ = return (All True)

次に、イベント フックを登録します。

myEventHook e = do
    screenRectEventHook e
    return (All True)

ご覧のとおり、私のモニターの座標はハードコードされています! 時計を再表示する方法に関する質問はまだ未解決です。ただし、ワークスペースまたは別のウィンドウに切り替えると、再び表示されます。私にはそれで十分です。

于 2011-11-17T02:24:25.907 に答える