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

MessageControl: rm trailing whitespace

Browse Source
This commit is contained in:
gwern0
2010-03-14 21:00:38 +00:00
parent 796b775d5c
commit cf0c3194de
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/MessageControl.hs
View File

@@ -41,7 +41,7 @@ import Control.Arrow (second)
-- > import XMonad.Layout.MessageEscape -- > import XMonad.Layout.MessageEscape
-- --
-- Then, if you use a modified layout where the modifier would intercept -- Then, if you use a modified layout where the modifier would intercept
-- a message, but you'd want to be able to send it to the inner layout -- a message, but you'd want to be able to send it to the inner layout
-- only, add the 'unEscape' modifier to the inner layout like so: -- only, add the 'unEscape' modifier to the inner layout like so:
-- --
-- > import XMonad.Layout.Master (mastered) -- > import XMonad.Layout.Master (mastered)
@@ -60,7 +60,7 @@ import Control.Arrow (second)
-- layout, use the 'ignore' modifier: -- layout, use the 'ignore' modifier:
-- --
-- > myLayout = Tall ||| (ignore NextLayout $ ignore (JumpToLayout "") $ -- > myLayout = Tall ||| (ignore NextLayout $ ignore (JumpToLayout "") $
-- > unEscape $ mastered 0.01 0.5 -- > unEscape $ mastered 0.01 0.5
-- > $ Full ||| simpleTabbed) -- > $ Full ||| simpleTabbed)
-- --
-- /IMPORTANT NOTE:/ The standard '(|||)' operator from "XMonad.Layout" -- /IMPORTANT NOTE:/ The standard '(|||)' operator from "XMonad.Layout"
@@ -121,6 +121,6 @@ unEscape l = ModifiedLayout UE l
-- | Applies the Ignore layout modifier to a layout, blocking -- | Applies the Ignore layout modifier to a layout, blocking
-- all messages of the same type as the one passed as its first argument. -- all messages of the same type as the one passed as its first argument.
ignore :: (Message m, LayoutClass l w) ignore :: (Message m, LayoutClass l w)
=> m -> l w -> (Ignore m l w) => m -> l w -> (Ignore m l w)
ignore _ l = I l ignore _ l = I l