diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2013-12-19 21:10:00 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2013-12-19 21:10:00 +0100 |
| commit | d12c21f8bffea334882452084ead22a6aa6af4de (patch) | |
| tree | c30cd59a0ed418c376e6a0625ad67a4036355fb8 | |
| parent | 4b6e1519bccfb2d7acc904bd52985dedcbaef5b9 (diff) | |
| download | XMonadContrib-d12c21f8bffea334882452084ead22a6aa6af4de.tar.gz XMonadContrib-d12c21f8bffea334882452084ead22a6aa6af4de.tar.xz XMonadContrib-d12c21f8bffea334882452084ead22a6aa6af4de.zip | |
remove ServerMode tabs
Ignore-this: f21448c248ec0ac289c309ed964ebcff
darcs-hash:20131219201000-1499c-17d24672746258c1681235524e14064dadfe78d9.gz
| -rw-r--r-- | XMonad/Hooks/ServerMode.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs index fe8a71c..b89530e 100644 --- a/XMonad/Hooks/ServerMode.hs +++ b/XMonad/Hooks/ServerMode.hs @@ -164,10 +164,10 @@ serverModeEventHookF key func (ClientMessageEvent {ev_message_type = mt, ev_data d <- asks display atm <- io $ internAtom d key False when (mt == atm && dt /= []) $ do - let atom = fromIntegral $ toInteger $ foldr1 (\a b -> a + (b*2^(32::Int))) dt - cmd <- io $ getAtomName d atom - case cmd of - Just command -> func command - Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom)) + let atom = fromIntegral $ toInteger $ foldr1 (\a b -> a + (b*2^(32::Int))) dt + cmd <- io $ getAtomName d atom + case cmd of + Just command -> func command + Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom)) return (All True) serverModeEventHookF _ _ _ = return (All True) |