diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 22:12:05 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-05 22:12:05 +0200 |
commit | 595021f9a0b70483a7e26337bab8b2da68cd4757 (patch) | |
tree | 3800d5ee909f007a77205f5484a732d12a988675 /XMonad/Layout/Monitor.hs | |
parent | 29c6f55759fc8a080c7dddf7094ec0e3a896df39 (diff) | |
download | XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.tar.gz XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.tar.xz XMonadContrib-595021f9a0b70483a7e26337bab8b2da68cd4757.zip |
Remove trailing whitespace from many modules
Ignore-this: 1e28ff0974578d329bd3d593c1a5125e
darcs-hash:20090705201205-1499c-581bd0bb43ab6096eccded6edbd54a7a2007b0d9.gz
Diffstat (limited to 'XMonad/Layout/Monitor.hs')
-rw-r--r-- | XMonad/Layout/Monitor.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/XMonad/Layout/Monitor.hs b/XMonad/Layout/Monitor.hs index f5d7de9..5d13830 100644 --- a/XMonad/Layout/Monitor.hs +++ b/XMonad/Layout/Monitor.hs @@ -47,14 +47,14 @@ import Control.Monad -- and 'rect' should be set here. Also consider setting 'persistent' to True. -- -- Minimal example: --- +-- -- > myMonitor = monitor -- > { prop = ClassName "SomeClass" -- > , rect = Rectangle 0 0 40 20 -- rectangle 40x20 in upper left corner --- > } +-- > } -- -- More interesting example: --- +-- -- > clock = monitor { -- > -- Cairo-clock creates 2 windows with the same classname, thus also using title -- > prop = ClassName "Cairo-clock" `And` Title "MacSlow's Cairo-Clock" @@ -71,19 +71,19 @@ import Control.Monad -- > } -- -- Add ManageHook to de-manage monitor windows and apply opacity settings. --- +-- -- > manageHook = myManageHook <+> manageMonitor clock --- +-- -- Apply layout modifier. --- +-- -- > myLayouts = ModifiedLayout clock $ tall ||| Full ||| ... --- +-- -- After that, if there exists a window with specified properties, it will be -- displayed on top of all /tiled/ (not floated) windows on specified -- position. -- -- It's also useful to add some keybinding to toggle monitor visibility: --- +-- -- > , ((mod1Mask, xK_u ), broadcastMessage ToggleMonitor >> refresh) -- -- Screenshot: <http://www.haskell.org/haskellwiki/Image:Xmonad-clock.png> @@ -145,7 +145,7 @@ instance LayoutModifier Monitor Window where if name mon == n then Just $ mon { visible = False } else Nothing | Just Hide <- fromMessage mess = do unless (persistent mon) $ withMonitor (prop mon) () hide; return Nothing | otherwise = return Nothing - + -- | ManageHook which demanages monitor window and applies opacity settings. manageMonitor :: Monitor a -> ManageHook manageMonitor mon = propertyToQuery (prop mon) --> do |