diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 11:45:59 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 11:45:59 +0100 |
| commit | cc96523f7ab3d82572f91816359bc256683568dd (patch) | |
| tree | c209517a9ef9c5b98d4263ff5946f21b8ca30dfa /XMonad/Hooks/EwmhDesktops.hs | |
| parent | 656c004bd143fd354667f8f1d2e8786d5cbb4b96 (diff) | |
| download | XMonadContrib-cc96523f7ab3d82572f91816359bc256683568dd.tar.gz XMonadContrib-cc96523f7ab3d82572f91816359bc256683568dd.tar.xz XMonadContrib-cc96523f7ab3d82572f91816359bc256683568dd.zip | |
EwmhDesktops: drop 'Workspace' from displayed workspace names
darcs-hash:20071222104559-a5988-47a910e983723343afcd83a64da60efb4b69afdc.gz
Diffstat (limited to 'XMonad/Hooks/EwmhDesktops.hs')
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index 34bec81..fba4060 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -97,7 +97,7 @@ setDesktopNames names = withDisplay $ \dpy -> do a <- getAtom "_NET_DESKTOP_NAMES" c <- getAtom "UTF8_STRING" let names' = map (fromIntegral.fromEnum) $ - concatMap (("Workspace "++) . (++['\0'])) names + concatMap ((++['\0'])) names io $ changeProperty8 dpy r a c propModeReplace names' setClientList :: [Window] -> X () |