Brandon writes:

On Wed, Jun 3, 2015 at 5:06 PM, Adam Sjøgren wrote:

...

The sakura windows automatically get a thin transparent border with XMonad, through which my desktop background image shows.

https://code.google.com/p/xmonad/issues/detail?id=581

So I tried looking into this, being a newbie at Haskell and X11 programming. What it looks like to me, from the C-code needed in dwm in the issue above, is to try and look up the normal border color and the focused border color in the colormap of the window, instead of using the values found in the default color map. Ok, so how to do this? It looks like I can just change the two lines in the windows function in Operations.hs that set the border: whenJust (W.peek old) $ \otherw -> io $ setWindowBorder d otherw nbc [...] whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc Now, nbc and fbc are Pixels that are looked up in the default color map once, so they need to be replaced with Pixels looked up in the color map of the window (otherw or w). Good, so looking at the C-code, the color map of the window is found by asking the window's attributes, and grabbing it from there, and allocNamedColor then can be called with that color map and the name of the color, getting back an XColor, from which a pixel can be extracted. But, hm, when I look at getWindowAttributes: * http://hackage.haskell.org/package/X11-1.4.0/docs/Graphics-X11-Xlib-Extras.h... it returns IO WindowAttributes, but they do not include a color map entry: * http://hackage.haskell.org/package/X11-1.4.0/docs/Graphics-X11-Xlib-Extras.h... Hm. So, this is where I got to. Any tips? Best regards, Adam -- "I'm a driver, I'm a winner, things are gonna change, Adam Sjøgren I can feel it." asjo@koldfront.dk

Adam writes:

...

it returns IO WindowAttributes, but they do not include a color map entry:

[...]

I have tried to make a pull request for adding this field now:

* https://github.com/xmonad/X11/pull/35

From testing it a couple of minutes, it works on my machine - the

It turns out that to make use of the new wa_colormap field, I need to change getWindowAttributes to throw an exception if XGetWindowAttributes() fails. So: * https://github.com/asjo/X11/commit/e5421307a02ea0cadcb381d282615d56a0e848c0 Then, to make xmonad-contrib compile, XMonad/Util/DebugWindow.hs needs adjusting: * https://github.com/asjo/xmonad-contrib/commit/e775872ac34c81e070e530a89f591e... And finally, I can change XMonad/Operations.hs to grab the color from the window's color map if available (it isn't when closing a window, so it is important to check the return value of XGetWindowAttributes() to avoid a crash - I had fun logging myself out when closing a window for a while!): * https://github.com/asjo/xmonad/commit/e7d0e004d0a1acfd1ff149eaabf274fe2519c4... ... mimicking the change done to dwm¹. transparent borders are gone from my Sakura windows, and the solid colour I configured in XMonad is used instead. Note thet especially the changes to XMonad/Operations.hs are in "try and try pounding at it again until it works"-style code, and any tips on how to write it better will be much appreciated. Best regards, Adam ¹ https://github.com/chjj/compton/issues/240#issuecomment-62245919 -- "God must've been punting angels left and right." Adam Sjøgren asjo@koldfront.dk