From 90c25a997bf951ea4b5c13cb95ef0dbb8105777e Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Wed, 13 Jul 2011 20:13:04 +0200
Subject: Set _NET_WM_NAME atom

---
 lib/Phi/X11.hs          | 3 +++
 lib/Phi/X11/AtomList.hs | 8 +++++---
 2 files changed, 8 insertions(+), 3 deletions(-)

(limited to 'lib')

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"
         ]
-- 
cgit v1.2.3