diff options
| -rw-r--r-- | XMonad/Layout/DwmStyle.hs | 13 | ||||
| -rw-r--r-- | XMonad/Layout/WindowArranger.hs | 5 |
2 files changed, 17 insertions, 1 deletions
diff --git a/XMonad/Layout/DwmStyle.hs b/XMonad/Layout/DwmStyle.hs index a4be1f0..b6c8196 100644 --- a/XMonad/Layout/DwmStyle.hs +++ b/XMonad/Layout/DwmStyle.hs @@ -51,6 +51,19 @@ import XMonad.Layout.Decoration -- and -- -- > myL = dwmStyle shrinkText myDWConfig (layoutHook defaultConfig) +-- +-- A complete xmonad.hs file for this would therefore be: +-- +-- > import XMonad +-- > import XMonad.Layout.DwmStyle +-- > +-- > main = xmonad defaultConfig { +-- > layoutHook = +-- > dwmStyle shrinkText defaultTheme +-- > (layoutHook defaultConfig) +-- > } +-- + -- | Add simple old dwm-style decorations to windows of a layout. dwmStyle :: (Eq a, Shrinker s) => s -> Theme diff --git a/XMonad/Layout/WindowArranger.hs b/XMonad/Layout/WindowArranger.hs index 0d998b0..ae69cbf 100644 --- a/XMonad/Layout/WindowArranger.hs +++ b/XMonad/Layout/WindowArranger.hs @@ -1,5 +1,8 @@ {-# OPTIONS_GHC -fglasgow-exts #-} -- for deriving Typeable -{-# LANGUAGE PatternGuards, FlexibleInstances, MultiParamTypeClasses, TypeSynonymInstances #-} +{-# LANGUAGE PatternGuards #-} +{-# FlexibleInstancesi #-} +{-# MultiParamTypeClasses #-} +{-# TypeSynonymInstances #-} ----------------------------------------------------------------------------- -- | -- Module : XMonad.Layout.WindowArranger |