diff options
| -rw-r--r-- | ConstrainedResize.hs | 54 | ||||
| -rw-r--r-- | MetaModule.hs | 1 |
2 files changed, 55 insertions, 0 deletions
diff --git a/ConstrainedResize.hs b/ConstrainedResize.hs new file mode 100644 index 0000000..7a553aa --- /dev/null +++ b/ConstrainedResize.hs @@ -0,0 +1,54 @@ +----------------------------------------------------------------------------- +-- | +-- Module : XMonadContrib.ConstrainedResize +-- Copyright : (c) Dougal Stanton +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : <dougal@dougalstanton.net> +-- Stability : unstable +-- Portability : unportable +-- +-- Lets you constrain the aspect ratio of a floating +-- window by holding shift while you resize. +-- +-- Useful for making a nice circular XClock window. +-- +----------------------------------------------------------------------------- + +module XMonadContrib.ConstrainedResize ( + -- * Usage + -- $usage + XMonadContrib.ConstrainedResize.mouseResizeWindow +) where + +import XMonad +import Operations +import Graphics.X11.Xlib +import Graphics.X11.Xlib.Extras + +-- $usage +-- Put something like this in your Config.hs file: +-- +-- > import qualified XMonadContrib.ConstrainedResize as Sqr +-- > mouseBindings = M.fromList +-- > [ ... +-- > , ((modMask, button3), (\w -> focus w >> Sqr.mouseResizeWindow w False)) +-- > , ((modMask .|. shiftMask, button3), (\w -> focus w >> Sqr.mouseResizeWindow w True )) ] + +-- %import qualified XMonadContrib.ConstrainedResize as Sqr +-- %mousebind , ((modMask, button3), (\\w -> focus w >> Sqr.mouseResizeWindow w False)) + +-- | Resize (floating) window with optional aspect ratio constraints. +mouseResizeWindow :: Window -> Bool -> X () +mouseResizeWindow w c = whenX (isClient w) $ withDisplay $ \d -> do + io $ raiseWindow d w + wa <- io $ getWindowAttributes d w + sh <- io $ getWMNormalHints d w + io $ warpPointer d none w 0 0 0 0 (fromIntegral (wa_width wa)) (fromIntegral (wa_height wa)) + mouseDrag (\ex ey -> do + let x = ex - fromIntegral (wa_x wa) + y = ey - fromIntegral (wa_y wa) + sz = if c then (max x y, max x y) else (x,y) + io $ resizeWindow d w `uncurry` + applySizeHints sh sz) + (float w) diff --git a/MetaModule.hs b/MetaModule.hs index 80e222f..11dd411 100644 --- a/MetaModule.hs +++ b/MetaModule.hs @@ -24,6 +24,7 @@ import XMonadContrib.Anneal () import XMonadContrib.Circle () import XMonadContrib.Commands () import XMonadContrib.Combo () -- broken under ghc head +import XMonadContrib.ConstrainedResize import XMonadContrib.CopyWindow () import XMonadContrib.CycleWS () import XMonadContrib.DeManage () |