From 595021f9a0b70483a7e26337bab8b2da68cd4757 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 5 Jul 2009 22:12:05 +0200 Subject: Remove trailing whitespace from many modules Ignore-this: 1e28ff0974578d329bd3d593c1a5125e darcs-hash:20090705201205-1499c-581bd0bb43ab6096eccded6edbd54a7a2007b0d9.gz --- XMonad/Layout/Monitor.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'XMonad/Layout/Monitor.hs') 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: @@ -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 -- cgit v1.2.3