twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Allow clients of NamedWindows to get at the name.

Browse Source
This commit is contained in:
glasser 2007-05-23 18:42:51 +00:00
parent a1b8a3ba79
commit 1d886ae670
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
NamedWindows.hs
View File

@ -1,4 +1,4 @@
module XMonadContrib.NamedWindows ( NamedWindow, getName, withNamedWindow, unName ) where
module XMonadContrib.NamedWindows ( NamedWindow, getName, withNamedWindow, unName, name ) where
-- This module allows you to associate the X titles of windows with
-- them. See XMonadContrib.Mosaic for an example of its use.
@ -26,6 +26,9 @@ getName w = asks display >>= \d -> do n <- maybe "" id `fmap` io (fetchName d w)
unName :: NamedWindow -> Window
unName (NW _ w) = w
name :: NamedWindow -> String
name (NW n _) = n
withNamedWindow :: (NamedWindow -> X ()) -> X ()
withNamedWindow f = do ws <- gets windowset
whenJust (W.peek ws) $ \w -> getName w >>= f