diff options
author | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 03:39:09 +0200 |
---|---|---|
committer | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 03:39:09 +0200 |
commit | 6769de07f7e06ddf6eea728bd7072ebfe6eff017 (patch) | |
tree | f234bf0cac01538fbc1acab1a668ac61b9ab8074 /XMonad/Layout/DwmStyle.hs | |
parent | fe066e8e9ca5326dd146630a6d729fae51af12cf (diff) | |
download | XMonadContrib-6769de07f7e06ddf6eea728bd7072ebfe6eff017.tar.gz XMonadContrib-6769de07f7e06ddf6eea728bd7072ebfe6eff017.tar.xz XMonadContrib-6769de07f7e06ddf6eea728bd7072ebfe6eff017.zip |
use Data.Default wherever possible, and deprecate the things it replaces
Ignore-this: 898458b1d2868a70dfb09faf473dc7aa
darcs-hash:20130528013909-76d51-863278165b6f149c47b08b31b34e85ddcab19f1f.gz
Diffstat (limited to 'XMonad/Layout/DwmStyle.hs')
-rw-r--r-- | XMonad/Layout/DwmStyle.hs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/XMonad/Layout/DwmStyle.hs b/XMonad/Layout/DwmStyle.hs index 6bba823..a854d1b 100644 --- a/XMonad/Layout/DwmStyle.hs +++ b/XMonad/Layout/DwmStyle.hs @@ -17,6 +17,7 @@ module XMonad.Layout.DwmStyle -- $usage dwmStyle , Theme (..) + , def , defaultTheme , DwmStyle (..) , shrinkText, CustomShrink(CustomShrink) @@ -36,7 +37,7 @@ import XMonad.Layout.Decoration -- Then edit your @layoutHook@ by adding the DwmStyle decoration to -- your layout: -- --- > myL = dwmStyle shrinkText defaultTheme (layoutHook def) +-- > myL = dwmStyle shrinkText def (layoutHook def) -- > main = xmonad def { layoutHook = myL } -- -- For more detailed instructions on editing the layoutHook see: @@ -45,8 +46,8 @@ import XMonad.Layout.Decoration -- -- You can also edit the default configuration options. -- --- > myDWConfig = defaultTheme { inactiveBorderColor = "red" --- > , inactiveTextColor = "red"} +-- > myDWConfig = def { inactiveBorderColor = "red" +-- > , inactiveTextColor = "red"} -- -- and -- @@ -58,10 +59,8 @@ import XMonad.Layout.Decoration -- > import XMonad.Layout.DwmStyle -- > -- > main = xmonad def { --- > layoutHook = --- > dwmStyle shrinkText defaultTheme --- > (layoutHook def) --- > } +-- > layoutHook = dwmStyle shrinkText def (layoutHook def) +-- > } -- |