twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Updates to work with recent API changes

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-11 18:34:39 +00:00
parent e8e8457e4c
commit fca67d33d7
8 changed files with 22 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
TwoPane.hs
View File

@@ -13,9 +13,10 @@ import qualified StackSet as W
import Control.Monad.State (gets)
twoPane :: Rational -> Rational -> Layout
twoPane delta split = Layout { doLayout = arrange, modifyLayout = message }
twoPane delta split = Layout { doLayout = \r -> arrange r . W.integrate, modifyLayout = message }
where
arrange rect ws@(w:x:_) = do
-- TODO this is buggy, it might peek another workspace
(Just f) <- gets (W.peek . windowset) -- safe because of pattern match above
let y = if f == w then x else f
(left, right) = splitHorizontallyBy split rect