From 4efa95ece03e95f3bd3fed9c3927481e70d473c5 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Thu, 23 Aug 2007 15:45:20 +0000
Subject: [PATCH] remove LayoutHooks module (which is unused).

---
 LayoutHooks.hs | 44 --------------------------------------------
 MetaModule.hs  |  1 -
 2 files changed, 45 deletions(-)
 delete mode 100644 LayoutHooks.hs

diff --git a/LayoutHooks.hs b/LayoutHooks.hs
deleted file mode 100644
index 9a4a95db..00000000
--- a/LayoutHooks.hs
+++ /dev/null
@@ -1,44 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module       : XMonadContrib.LayoutHooks
--- Copyright    : (c) Stefan O'Rear <stefanor@cox.net>
--- License      : BSD
---
--- Maintainer   : Stefan O'Rear <stefanor@cox.net>
--- Stability    : unstable
--- Portability  : portable
---
--- General layout-level hooks.
------------------------------------------------------------------------------
-
-module XMonadContrib.LayoutHooks ( addLayoutMessageHook ) where
-
-import qualified Data.Map as M  ( adjust  )
-import Control.Arrow            ( first   )
-import Control.Monad.State      ( modify  )
-
-import XMonad
-import qualified StackSet as W
-
-install :: (SomeMessage -> X Bool) -> Layout a -> Layout a
-install hk lay = lay{ modifyLayout = mod' }
-  where
-    mod' msg = do reinst  <- hk msg
-                  nlay    <- modifyLayout lay msg
-
-                  return $ cond_reinst reinst nlay
-
-    -- no need to make anything change
-    cond_reinst True   Nothing      = Nothing
-    -- reinstall
-    cond_reinst True   (Just nlay)  = Just (install hk nlay)
-    -- restore inner layout
-    cond_reinst False  Nothing      = Just lay
-    -- let it rot
-    cond_reinst False  (Just nlay)  = Just nlay
-
--- Return True each time you want the hook reinstalled
-addLayoutMessageHook     :: (SomeMessage -> X Bool) -> X ()
-addLayoutMessageHook hk  = modify $ \ s ->
-    let nr = W.tag . W.workspace . W.current . windowset $ s
-      in s { layouts = M.adjust (first $ install hk) nr (layouts s) }
diff --git a/MetaModule.hs b/MetaModule.hs
index 76fdd2df..0aea48d3 100644
--- a/MetaModule.hs
+++ b/MetaModule.hs
@@ -42,7 +42,6 @@ import XMonadContrib.FocusNth ()
 import XMonadContrib.HintedTile ()
 import XMonadContrib.LayoutHelpers ()
 import XMonadContrib.LayoutHints ()
-import XMonadContrib.LayoutHooks ()
 import XMonadContrib.LayoutScreens ()
 import XMonadContrib.MagicFocus ()
 import XMonadContrib.Magnifier ()