Haskell xmonad布局与IM保持相同大小

我对xmonad和xmonad.Layout.IM模块有问题。 我的布局有以下配置，无论我如何更改“withIM”参数，窗口始终保持相同大小

配置：

   38 import XMonad.Layout.IM
   39 import XMonad.Layout.Grid
   40 import XMonad.Layout.FixedColumn
   41 import XMonad.Layout.Reflect
   42 import XMonad.Layout.ThreeColumns
   43 import Data.Ratio ((%))

更新： 这是带有“（1%7）”的xwininfo的输出：

---

即使将参数更改为其他参数，输出仍然保持不变。

我也遇到了同样的问题，解决方案非常简单。

---

更改rational参数（例如1%7或3%7，…）后，您需要重新启动pc（或会话）并使其正常工作。

“该窗口”-哪个窗口？聊天窗口。在命令行上运行此命令，然后单击该窗口后，您是否可以使用

xwininfo

显示的输出修改此问题？

   62 sPx = 1
   63
   64 verticalLayout = spacing sPx $ avoidStruts $ reflectHoriz $ Tall 1 0.03 0.5
   65 verticalLayoutLargeScreen = spacing sPx $ avoidStruts $ ThreeCol 1 0.03 0.5
   66 horizontalLayout = spacing sPx $ avoidStruts $ Mirror $ Tall 1 0.03 0.5
   67 webdevLayout = spacing sPx $ avoidStruts $ Tall 1 0.03 0.63
   68 fullscreenLayout = noBorders $ fullscreenFull $ Full
   69
   70 myLayout =
   71     onWorkspace "2:web" (webdevLayout ||| fullscreenLayout) $ reflectHoriz $
   72                     (withIM (1%7) (ClassName "Chat")
   73                     (verticalLayoutLargeScreen ||| Grid ||| Full |||
   74                     verticalLayout ||| horizontalLayout ||| fullscreenLayout))

xwininfo: Window id: 0x1400006 "Profanity"

Absolute upper-left X:  3360
Absolute upper-left Y:  0
Relative upper-left X:  3360
Relative upper-left Y:  0
Width: 232
Height: 1042
Depth: 32
Visual: 0x7a
Visual Class: TrueColor
Border width: 4
Class: InputOutput
Colormap: 0x1400005 (not installed)
Bit Gravity State: NorthWestGravity
Window Gravity State: NorthWestGravity
Backing Store State: NotUseful
Save Under State: no
Map State: IsViewable
Override Redirect State: no
Corners:  +3360+0  -0+0  -0-30  +3360-30
-geometry 32x74-0+0