twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/TreeSelect.hs
View File

@ -317,7 +317,9 @@ treeselectAt conf@TSConfig{..} zipper hist = withDisplay $ \display -> do
set_colormap attributes colormap set_colormap attributes colormap
set_background_pixel attributes ts_background set_background_pixel attributes ts_background
set_border_pixel attributes 0 set_border_pixel attributes 0
createWindow display rootw rect_x rect_y rect_width rect_height 0 (visualInfo_depth vinfo) inputOutput (visualInfo_visual vinfo) (cWColormap .|. cWBorderPixel .|. cWBackPixel) attributes w <- createWindow display rootw rect_x rect_y rect_width rect_height 0 (visualInfo_depth vinfo) inputOutput (visualInfo_visual vinfo) (cWColormap .|. cWBorderPixel .|. cWBackPixel) attributes
setClassHint display w (ClassHint "xmonad-tree_select" "xmonad")
pure w
liftIO $ do liftIO $ do
-- TODO: move below? -- TODO: move below?

8
XMonad/Layout/Decoration.hs
View File

@ -377,8 +377,12 @@ createDecos t ds sc s wrs ((w,r):xs) = do
createDecos _ _ _ _ _ [] = return [] createDecos _ _ _ _ _ [] = return []
createDecoWindow :: Theme -> Rectangle -> X Window createDecoWindow :: Theme -> Rectangle -> X Window
createDecoWindow t r = let mask = Just (exposureMask .|. buttonPressMask) in createDecoWindow t r = do
createNewWindow r mask (inactiveColor t) True let mask = Just (exposureMask .|. buttonPressMask)
w <- createNewWindow r mask (inactiveColor t) True
d <- asks display
io $ setClassHint d w (ClassHint "xmonad-decoration" "xmonad")
pure w
showDecos :: [DecoWin] -> X () showDecos :: [DecoWin] -> X ()
showDecos = showWindows . catMaybes . map fst . filter (isJust . snd) showDecos = showWindows . catMaybes . map fst . filter (isJust . snd)

7
XMonad/Prompt.hs
View File

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