mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-08-16 20:53:55 -07:00
.github
XMonad
Actions
AfterDrag.hs
BluetileCommands.hs
Commands.hs
ConstrainedResize.hs
CopyWindow.hs
CycleRecentWS.hs
CycleSelectedLayouts.hs
CycleWS.hs
CycleWindows.hs
CycleWorkspaceByScreen.hs
DeManage.hs
DwmPromote.hs
DynamicProjects.hs
DynamicWorkspaceGroups.hs
DynamicWorkspaceOrder.hs
DynamicWorkspaces.hs
EasyMotion.hs
FindEmptyWorkspace.hs
FlexibleManipulate.hs
FlexibleResize.hs
FloatKeys.hs
FloatSnap.hs
FocusNth.hs
GridSelect.hs
GroupNavigation.hs
KeyRemap.hs
Launcher.hs
LinkWorkspaces.hs
MessageFeedback.hs
Minimize.hs
MouseGestures.hs
MouseResize.hs
Navigation2D.hs
NoBorders.hs
OnScreen.hs
PerLayoutKeys.hs
PerWindowKeys.hs
PerWorkspaceKeys.hs
PhysicalScreens.hs
Plane.hs
Prefix.hs
Promote.hs
RandomBackground.hs
RepeatAction.hs
RotSlaves.hs
RotateSome.hs
Search.hs
ShowText.hs
Sift.hs
SimpleDate.hs
SinkAll.hs
SpawnOn.hs
Submap.hs
SwapPromote.hs
SwapWorkspaces.hs
TagWindows.hs
TiledWindowDragging.hs
TopicSpace.hs
TreeSelect.hs
UpdateFocus.hs
UpdatePointer.hs
Warp.hs
WindowBringer.hs
WindowGo.hs
WindowMenu.hs
WindowNavigation.hs
WithAll.hs
Workscreen.hs
WorkspaceCursors.hs
WorkspaceNames.hs
Config
Doc
Hooks
Layout
Prompt
Util
Doc.hs
Prelude.hs
Prompt.hs
scripts
tests
.gitignore
.hlint.yaml
.mailmap
CHANGES.md
CONTRIBUTING.md
LICENSE
NIX.md
README.md
Setup.lhs
cabal.haskell-ci
cabal.project
flake.nix
stack-master.yaml
stack.yaml
xmonad-contrib.cabal
54 lines
1.7 KiB
Haskell
54 lines
1.7 KiB
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Actions.DwmPromote
|
|
-- Description : DWM-like swap function for xmonad.
|
|
-- Copyright : (c) Miikka Koskinen 2007
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : arcatan@kapsi.fi
|
|
-- Stability : stable
|
|
-- Portability : unportable
|
|
--
|
|
-- Dwm-like swap function for xmonad.
|
|
--
|
|
-- Swaps focused window with the master window. If focus is in the
|
|
-- master, swap it with the next window in the stack. Focus stays in the
|
|
-- master.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Actions.DwmPromote (
|
|
-- * Usage
|
|
-- $usage
|
|
dwmpromote
|
|
) where
|
|
|
|
import XMonad
|
|
import XMonad.StackSet
|
|
import XMonad.Prelude
|
|
|
|
import qualified Data.List.NonEmpty as NE
|
|
|
|
-- $usage
|
|
--
|
|
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad.Actions.DwmPromote
|
|
--
|
|
-- then add a keybinding or substitute 'dwmpromote' in place of promote:
|
|
--
|
|
-- > , ((modm, xK_Return), dwmpromote)
|
|
--
|
|
-- For detailed instructions on editing your key bindings, see
|
|
-- "XMonad.Doc.Extending#Editing_key_bindings".
|
|
|
|
-- | Swap the focused window with the master window. If focus is in
|
|
-- the master, swap it with the next window in the stack. Focus
|
|
-- stays in the master.
|
|
dwmpromote :: X ()
|
|
dwmpromote = windows $ modify' $
|
|
\c -> case c of
|
|
Stack _ [] [] -> c
|
|
Stack t [] (r:rs) -> Stack r [] (t:rs)
|
|
Stack t (l:ls) rs -> Stack t [] (ys ++ y : rs) where (y :| ys) = NE.reverse (l :| ls)
|