mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
b6a8069e44
Whenever possible, prefer the safe wrappers withWindowAttributes or safeGetWindowAttributes to getWindowAttributes. Places where these are not applicable are limited to layouts, where there is not good "default value" to give back in case these calls fail. In these cases, we let the exception handling of the layout mechanism handle it and fall back to the Full layout. Fixes: https://github.com/xmonad/xmonad-contrib/issues/146
55 lines
1.8 KiB
Haskell
55 lines
1.8 KiB
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Hooks.WorkspaceByPos
|
|
-- Description : Move new window to non-focused screen based on its requested geometry.
|
|
-- Copyright : (c) Jan Vornberger 2009
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : jan.vornberger@informatik.uni-oldenburg.de
|
|
-- Stability : unstable
|
|
-- Portability : not portable
|
|
--
|
|
-- Useful in a dual-head setup: Looks at the requested geometry of
|
|
-- new windows and moves them to the workspace of the non-focused
|
|
-- screen if necessary.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Hooks.WorkspaceByPos (
|
|
-- * Usage
|
|
-- $usage
|
|
workspaceByPos
|
|
) where
|
|
|
|
import XMonad
|
|
import XMonad.Prelude
|
|
import qualified XMonad.StackSet as W
|
|
|
|
import Control.Monad.Except (lift, runExceptT, throwError)
|
|
|
|
-- $usage
|
|
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad.Hooks.WorkspaceByPos
|
|
-- >
|
|
-- > myManageHook = workspaceByPos <+> manageHook def
|
|
-- >
|
|
-- > main = xmonad def { manageHook = myManageHook }
|
|
|
|
workspaceByPos :: ManageHook
|
|
workspaceByPos = (maybe idHook doShift <=< liftX . needsMoving) =<< ask
|
|
|
|
needsMoving :: Window -> X (Maybe WorkspaceId)
|
|
needsMoving w = safeGetWindowAttributes w >>= \case
|
|
Nothing -> pure Nothing
|
|
Just wa -> fmap (either (const Nothing) Just) . runExceptT $ do
|
|
-- only relocate windows with non-zero position
|
|
guard $ wa_x wa /= 0 || wa_y wa /= 0
|
|
ws <- gets windowset
|
|
sc <- lift $ fromMaybe (W.current ws)
|
|
<$> pointScreen (fi $ wa_x wa) (fi $ wa_y wa)
|
|
Just wkspc <- lift $ screenWorkspace (W.screen sc)
|
|
guard $ W.currentTag ws /= wkspc
|
|
return wkspc `asTypeOf` throwError ""
|