diff options
Diffstat (limited to 'lib/Phi/X11.hs')
-rw-r--r-- | lib/Phi/X11.hs | 3 |
1 files changed, 3 insertions, 0 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) |