diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-30 07:46:24 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-30 07:46:24 +0100 |
| commit | d3426a6b42d8ddb0eba568813c8d19815df2eb8a (patch) | |
| tree | 807247988d95b065f678b529366ff2fc0a857e6d /XMonad/Layout/SimpleFloat.hs | |
| parent | 9e2027cb16109995efc979e6c2785d346e78f8c2 (diff) | |
| download | XMonadContrib-d3426a6b42d8ddb0eba568813c8d19815df2eb8a.tar.gz XMonadContrib-d3426a6b42d8ddb0eba568813c8d19815df2eb8a.tar.xz XMonadContrib-d3426a6b42d8ddb0eba568813c8d19815df2eb8a.zip | |
Various decorations related updates
* remove deprecated TConf stuff
* Remove 'style' from DeConf
* Change DeConf to Theme
* share defaultTheme across all decorations
darcs-hash:20080130064624-a5988-98fcf49dde956e318f801e934f2045cf94c951d5.gz
Diffstat (limited to 'XMonad/Layout/SimpleFloat.hs')
| -rw-r--r-- | XMonad/Layout/SimpleFloat.hs | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/XMonad/Layout/SimpleFloat.hs b/XMonad/Layout/SimpleFloat.hs index 6fe8ebf..f9bd1a8 100644 --- a/XMonad/Layout/SimpleFloat.hs +++ b/XMonad/Layout/SimpleFloat.hs @@ -17,7 +17,7 @@ module XMonad.Layout.SimpleFloat -- $usage simpleFloat , simpleFloat' - , SimpleDecoration (..), defaultSFConfig + , SimpleDecoration (..) , shrinkText, CustomShrink(CustomShrink) , Shrinker(..) ) where @@ -46,16 +46,13 @@ import XMonad.Layout.WindowArranger -- | FIXME simpleFloat :: ModifiedLayout (Decoration SimpleDecoration DefaultShrinker) (ModifiedLayout WindowArranger SimpleFloat) a -simpleFloat = decoration shrinkText defaultSFConfig (windowArrangeAll $ SF 20) +simpleFloat = decoration shrinkText defaultTheme (Simple False) (windowArrangeAll $ SF 20) -- | FIXME -simpleFloat' :: Shrinker s => s -> DeConfig SimpleDecoration a -> +simpleFloat' :: Shrinker s => s -> Theme -> ModifiedLayout (Decoration SimpleDecoration s) (ModifiedLayout WindowArranger SimpleFloat) a -simpleFloat' s c = decoration s c (windowArrangeAll $ SF (decoHeight c)) - -defaultSFConfig :: DeConfig SimpleDecoration a -defaultSFConfig = mkDefaultDeConfig $ Simple False +simpleFloat' s c = decoration s c (Simple False) (windowArrangeAll $ SF (decoHeight c)) data SimpleFloat a = SF Dimension deriving (Show, Read) instance LayoutClass SimpleFloat Window where |