diff options
| author | mail <mail@joachim-breitner.de> | 2007-12-27 20:01:13 +0100 |
|---|---|---|
| committer | mail <mail@joachim-breitner.de> | 2007-12-27 20:01:13 +0100 |
| commit | 9c22dc4860dba0498cdc3143db56d8faf27bd0fe (patch) | |
| tree | 7a99a89713b79e0a3ef58b3599d65eb42ab16a38 | |
| parent | 5ec14af63aa33027efb643e6a832a579b983fc11 (diff) | |
| download | XMonadContrib-9c22dc4860dba0498cdc3143db56d8faf27bd0fe.tar.gz XMonadContrib-9c22dc4860dba0498cdc3143db56d8faf27bd0fe.tar.xz XMonadContrib-9c22dc4860dba0498cdc3143db56d8faf27bd0fe.zip | |
Although I do not need the curr variable after all, this is nicer
darcs-hash:20071227190113-c9905-048611490504d14ba845350be9e9d56ccabc1284.gz
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index c6fd3a2..f831589 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -61,10 +61,9 @@ ewmhDesktopsLogHook = withWindowSet $ \s -> do setDesktopNames (map W.tag ws) -- Current desktop - fromMaybe (return ()) $ do - n <- W.lookupWorkspace 0 s - i <- elemIndex n $ map W.tag ws - return $ setCurrentDesktop i + let curr = fromJust $ elemIndex (W.tag (W.workspace (W.current s))) $ map W.tag ws + + setCurrentDesktop curr setClientList wins |