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 Control.Monad
import Data.Maybe import Data.Maybe
import Data.Bits import Data.Bits
import Data.Char
import Control.Monad.State import Control.Monad.State
import Control.Monad.Reader import Control.Monad.Reader
@ -191,6 +192,8 @@ setPanelProperties panel = do
atoms <- asks phiAtoms atoms <- asks phiAtoms
liftIO $ do liftIO $ do
storeName disp (panelWindow panel) "Phi" 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_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_DESKTOP atoms) cARDINAL propModeReplace [0xFFFFFFFF]
changeProperty32 disp (panelWindow panel) (atom_NET_WM_STATE atoms) aTOM propModeReplace [ fromIntegral (atom_NET_WM_STATE_SKIP_PAGER atoms) 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 module Phi.X11.AtomList ( atoms
) where ) where
atoms = [ "_XROOTPMAP_ID" atoms = [ "UTF8_STRING"
, "_XROOTMAP_ID" , "_NET_WM_NAME"
, "_NET_WM_WINDOW_TYPE" , "_NET_WM_WINDOW_TYPE"
, "_NET_WM_WINDOW_TYPE_DOCK" , "_NET_WM_WINDOW_TYPE_DOCK"
, "_NET_WM_DESKTOP" , "_NET_WM_DESKTOP"
@ -11,7 +11,9 @@ atoms = [ "_XROOTPMAP_ID"
, "_NET_WM_STATE_SKIP_TASKBAR" , "_NET_WM_STATE_SKIP_TASKBAR"
, "_NET_WM_STATE_STICKY" , "_NET_WM_STATE_STICKY"
, "_NET_WM_STATE_BELOW" , "_NET_WM_STATE_BELOW"
, "_MOTIF_WM_HINTS"
, "_NET_WM_STRUT" , "_NET_WM_STRUT"
, "_NET_WM_STRUT_PARTIAL" , "_NET_WM_STRUT_PARTIAL"
, "_MOTIF_WM_HINTS"
, "_XROOTPMAP_ID"
, "_XROOTMAP_ID"
] ]