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

IndependentScreens, v0.0

Browse Source
This commit is contained in:
daniel 2009-02-21 22:52:29 +00:00
parent d6d03e84af
commit ffe5f0cf6f
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Layout/IndependentScreens.hs Normal file
View File

@ -0,0 +1,8 @@
module IndependentScreens where
marshall (S sc) ws = show sc ++ '_':ws
unmarshall = ((S . read) *** drop 1) . break (=='_')
workspaces' = nub . map (snd . unmarshall) . workspaces
withScreens n workspaces = [marshall sc ws | ws <- workspaces, sc <- [0..n-1]]
onScreen f workspace = screen . current >>= f . flip marshall workspace
countScreens = fmap genericLength $ openDisplay "" >>= getScreenInfo