twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.H.SetWMName: Add getWMName function.

Browse Source
This commit is contained in:
sgf 2020-10-19 14:41:12 +03:00
parent 4670ec002f
commit 3a7399b56a
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
XMonad/Hooks/SetWMName.hs
View File

@ -36,7 +36,10 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Hooks.SetWMName ( module XMonad.Hooks.SetWMName (
setWMName) where setWMName
, getWMName
)
where
import Control.Monad (join) import Control.Monad (join)
import Data.Char (ord) import Data.Char (ord)
@ -68,19 +71,19 @@ setWMName name = do
supportedList <- join . maybeToList <$> getWindowProperty32 dpy atom_NET_SUPPORTED_ATOM root supportedList <- join . maybeToList <$> getWindowProperty32 dpy atom_NET_SUPPORTED_ATOM root
changeProperty32 dpy root atom_NET_SUPPORTED_ATOM aTOM propModeReplace (nub $ fromIntegral atom_NET_SUPPORTING_WM_CHECK : fromIntegral atom_NET_WM_NAME : supportedList) changeProperty32 dpy root atom_NET_SUPPORTED_ATOM aTOM propModeReplace (nub $ fromIntegral atom_NET_SUPPORTING_WM_CHECK : fromIntegral atom_NET_WM_NAME : supportedList)
where where
netSupportingWMCheckAtom :: X Atom
netSupportingWMCheckAtom = getAtom "_NET_SUPPORTING_WM_CHECK"
latin1StringToCCharList :: String -> [CChar] latin1StringToCCharList :: String -> [CChar]
latin1StringToCCharList str = map (fromIntegral . ord) str latin1StringToCCharList str = map (fromIntegral . ord) str
getSupportWindow :: X Window netSupportingWMCheckAtom :: X Atom
getSupportWindow = withDisplay $ \dpy -> do netSupportingWMCheckAtom = getAtom "_NET_SUPPORTING_WM_CHECK"
atom_NET_SUPPORTING_WM_CHECK <- netSupportingWMCheckAtom
root <- asks theRoot
supportWindow <- (listToMaybe =<<) <$> io (getWindowProperty32 dpy atom_NET_SUPPORTING_WM_CHECK root)
validateWindow (fmap fromIntegral supportWindow)
getSupportWindow :: X Window
getSupportWindow = withDisplay $ \dpy -> do
atom_NET_SUPPORTING_WM_CHECK <- netSupportingWMCheckAtom
root <- asks theRoot
supportWindow <- (listToMaybe =<<) <$> io (getWindowProperty32 dpy atom_NET_SUPPORTING_WM_CHECK root)
validateWindow (fmap fromIntegral supportWindow)
where
validateWindow :: Maybe Window -> X Window validateWindow :: Maybe Window -> X Window
validateWindow w = do validateWindow w = do
valid <- maybe (return False) isValidWindow w valid <- maybe (return False) isValidWindow w
@ -110,3 +113,8 @@ setWMName name = do
io $ mapWindow dpy window -- not sure if this is needed io $ mapWindow dpy window -- not sure if this is needed
io $ lowerWindow dpy window -- not sure if this is needed io $ lowerWindow dpy window -- not sure if this is needed
return window return window
-- | Get WM name.
getWMName :: X String
getWMName = getSupportWindow >>= runQuery title