diff options
| -rw-r--r-- | lib/Phi/X11.hs | 3 | ||||
| -rw-r--r-- | lib/Phi/X11/AtomList.hs | 8 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index dd75484..d272cb9 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -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) diff --git a/lib/Phi/X11/AtomList.hs b/lib/Phi/X11/AtomList.hs index 5965d69..258c89a 100644 --- a/lib/Phi/X11/AtomList.hs +++ b/lib/Phi/X11/AtomList.hs @@ -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" ] |