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

convert LayoutScreens to class.

Browse Source
This commit is contained in:
David Roundy
2007-09-23 21:59:42 +00:00
parent f82d3dadb2
commit 6a4ed37fb0
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
LayoutScreens.hs
View File

@@ -54,7 +54,7 @@ import Graphics.X11.Xlib.Extras
-- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5)) -- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5))
-- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) -- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
layoutScreens :: Int -> Layout Int -> X () layoutScreens :: Layout l Int => Int -> l Int -> X ()
layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens." layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens."
layoutScreens nscr l = layoutScreens nscr l =
do rtrect <- asks theRoot >>= getWindowRectangle do rtrect <- asks theRoot >>= getWindowRectangle
@@ -73,6 +73,10 @@ getWindowRectangle w = withDisplay $ \d ->
return $ Rectangle (fromIntegral $ wa_x a) (fromIntegral $ wa_y a) return $ Rectangle (fromIntegral $ wa_x a) (fromIntegral $ wa_y a)
(fromIntegral $ wa_width a) (fromIntegral $ wa_height a) (fromIntegral $ wa_width a) (fromIntegral $ wa_height a)
fixedLayout :: [Rectangle] -> Layout a data FixedLayout a = FixedLayout [Rectangle] deriving (Read,Show)
fixedLayout rs = Layout { doLayout = \_ s -> return (zip (W.integrate s) rs,Nothing)
, modifyLayout = const (return Nothing) } -- no changes instance Layout FixedLayout a where
doLayout (FixedLayout rs) _ s = return (zip (W.integrate s) rs, Nothing)
fixedLayout :: [Rectangle] -> FixedLayout a
fixedLayout = FixedLayout