diff options
| -rw-r--r-- | Decoration.hs | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/Decoration.hs b/Decoration.hs index f5b614e..6a9d606 100644 --- a/Decoration.hs +++ b/Decoration.hs @@ -1,5 +1,23 @@ {-# OPTIONS -fglasgow-exts #-} -module XMonadContrib.Decoration ( newDecoration ) where +----------------------------------------------------------------------------- +-- | +-- Module : XMonadContrib.Decoration +-- Copyright : (c) David Roundy <droundy@darcs.net> +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : David Roundy <droundy@darcs.net> +-- Stability : unstable +-- Portability : unportable +-- +-- A module to be used to easily define decorations. +-- +----------------------------------------------------------------------------- + +module XMonadContrib.Decoration ( + -- * Usage + -- $usage + newDecoration + ) where import Data.Bits ( (.|.) ) import Control.Monad.Reader ( asks ) @@ -11,6 +29,10 @@ import XMonadContrib.LayoutHooks import XMonad import Operations ( UnDoLayout(UnDoLayout) ) +-- $usage +-- You can use this module for writing other extensions. +-- See, for instance, "XMonadContrib.Tabbed" + newDecoration :: Window -> Rectangle -> Int -> Pixel -> Pixel -> (Display -> Window -> GC -> X ()) -> X () -> X Window newDecoration decfor (Rectangle x y w h) th fg bg draw click = do |