1 patch for repository http://code.haskell.org/XMonadContrib: patch ea0485baa42b96aadfd05c98399f007c48a20cb7 Author: Evgeny Kurnevsky Date: Tue Oct 13 23:40:47 MSK 2015 * Add layout hook for ScreenCorners. New patches: [Add layout hook for ScreenCorners. Evgeny Kurnevsky **20151013204047 Ignore-this: 963d9b366a27c736b6f214d029fc77c1 ] { hunk ./XMonad/Hooks/ScreenCorners.hs 1 -{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveDataTypeable, FlexibleInstances, MultiParamTypeClasses #-} hunk ./XMonad/Hooks/ScreenCorners.hs 5 --- Copyright : (c) 2009 Nils Schweinsberg +-- Copyright : (c) 2009 Nils Schweinsberg, 2015 Evgeny Kurnevsky hunk ./XMonad/Hooks/ScreenCorners.hs 28 + + -- * Layout hook + , screenCornerLayoutHook hunk ./XMonad/Hooks/ScreenCorners.hs 37 +import XMonad.Layout.LayoutModifier hunk ./XMonad/Hooks/ScreenCorners.hs 150 +-- Layout hook +-------------------------------------------------------------------------------- + +data ScreenCornerLayout a = ScreenCornerLayout + deriving ( Read, Show ) + +instance LayoutModifier ScreenCornerLayout a where + hook ScreenCornerLayout = withDisplay $ \dpy -> do + ScreenCornerState m <- XS.get + io $ mapM_ (raiseWindow dpy) $ M.keys m + unhook = hook + +screenCornerLayoutHook :: l a -> ModifiedLayout ScreenCornerLayout l a +screenCornerLayoutHook = ModifiedLayout ScreenCornerLayout + + +-------------------------------------------------------------------------------- hunk ./XMonad/Hooks/ScreenCorners.hs 186 +-- +-- Then add layout hook: +-- > myLayout = screenCornerLayoutHook $ tiled ||| Mirror tiled ||| Full where +-- > tiled = Tall nmaster delta ratio +-- > nmaster = 1 +-- > ratio = 1 / 2 +-- > delta = 3 / 100 } Context: [TAG 0.11 Adam Vogt **20130101014231 Ignore-this: 57cf32412fd1ce912811cb7fafe930f5 ] Patch bundle hash: 53f30abbdc624840627c31bd6030347ad0103bc7