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 | |
| parent | 5c9c99b41ce1ecfee70071ecd3b369855b72d259 (diff) | |
| download | phi-90c25a997bf951ea4b5c13cb95ef0dbb8105777e.tar phi-90c25a997bf951ea4b5c13cb95ef0dbb8105777e.zip | |
Set _NET_WM_NAME atom
| -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" ] |