twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-14 03:35:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

warning police

Browse Source
This commit is contained in:
Daniel Wagner
2013-05-02 01:27:00 +00:00
parent e11d97137e
commit 469ff726a4
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Layout/IndependentScreens.hs
View File

@@ -32,7 +32,7 @@ module XMonad.Layout.IndependentScreens (
import Control.Applicative((<*), liftA2) import Control.Applicative((<*), liftA2)
import Control.Arrow hiding ((|||)) import Control.Arrow hiding ((|||))
import Control.Monad import Control.Monad
import Data.List import Data.List (nub, genericLength)
import Graphics.X11.Xinerama import Graphics.X11.Xinerama
import XMonad import XMonad
import XMonad.StackSet hiding (filter, workspaces) import XMonad.StackSet hiding (filter, workspaces)
@@ -171,12 +171,12 @@ whenCurrentOn s pp = pp
return $ \xs -> case xs of return $ \xs -> case xs of
x:_ | unmarshallS (tag x) == s -> sort xs x:_ | unmarshallS (tag x) == s -> sort xs
_ -> [] _ -> []
, ppOrder = \i@(wss:rest) -> case wss of , ppOrder = \i@(wss:_) -> case wss of
"" -> ["\0"] -- we got passed no workspaces; this is the signal from ppSort that this is a boring case "" -> ["\0"] -- we got passed no workspaces; this is the signal from ppSort that this is a boring case
_ -> ppOrder pp i _ -> ppOrder pp i
, ppOutput = \s -> case s of , ppOutput = \out -> case out of
"\0" -> return () -- we got passed the signal from ppOrder that this is a boring case "\0" -> return () -- we got passed the signal from ppOrder that this is a boring case
_ -> ppOutput pp s _ -> ppOutput pp out
} }
marshallSort :: ScreenId -> ([WindowSpace] -> [WindowSpace]) -> ([WindowSpace] -> [WindowSpace]) marshallSort :: ScreenId -> ([WindowSpace] -> [WindowSpace]) -> ([WindowSpace] -> [WindowSpace])