diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-13 20:13:04 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-13 20:13:04 +0200 |
commit | 90c25a997bf951ea4b5c13cb95ef0dbb8105777e (patch) | |
tree | 855a54901359914f8365205e6fb4e76921dac9fe /lib/Phi/X11.hs | |
parent | 5c9c99b41ce1ecfee70071ecd3b369855b72d259 (diff) | |
download | phi-90c25a997bf951ea4b5c13cb95ef0dbb8105777e.tar phi-90c25a997bf951ea4b5c13cb95ef0dbb8105777e.zip |
Set _NET_WM_NAME atom
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) |