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

Put screenshots inline for L.ThreeColumns and L.Roledex

Browse Source
This commit is contained in:
Adam Vogt 2009-10-12 04:26:51 +00:00
parent 3e0be7dd1b
commit a08fd578ee
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Layout/Roledex.hs
View File

@ -10,14 +10,15 @@
-- Stability : unstable -- Stability : unstable
-- Portability : unportable -- Portability : unportable
-- --
-- Screenshot : <http://www.timthelion.com/rolodex.png>
--
-- This is a completely pointless layout which acts like Microsoft's Flip 3D -- This is a completely pointless layout which acts like Microsoft's Flip 3D
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Layout.Roledex ( module XMonad.Layout.Roledex (
-- * Usage -- * Usage
-- $usage -- $usage
-- * Screenshots
-- $screenshot
Roledex(Roledex)) where Roledex(Roledex)) where
import XMonad import XMonad
@ -38,6 +39,9 @@ import Data.Ratio
-- --
-- "XMonad.Doc.Extending#Editing_the_layout_hook" -- "XMonad.Doc.Extending#Editing_the_layout_hook"
-- $screenshot
-- <<http://www.timthelion.com/rolodex.png>>
data Roledex a = Roledex deriving ( Show, Read ) data Roledex a = Roledex deriving ( Show, Read )
instance LayoutClass Roledex Window where instance LayoutClass Roledex Window where

10
XMonad/Layout/ThreeColumns.hs
View File

@ -13,14 +13,14 @@
-- A layout similar to tall but with three columns. With 2560x1600 pixels this -- A layout similar to tall but with three columns. With 2560x1600 pixels this
-- layout can be used for a huge main window and up to six reasonable sized -- layout can be used for a huge main window and up to six reasonable sized
-- slave windows. -- slave windows.
--
-- Screenshot: <http://server.c-otto.de/xmonad/ThreeColumnsMiddle.png>
--
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Layout.ThreeColumns ( module XMonad.Layout.ThreeColumns (
-- * Usage -- * Usage
-- $usage -- $usage
-- * Screenshots
-- $screenshot
ThreeCol(..) ThreeCol(..)
) where ) where
@ -55,6 +55,10 @@ import Control.Monad
-- --
-- "XMonad.Doc.Extending#Editing_the_layout_hook" -- "XMonad.Doc.Extending#Editing_the_layout_hook"
-- $screenshot
-- <<http://server.c-otto.de/xmonad/ThreeColumnsMiddle.png>>
-- | Arguments are nmaster, delta, fraction -- | Arguments are nmaster, delta, fraction
data ThreeCol a = ThreeColMid { threeColNMaster :: !Int, threeColDelta :: !Rational, threeColFrac :: !Rational} data ThreeCol a = ThreeColMid { threeColNMaster :: !Int, threeColDelta :: !Rational, threeColFrac :: !Rational}
| ThreeCol { threeColNMaster :: !Int, threeColDelta :: !Rational, threeColFrac :: !Rational} | ThreeCol { threeColNMaster :: !Int, threeColDelta :: !Rational, threeColFrac :: !Rational}