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

Remove tabs from ManageHook.hs

Browse Source
This commit is contained in:
Adam Vogt
2009-07-10 01:14:24 +00:00
parent eb1e29c8bb
commit e944a6c8d3
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/ManageHook.hs
View File

@@ -74,7 +74,7 @@ title = ask >>= \w -> liftX $ do
(internAtom d "_NET_WM_NAME" False >>= getTextProperty d w) (internAtom d "_NET_WM_NAME" False >>= getTextProperty d w)
`catch` \_ -> getTextProperty d w wM_NAME `catch` \_ -> getTextProperty d w wM_NAME
extract prop = do l <- wcTextPropertyToTextList d prop extract prop = do l <- wcTextPropertyToTextList d prop
return $ if null l then "" else head l return $ if null l then "" else head l
io $ bracket getProp (xFree . tp_value) extract `catch` \_ -> return "" io $ bracket getProp (xFree . tp_value) extract `catch` \_ -> return ""
-- | Return the application name. -- | Return the application name.