diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 11:43:04 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-10 11:43:04 +0100 |
| commit | 273410553233b840e2223eaa924300599dce4255 (patch) | |
| tree | 1f54d36ce3a2e2e527ced9f1ccba34e74e5effea /XMonad/Layout/Decoration.hs | |
| parent | 5b062a3334a278b120865e41180278dd5218c891 (diff) | |
| download | XMonadContrib-273410553233b840e2223eaa924300599dce4255.tar.gz XMonadContrib-273410553233b840e2223eaa924300599dce4255.tar.xz XMonadContrib-273410553233b840e2223eaa924300599dce4255.zip | |
Move DefaultDecoration from DecorationMadness to Decoration
darcs-hash:20080210104304-32816-9d239fd9c63a1c7d295ad376cefc2d7259446ce8.gz
Diffstat (limited to 'XMonad/Layout/Decoration.hs')
| -rw-r--r-- | XMonad/Layout/Decoration.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs index 72051fe..7cf8acf 100644 --- a/XMonad/Layout/Decoration.hs +++ b/XMonad/Layout/Decoration.hs @@ -20,6 +20,7 @@ module XMonad.Layout.Decoration -- $usage decoration , Decoration + , DefaultDecoration (..) , DecorationStyle (..) , DecorationMsg (..) , Theme (..), defaultTheme @@ -129,6 +130,9 @@ class (Read (ds a), Show (ds a)) => DecorationStyle ds a where -> W.Stack a -> [(a,Rectangle)] -> (a,Rectangle) -> X (Maybe Rectangle) decorate ds w h r s ars ar = return $ pureDecoration ds w h r s ars ar +data DefaultDecoration a = DefaultDecoration deriving ( Read, Show ) +instance DecorationStyle DefaultDecoration a + instance (DecorationStyle ds Window, Shrinker s) => LayoutModifier (Decoration ds s) Window where redoLayout (Decoration st sh t ds) sc stack wrs | decorate_first = do whenIJust st releaseResources |