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

LayoutScreens and Square: haddock updates

Browse Source
This commit is contained in:
Brent Yorgey
2007-12-04 20:40:39 +00:00
parent 258ccb3468
commit 7296b99306
2 changed files with 11 additions and 9 deletions

11
XMonad/Layout/LayoutScreens.hs

@@ -35,10 +35,12 @@ import Graphics.X11.Xlib.Extras
-- screen and long for greater flexibility (e.g. being able to see your -- screen and long for greater flexibility (e.g. being able to see your
-- email window at all times, a crude mimic of sticky windows). -- email window at all times, a crude mimic of sticky windows).
-- --
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@ file:
-- --
-- > import XMonad.Layout.LayoutScreens -- > import XMonad.Layout.LayoutScreens
-- --
-- Then add some keybindings; for example:
--
-- > , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (TwoPane 0.5 0.5)) -- > , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (TwoPane 0.5 0.5))
-- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) -- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
-- --
@@ -51,10 +53,9 @@ import Graphics.X11.Xlib.Extras
-- > , ((modMask .|. shiftMask, xK_space), -- > , ((modMask .|. shiftMask, xK_space),
-- > layoutScreens 1 (fixedLayout [Rectangle 0 0 1024 768])) -- > layoutScreens 1 (fixedLayout [Rectangle 0 0 1024 768]))
-- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen) -- > , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
--
-- %import XMonad.Layout.LayoutScreens -- For detailed instructions on editing your key bindings, see
-- %keybind , ((modMask .|. shiftMask, xK_space), layoutScreens 2 (twoPane 0.5 0.5)) -- "XMonad.Doc.Extending#Editing_key_bindings".
-- %keybind , ((controlMask .|. modMask .|. shiftMask, xK_space), rescreen)
layoutScreens :: LayoutClass l Int => Int -> l Int -> X () layoutScreens :: LayoutClass 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."

5
XMonad/Layout/Square.hs

@@ -29,7 +29,7 @@ import Graphics.X11.Xlib
import XMonad.StackSet ( integrate ) import XMonad.StackSet ( integrate )
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@ file:
-- --
-- > import XMonad.Layout.Square -- > import XMonad.Layout.Square
-- --
@@ -40,7 +40,8 @@ import XMonad.StackSet ( integrate )
-- > [(twoPane 0.03 0.2,1),(combo [(twoPane 0.03 0.8,1),(square,1)] -- > [(twoPane 0.03 0.2,1),(combo [(twoPane 0.03 0.8,1),(square,1)]
-- > [(tabbed,3),(tabbed,30),(tabbed,1),(tabbed,1)] -- > [(tabbed,3),(tabbed,30),(tabbed,1),(tabbed,1)]
-- %import XMonad.Layout.Square -- For detailed instructions on editing your key bindings, see
-- "XMonad.Doc.Extending#Editing_key_bindings".
data Square a = Square deriving ( Read, Show ) data Square a = Square deriving ( Read, Show )