aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
authorKhudyakov Alexey <alexey.skladnoy@gmail.com>2009-02-20 19:41:37 +0100
committerKhudyakov Alexey <alexey.skladnoy@gmail.com>2009-02-20 19:41:37 +0100
commitb06481c9bbfe05b64632695e13b24447d3ce21c6 (patch)
treea067cde67d058e6f1fb4a3d5307ea9d92eaac3a0 /XMonad/Hooks
parent59ebf36d57aa64dc1ea8816243a6c6a1bb6c1281 (diff)
downloadXMonadContrib-b06481c9bbfe05b64632695e13b24447d3ce21c6.tar.gz
XMonadContrib-b06481c9bbfe05b64632695e13b24447d3ce21c6.tar.xz
XMonadContrib-b06481c9bbfe05b64632695e13b24447d3ce21c6.zip
Properly encode destop names before sending them to X server in XMonad.Hooks.EwmhDesktops
Ignore-this: 6a22ea8bdc49f8484e18f04aaeb545ae darcs-hash:20090220184137-7ba7e-e2eb4702acb468ade70e78e22b32c3137ba7214d.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r--XMonad/Hooks/EwmhDesktops.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index 00d9b89..d17c3c4 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/XMonad/Hooks/EwmhDesktops.hs
@@ -20,6 +20,7 @@ module XMonad.Hooks.EwmhDesktops (
ewmhDesktopsEventHook
) where
+import Codec.Binary.UTF8.String (encode)
import Data.List
import Data.Maybe
import Data.Monoid
@@ -175,8 +176,7 @@ setDesktopNames names = withDisplay $ \dpy -> do
r <- asks theRoot
a <- getAtom "_NET_DESKTOP_NAMES"
c <- getAtom "UTF8_STRING"
- let names' = map (fromIntegral.fromEnum) $
- concatMap (++['\0']) names
+ let names' = map fromIntegral $ concatMap ((++[0]) . encode) names
io $ changeProperty8 dpy r a c propModeReplace names'
setClientList :: [Window] -> X ()