From 774dd513b776288720efdf3a407b64bae4bf56ea Mon Sep 17 00:00:00 2001 From: David Roundy Date: Thu, 23 Aug 2007 17:45:20 +0200 Subject: remove LayoutHooks module (which is unused). darcs-hash:20070823154520-72aca-d3f47bf132a88cdfa67c901f4cef0b7bd78e6f56.gz --- LayoutHooks.hs | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 LayoutHooks.hs (limited to 'LayoutHooks.hs') diff --git a/LayoutHooks.hs b/LayoutHooks.hs deleted file mode 100644 index 9a4a95d..0000000 --- a/LayoutHooks.hs +++ /dev/null @@ -1,44 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.LayoutHooks --- Copyright : (c) Stefan O'Rear --- License : BSD --- --- Maintainer : Stefan O'Rear --- 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) } -- cgit v1.2.3