summaryrefslogtreecommitdiffstats
path: root/lib/Phi
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Phi')
-rw-r--r--lib/Phi/X11.hs3
-rw-r--r--lib/Phi/X11/AtomList.hs8
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"
]