mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
b1b3c4c469
With XDG support so firmly ingrained now, it's about time we stop hard-coding the configuration path in the docs.
73 lines
2.7 KiB
Haskell
73 lines
2.7 KiB
Haskell
----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Hooks.CurrentWorkspaceOnTop
|
|
-- Description : Ensure that windows on the current workspace are on top.
|
|
-- Copyright : (c) Jan Vornberger 2009
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : jan.vornberger@informatik.uni-oldenburg.de
|
|
-- Stability : unstable
|
|
-- Portability : not portable
|
|
--
|
|
-- Ensures that the windows of the current workspace are always in front
|
|
-- of windows that are located on other visible screens. This becomes important
|
|
-- if you use decoration and drag windows from one screen to another. Using this
|
|
-- module, the dragged window will always be in front of other windows.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Hooks.CurrentWorkspaceOnTop (
|
|
-- * Usage
|
|
-- $usage
|
|
currentWorkspaceOnTop
|
|
) where
|
|
|
|
import qualified Data.List.NonEmpty as NE (nonEmpty)
|
|
import qualified Data.Map as M
|
|
import XMonad
|
|
import XMonad.Prelude (NonEmpty ((:|)), when)
|
|
import qualified XMonad.StackSet as S
|
|
import qualified XMonad.Util.ExtensibleState as XS
|
|
|
|
-- $usage
|
|
-- You can use this module with the following in your @xmonad.hs@:
|
|
--
|
|
-- > import XMonad.Hooks.CurrentWorkspaceOnTop
|
|
-- >
|
|
-- > main = xmonad $ def {
|
|
-- > ...
|
|
-- > logHook = currentWorkspaceOnTop
|
|
-- > ...
|
|
-- > }
|
|
--
|
|
|
|
newtype CWOTState = CWOTS String
|
|
|
|
instance ExtensionClass CWOTState where
|
|
initialValue = CWOTS ""
|
|
|
|
currentWorkspaceOnTop :: X ()
|
|
currentWorkspaceOnTop = withDisplay $ \d -> do
|
|
ws <- gets windowset
|
|
(CWOTS lastTag) <- XS.get
|
|
let curTag = S.tag . S.workspace . S.current $ ws
|
|
when (curTag /= lastTag) $ do
|
|
-- the following is more or less a reimplementation of what's happening in "XMonad.Operation"
|
|
let s = S.current ws
|
|
wsp = S.workspace s
|
|
viewrect = screenRect $ S.screenDetail s
|
|
tmpStack = S.stack wsp >>= S.filter (`M.notMember` S.floating ws)
|
|
(rs, ml') <- runLayout wsp { S.stack = tmpStack } viewrect
|
|
updateLayout curTag ml'
|
|
let this = S.view curTag ws
|
|
fltWins = filter (`M.member` S.floating ws) $ S.index this
|
|
wins = fltWins ++ map fst rs -- order: first all floating windows, then the order the layout returned
|
|
-- end of reimplementation
|
|
|
|
case NE.nonEmpty wins of
|
|
Nothing -> pure ()
|
|
Just (w :| ws') -> do
|
|
io $ raiseWindow d w -- raise first window of current workspace to the very top,
|
|
io $ restackWindows d (w : ws') -- then use restackWindows to let all other windows from the workspace follow
|
|
XS.put(CWOTS curTag)
|