diff options
Diffstat (limited to 'NamedWindows.hs')
| -rw-r--r-- | NamedWindows.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/NamedWindows.hs b/NamedWindows.hs index d807a0c..790fe1a 100644 --- a/NamedWindows.hs +++ b/NamedWindows.hs @@ -28,7 +28,7 @@ import Control.Monad.State ( gets ) import qualified StackSet as W ( peek ) import Graphics.X11.Xlib -import Graphics.X11.Xlib.Extras ( fetchName ) +import Graphics.X11.Xlib.Extras import XMonad @@ -45,7 +45,8 @@ instance Show NamedWindow where show (NW n _) = n getName :: Window -> X NamedWindow -getName w = asks display >>= \d -> do n <- maybe "" id `fmap` io (fetchName d w) +getName w = asks display >>= \d -> do s <- io $ getClassHint d w + n <- maybe (resName s) id `fmap` io (fetchName d w) return $ NW n w unName :: NamedWindow -> Window |