diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-06-10 14:37:46 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-06-10 14:37:46 +0200 |
| commit | c99a0d31a758ee43527e7a66c9721247ebab3f86 (patch) | |
| tree | 49cc8d66c252b916ecb7d7082d3fbbce71066984 /Operations.hs | |
| parent | 5294b3dc35bfff087cab0b13d9a32fbf62f2a96b (diff) | |
| download | metatile-c99a0d31a758ee43527e7a66c9721247ebab3f86.tar metatile-c99a0d31a758ee43527e7a66c9721247ebab3f86.zip | |
haddock compatibility
darcs-hash:20070610123746-32816-e5a1b61d81fa52f608d7936f900431bd6620c3c7
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Operations.hs b/Operations.hs index 55cc0d4..92f48b2 100644 --- a/Operations.hs +++ b/Operations.hs @@ -1,5 +1,5 @@ {-# OPTIONS -fglasgow-exts #-} --- ^^ deriving Typeable +-- \^^ deriving Typeable -- -------------------------------------------------------------------------- -- | -- Module : Operations.hs @@ -10,6 +10,8 @@ -- Stability : unstable -- Portability : not portable, Typeable deriving, mtl, posix -- +-- Operations. +-- ----------------------------------------------------------------------------- module Operations where @@ -35,9 +37,9 @@ import Graphics.X11.Xinerama (getScreenInfo) import Graphics.X11.Xlib.Extras -- --------------------------------------------------------------------- +-- | -- Window manager operations - --- | manage. Add a new window to be managed in the current workspace. +-- manage. Add a new window to be managed in the current workspace. -- Bring it into focus. -- -- Whether the window is already managed, or not, it is mapped, has its @@ -54,7 +56,7 @@ manage w = withDisplay $ \d -> do isTransient <- isJust `liftM` io (getTransientForHint d w) if isTransient then do modify $ \s -> s { windowset = W.insertUp w (windowset s) } - float w -- ^^ now go the refresh. + float w -- \^^ now go the refresh. else windows $ W.insertUp w -- | unmanage. A window no longer exists, remove it from the window @@ -447,12 +449,12 @@ withFocused f = withWindowSet $ \w -> whenJust (W.peek w) f isClient :: Window -> X Bool isClient w = withWindowSet $ return . W.member w --- | Combinations of extra modifier masks we need to grab keys/buttons for. +-- | Combinations of extra modifier masks we need to grab keys\/buttons for. -- (numlock and capslock) extraModifiers :: [KeyMask] extraModifiers = [0, numlockMask, lockMask, numlockMask .|. lockMask ] --- | Strip numlock/capslock from a mask +-- | Strip numlock\/capslock from a mask cleanMask :: KeyMask -> KeyMask cleanMask = (complement (numlockMask .|. lockMask) .&.) |