twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 04:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Set WM_CLASS for created windows

Browse Source 
Set the WM_CLASS property for long-living windows that need it.  This
helps users to properly match on these windows for certain tasks.

Fixes:
  - https://github.com/xmonad/xmonad-contrib/issues/526
  - https://github.com/xmonad/xmonad-contrib/issues/369
This commit is contained in:
slotThe
2021-05-15 15:19:34 +02:00
parent f4673d611b
commit fd5d8267d2
3 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Prompt.hs
View File

@@ -558,7 +558,7 @@ mkXPromptImplementation historyKey conf om = do
fs <- initXMF (font conf)
st' <- io $
bracket
(createWin d rw conf s)
(createPromptWin d rw conf s)
(destroyWindow d)
(\w ->
bracket
@@ -1395,8 +1395,8 @@ redrawWindows c = do
l -> redrawComplWin l
io $ sync d False
createWin :: Display -> Window -> XPConfig -> Rectangle -> IO Window
createWin d rw c s = do
createPromptWin :: Display -> Window -> XPConfig -> Rectangle -> IO Window
createPromptWin d rw c s = do
let (x,y) = case position c of
Top -> (0,0)
Bottom -> (0, rect_height s - height c)
@@ -1406,6 +1406,7 @@ createWin d rw c s = do
_ -> rect_width s
w <- mkUnmanagedWindow d (defaultScreenOfDisplay d) rw
(rect_x s + x) (rect_y s + fi y) width (height c)
setClassHint d w (ClassHint "xmonad-prompt" "xmonad")
mapWindow d w
return w