twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 06:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

remove ServerMode tabs

Browse Source
This commit is contained in:
Adam Vogt
2013-12-19 20:10:00 +00:00
parent f453a9a375
commit 78ed2e1a9e
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Hooks/ServerMode.hs
View File

@@ -164,10 +164,10 @@ serverModeEventHookF key func (ClientMessageEvent {ev_message_type = mt, ev_data
d <- asks display d <- asks display
atm <- io $ internAtom d key False atm <- io $ internAtom d key False
when (mt == atm && dt /= []) $ do when (mt == atm && dt /= []) $ do
let atom = fromIntegral $ toInteger $ foldr1 (\a b -> a + (b*2^(32::Int))) dt let atom = fromIntegral $ toInteger $ foldr1 (\a b -> a + (b*2^(32::Int))) dt
cmd <- io $ getAtomName d atom cmd <- io $ getAtomName d atom
case cmd of case cmd of
Just command -> func command Just command -> func command
Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom)) Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom))
return (All True) return (All True)
serverModeEventHookF _ _ _ = return (All True) serverModeEventHookF _ _ _ = return (All True)