aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--XMonad/Layout/NoFrillsDecoration.hs48
-rw-r--r--xmonad-contrib.cabal1
2 files changed, 49 insertions, 0 deletions
diff --git a/XMonad/Layout/NoFrillsDecoration.hs b/XMonad/Layout/NoFrillsDecoration.hs
new file mode 100644
index 0000000..0101b23
--- /dev/null
+++ b/XMonad/Layout/NoFrillsDecoration.hs
@@ -0,0 +1,48 @@
+{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
+----------------------------------------------------------------------------
+-- |
+-- Module : XMonad.Layout.NoFrillsDecoration
+-- Copyright : (c) Jan Vornberger 2009
+-- License : BSD3-style (see LICENSE)
+--
+-- Maintainer : jan.vornberger@informatik.uni-oldenburg.de
+-- Stability : unstable
+-- Portability : not portable
+--
+-- Most basic version of decoration for windows without any additional
+-- modifications. In contrast to "XMonad.Layout.SimpleDecoration" this will
+-- result in title bars that span the entire window instead of being only the
+-- length of the window title.
+--
+-----------------------------------------------------------------------------
+
+module XMonad.Layout.NoFrillsDecoration
+ ( -- * Usage:
+ -- $usage
+ noFrillsDeco
+ ) where
+
+import XMonad.Layout.Decoration
+
+-- $usage
+-- You can use this module with the following in your
+-- @~\/.xmonad\/xmonad.hs@:
+--
+-- > import XMonad.Layout.NoFrillsDecoration
+--
+-- Then edit your @layoutHook@ by adding the NoFrillsDecoration to
+-- your layout:
+--
+-- > myL = noFrillsDeco shrinkText defaultTheme (layoutHook defaultConfig)
+-- > main = xmonad defaultConfig { layoutHook = myL }
+--
+
+-- | Add very simple decorations to windows of a layout.
+noFrillsDeco :: (Eq a, Shrinker s) => s -> Theme
+ -> l a -> ModifiedLayout (Decoration NoFrillsDecoration s) l a
+noFrillsDeco s c = decoration s c $ NFD True
+
+data NoFrillsDecoration a = NFD Bool deriving (Show, Read)
+
+instance Eq a => DecorationStyle NoFrillsDecoration a where
+ describeDeco _ = "NoFrillsDeco"
diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal
index cebc348..c816156 100644
--- a/xmonad-contrib.cabal
+++ b/xmonad-contrib.cabal
@@ -175,6 +175,7 @@ library
XMonad.Layout.MultiToggle.Instances
XMonad.Layout.Named
XMonad.Layout.NoBorders
+ XMonad.Layout.NoFrillsDecoration
XMonad.Layout.OneBig
XMonad.Layout.PerWorkspace
XMonad.Layout.Reflect