From 065c1c1ce99572278b083edd5aabaf10baa1b0c2 Mon Sep 17 00:00:00 2001
From: Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>
Date: Mon, 12 Oct 2009 00:05:12 +0200
Subject: NoFrillsDecoration - most basic version of decoration for windows

Ignore-this: accda53da08f37d6b4091d1c6e17e2c1

darcs-hash:20091011220512-594c5-e42409c3dfba829e6e0ece6f00f1f887b4d9a027.gz
---
 XMonad/Layout/NoFrillsDecoration.hs | 48 +++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 XMonad/Layout/NoFrillsDecoration.hs

(limited to 'XMonad/Layout/NoFrillsDecoration.hs')

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"
-- 
cgit v1.2.3