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

Add more links in L.SubLayout documentation

Browse Source
This commit is contained in:
Adam Vogt 2009-10-16 15:55:18 +00:00
parent 0e2aef4deb
commit f28f32f7ed
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Layout/SubLayouts.hs
View File

@ -36,6 +36,8 @@ module XMonad.Layout.SubLayouts (
) )
where where
import XMonad.Layout.Circle () -- so haddock can find the link
import XMonad.Layout.Decoration(Decoration, DefaultShrinker) import XMonad.Layout.Decoration(Decoration, DefaultShrinker)
import XMonad.Layout.LayoutModifier(LayoutModifier(handleMess, modifyLayout, import XMonad.Layout.LayoutModifier(LayoutModifier(handleMess, modifyLayout,
redoLayout), redoLayout),
@ -111,12 +113,12 @@ import Data.Map(Map)
-- > import XMonad.Layout.SubLayouts -- > import XMonad.Layout.SubLayouts
-- > import XMonad.Layout.WindowNavigation -- > import XMonad.Layout.WindowNavigation
-- --
-- Using BoringWindows is optional and it allows you to add a keybinding to -- Using "XMonad.Layout.BoringWindows" is optional and it allows you to add a
-- skip over the non-visible windows. -- keybinding to skip over the non-visible windows.
-- --
-- > import XMonad.Layout.BoringWindows -- > import XMonad.Layout.BoringWindows
-- --
-- Then edit your @layoutHook@ by adding the subTabbed layout modifier: -- Then edit your @layoutHook@ by adding the 'subTabbed' layout modifier:
-- --
-- > myLayouts = windowNavigation $ subTabbed $ boringWindows $ -- > myLayouts = windowNavigation $ subTabbed $ boringWindows $
-- > Tall 1 (3/100) (1/2) ||| etc.. -- > Tall 1 (3/100) (1/2) ||| etc..
@ -170,7 +172,7 @@ import Data.Map(Map)
-- --
-- [@x@] The layout that determines the rectangles that the groups get. -- [@x@] The layout that determines the rectangles that the groups get.
-- --
-- Ex. The second group is Tall, the third is Circle, all others are tabbed -- Ex. The second group is 'Tall', the third is 'Circle', all others are tabbed
-- with: -- with:
-- --
-- > myLayout = addTabs shrinkText defaultTheme -- > myLayout = addTabs shrinkText defaultTheme
@ -179,7 +181,7 @@ import Data.Map(Map)
subLayout :: [Int] -> subl a -> l a -> ModifiedLayout (Sublayout subl) l a subLayout :: [Int] -> subl a -> l a -> ModifiedLayout (Sublayout subl) l a
subLayout nextLayout sl x = ModifiedLayout (Sublayout (I []) (nextLayout,sl) []) x subLayout nextLayout sl x = ModifiedLayout (Sublayout (I []) (nextLayout,sl) []) x
-- | 'subLayout' but use 'XMonad.Layout.Tabbed.addTabs' to add decorations. -- | @subTabbed@ is a use of 'subLayout' with 'addTabs' to show decorations.
subTabbed :: (Eq a, LayoutModifier (Sublayout Simplest) a, LayoutClass l a) => subTabbed :: (Eq a, LayoutModifier (Sublayout Simplest) a, LayoutClass l a) =>
l a -> ModifiedLayout (Decoration TabbedDecoration DefaultShrinker) l a -> ModifiedLayout (Decoration TabbedDecoration DefaultShrinker)
(ModifiedLayout (Sublayout Simplest) l) a (ModifiedLayout (Sublayout Simplest) l) a