diff options
| author | Khudyakov Alexey <alexey.skladnoy@gmail.com> | 2009-02-20 19:41:37 +0100 |
|---|---|---|
| committer | Khudyakov Alexey <alexey.skladnoy@gmail.com> | 2009-02-20 19:41:37 +0100 |
| commit | b06481c9bbfe05b64632695e13b24447d3ce21c6 (patch) | |
| tree | a067cde67d058e6f1fb4a3d5307ea9d92eaac3a0 /XMonad/Hooks | |
| parent | 59ebf36d57aa64dc1ea8816243a6c6a1bb6c1281 (diff) | |
| download | XMonadContrib-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.hs | 4 |
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 () |