mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-31 20:21:51 -07:00
41d6ac96d5
Users may not see the warning that insertPosition definitely needs to be inserted at the leftmost position, which can cause undesired behaviour. Having a combinator that handles this automatically seems like a sane idea. Fixes: https://github.com/xmonad/xmonad-contrib/issues/709 (Note that `docs` wasn't changed since it already inserts itself rightmost.)
87 lines
3.3 KiB
Haskell
87 lines
3.3 KiB
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Hooks.InsertPosition
|
|
-- Description : Configure where new windows should be added and how focus should shift.
|
|
-- Copyright : (c) 2009 Adam Vogt
|
|
-- License : BSD-style (see xmonad/LICENSE)
|
|
--
|
|
-- Maintainer : vogt.adam@gmail.com
|
|
-- Stability : unstable
|
|
-- Portability : portable
|
|
--
|
|
-- Configure where new windows should be added and which window should be
|
|
-- focused.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Hooks.InsertPosition (
|
|
-- * Usage
|
|
-- $usage
|
|
setupInsertPosition, insertPosition
|
|
,Focus(..), Position(..)
|
|
) where
|
|
|
|
import XMonad (ManageHook, MonadReader (ask), XConfig (manageHook))
|
|
import XMonad.Prelude (Endo (Endo), find)
|
|
import qualified XMonad.StackSet as W
|
|
|
|
-- $usage
|
|
-- You can use this module by importing it in your @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad.Hooks.InsertPosition
|
|
--
|
|
-- You then just have to add 'setupInsertPosition' to your @main@ function:
|
|
--
|
|
-- > main = xmonad $ … $ setupInsertPosition Master Newer $ def { … }
|
|
--
|
|
-- Alternatively (i.e., you should /not/ do this if you already have set
|
|
-- up the above combinator), you can also directly insert
|
|
-- 'insertPosition' into your manageHook:
|
|
--
|
|
-- > xmonad def { manageHook = insertPosition Master Newer <> myManageHook }
|
|
--
|
|
-- NOTE: You should you put the manageHooks that use 'doShift' to take effect
|
|
-- /before/ 'insertPosition', so that the window order will be consistent.
|
|
-- Because ManageHooks compose from right to left (like function composition
|
|
-- '.'), this means that 'insertPosition' should be the leftmost ManageHook.
|
|
|
|
data Position = Master | End | Above | Below
|
|
data Focus = Newer | Older
|
|
|
|
-- | A combinator for setting up 'insertPosition'.
|
|
setupInsertPosition :: Position -> Focus -> XConfig a -> XConfig a
|
|
setupInsertPosition pos foc cfg =
|
|
cfg{ manageHook = insertPosition pos foc <> manageHook cfg }
|
|
|
|
-- | insertPosition. A manage hook for placing new windows. XMonad's default is
|
|
-- the same as using: @insertPosition Above Newer@.
|
|
insertPosition :: Position -> Focus -> ManageHook
|
|
insertPosition pos foc = Endo . g <$> ask
|
|
where
|
|
g w = viewingWs w (updateFocus w . ins w . W.delete' w)
|
|
ins w = (\f ws -> maybe id W.focusWindow (W.peek ws) $ f ws) $
|
|
case pos of
|
|
Master -> W.insertUp w . W.focusMaster
|
|
End -> insertDown w . W.modify' focusLast'
|
|
Above -> W.insertUp w
|
|
Below -> insertDown w
|
|
updateFocus =
|
|
case foc of
|
|
Older -> const id
|
|
Newer -> W.focusWindow
|
|
|
|
-- | Modify the StackSet when the workspace containing w is focused
|
|
viewingWs :: (Eq a, Eq s, Eq i, Show i) =>a-> (W.StackSet i l a s sd -> W.StackSet i l a s sd)-> W.StackSet i l a s sd-> W.StackSet i l a s sd
|
|
viewingWs w f = do
|
|
i <- W.tag . W.workspace . W.current
|
|
ws <- find (elem w . W.integrate' . W.stack) . W.workspaces
|
|
maybe id (fmap (W.view i . f) . W.view . W.tag) ws
|
|
|
|
-- | 'insertDown' and 'focusLast' belong in XMonad.StackSet?
|
|
insertDown :: (Eq a) => a -> W.StackSet i l a s sd -> W.StackSet i l a s sd
|
|
insertDown w = W.swapDown . W.insertUp w
|
|
|
|
focusLast' :: W.Stack a -> W.Stack a
|
|
focusLast' st = let ws = W.integrate st
|
|
in W.Stack (last ws) (tail $ reverse ws) []
|