diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
commit | 4866f2e367dfcf22a9591231ba40948826a1b438 (patch) | |
tree | 7a245caee3f146826b267d773b7eaa80386a818e /NamedWindows.hs | |
parent | 47589e1913fb9530481caedb543978a30d4323ea (diff) | |
download | XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.gz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.xz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.zip |
Hierarchify
darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
Diffstat (limited to 'NamedWindows.hs')
-rw-r--r-- | NamedWindows.hs | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/NamedWindows.hs b/NamedWindows.hs deleted file mode 100644 index 9237255..0000000 --- a/NamedWindows.hs +++ /dev/null @@ -1,57 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.NamedWindows --- Copyright : (c) David Roundy <droundy@darcs.net> --- License : BSD3-style (see LICENSE) --- --- Maintainer : David Roundy <droundy@darcs.net> --- Stability : unstable --- Portability : unportable --- --- This module allows you to associate the X titles of windows with --- them. --- ------------------------------------------------------------------------------ - -module XMonadContrib.NamedWindows ( - -- * Usage - -- $usage - NamedWindow, - getName, - withNamedWindow, - unName - ) where - -import Control.Monad.Reader ( asks ) -import Control.Monad.State ( gets ) - -import qualified XMonad.StackSet as W ( peek ) - -import Graphics.X11.Xlib -import Graphics.X11.Xlib.Extras - -import XMonad - --- $usage --- See "XMonadContrib.Mosaic" for an example of its use. - - -data NamedWindow = NW !String !Window -instance Eq NamedWindow where - (NW s _) == (NW s' _) = s == s' -instance Ord NamedWindow where - compare (NW s _) (NW s' _) = compare s s' -instance Show NamedWindow where - show (NW n _) = n - -getName :: Window -> X NamedWindow -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 -unName (NW _ w) = w - -withNamedWindow :: (NamedWindow -> X ()) -> X () -withNamedWindow f = do ws <- gets windowset - whenJust (W.peek ws) $ \w -> getName w >>= f |