neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set _NET_WM_NAME atom

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-13 20:13:04 +02:00
parent 5c9c99b41c
commit 90c25a997b
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/Phi/X11.hs
View file

@ -14,6 +14,7 @@ import Graphics.Rendering.Cairo
import Control.Monad
import Data.Maybe
import Data.Bits
import Data.Char
import Control.Monad.State
import Control.Monad.Reader
@ -191,6 +192,8 @@ setPanelProperties panel = do
atoms <- asks phiAtoms
liftIO $ do
storeName disp (panelWindow panel) "Phi"
changeProperty8 disp (panelWindow panel) (atom_NET_WM_NAME atoms) (atomUTF8_STRING atoms) propModeReplace $ map (fromIntegral . ord) "Phi"
changeProperty32 disp (panelWindow panel) (atom_NET_WM_WINDOW_TYPE atoms) aTOM propModeReplace [fromIntegral (atom_NET_WM_WINDOW_TYPE_DOCK atoms)]
changeProperty32 disp (panelWindow panel) (atom_NET_WM_DESKTOP atoms) cARDINAL propModeReplace [0xFFFFFFFF]
changeProperty32 disp (panelWindow panel) (atom_NET_WM_STATE atoms) aTOM propModeReplace [ fromIntegral (atom_NET_WM_STATE_SKIP_PAGER atoms)

8
lib/Phi/X11/AtomList.hs
View file

@ -1,8 +1,8 @@
module Phi.X11.AtomList ( atoms
) where
atoms = [ "_XROOTPMAP_ID"
, "_XROOTMAP_ID"
atoms = [ "UTF8_STRING"
, "_NET_WM_NAME"
, "_NET_WM_WINDOW_TYPE"
, "_NET_WM_WINDOW_TYPE_DOCK"
, "_NET_WM_DESKTOP"
@ -11,7 +11,9 @@ atoms = [ "_XROOTPMAP_ID"
, "_NET_WM_STATE_SKIP_TASKBAR"
, "_NET_WM_STATE_STICKY"
, "_NET_WM_STATE_BELOW"
, "_MOTIF_WM_HINTS"
, "_NET_WM_STRUT"
, "_NET_WM_STRUT_PARTIAL"
, "_MOTIF_WM_HINTS"
, "_XROOTPMAP_ID"
, "_XROOTMAP_ID"
]