From a2ceae3cf6f302de2420f072238a29c9fbe8d974 Mon Sep 17 00:00:00 2001 From: Alex Tarkovsky Date: Wed, 5 Sep 2007 22:01:28 +0200 Subject: Docstring parser for generating xmonad build configs with default settings for extensions darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz --- LayoutScreens.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'LayoutScreens.hs') diff --git a/LayoutScreens.hs b/LayoutScreens.hs index 9d74189..a78a402 100644 --- a/LayoutScreens.hs +++ b/LayoutScreens.hs @@ -40,6 +40,10 @@ import Graphics.X11.Xlib.Extras -- > , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5)) -- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) +-- %import XMonadContrib.LayoutScreens +-- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5)) +-- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) + layoutScreens :: Int -> Layout Int -> X () layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens." layoutScreens nscr l = -- cgit v1.2.3