mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-31 20:21:51 -07:00
Hierarchify
This commit is contained in:
102
XMonad/Actions/CycleWS.hs
Normal file
102
XMonad/Actions/CycleWS.hs
Normal file
@@ -0,0 +1,102 @@
|
||||
-----------------------------------------------------------------------------
|
||||
-- |
|
||||
-- Module : XMonad.Actions.CycleWS
|
||||
-- Copyright : (c) Joachim Breitner <mail@joachim-breitner.de>,
|
||||
-- Nelson Elhage <nelhage@mit.edu> (`toggleWS' function)
|
||||
-- License : BSD3-style (see LICENSE)
|
||||
--
|
||||
-- Maintainer : Joachim Breitner <mail@joachim-breitner.de>
|
||||
-- Stability : unstable
|
||||
-- Portability : unportable
|
||||
--
|
||||
-- Provides bindings to cycle forward or backward through the list
|
||||
-- of workspaces, and to move windows there.
|
||||
--
|
||||
-----------------------------------------------------------------------------
|
||||
|
||||
module XMonad.Actions.CycleWS (
|
||||
-- * Usage
|
||||
-- $usage
|
||||
nextWS,
|
||||
prevWS,
|
||||
shiftToNext,
|
||||
shiftToPrev,
|
||||
toggleWS,
|
||||
) where
|
||||
|
||||
import Control.Monad.Reader ( asks )
|
||||
import Control.Monad.State ( gets )
|
||||
import Data.List ( sortBy, findIndex )
|
||||
import Data.Maybe ( fromMaybe )
|
||||
import Data.Ord ( comparing )
|
||||
|
||||
import XMonad hiding (workspaces)
|
||||
import qualified XMonad (workspaces)
|
||||
import XMonad.StackSet hiding (filter)
|
||||
import XMonad.Operations
|
||||
|
||||
-- $usage
|
||||
-- You can use this module with the following in your Config.hs file:
|
||||
--
|
||||
-- > import XMonad.Actions.CycleWS
|
||||
--
|
||||
-- > , ((modMask, xK_Right), nextWS)
|
||||
-- > , ((modMask, xK_Left), prevWS)
|
||||
-- > , ((modMask .|. shiftMask, xK_Right), shiftToNext)
|
||||
-- > , ((modMask .|. shiftMask, xK_Left), shiftToPrev)
|
||||
-- > , ((modMask, xK_t), toggleWS)
|
||||
--
|
||||
-- If you want to follow the moved window, you can use both actions:
|
||||
--
|
||||
-- > , ((modMask .|. shiftMask, xK_Right), shiftToNext >> nextWS)
|
||||
-- > , ((modMask .|. shiftMask, xK_Left), shiftToPrev >> prevWS)
|
||||
--
|
||||
|
||||
-- %import XMonad.Actions.CycleWS
|
||||
-- %keybind , ((modMask, xK_Right), nextWS)
|
||||
-- %keybind , ((modMask, xK_Left), prevWS)
|
||||
-- %keybind , ((modMask .|. shiftMask, xK_Right), shiftToNext)
|
||||
-- %keybind , ((modMask .|. shiftMask, xK_Left), shiftToPrev)
|
||||
-- %keybind , ((modMask, xK_t), toggleWS)
|
||||
|
||||
|
||||
-- | Switch to next workspace
|
||||
nextWS :: X ()
|
||||
nextWS = switchWorkspace 1
|
||||
|
||||
-- | Switch to previous workspace
|
||||
prevWS :: X ()
|
||||
prevWS = switchWorkspace (-1)
|
||||
|
||||
-- | Move focused window to next workspace
|
||||
shiftToNext :: X ()
|
||||
shiftToNext = shiftBy 1
|
||||
|
||||
-- | Move focused window to previous workspace
|
||||
shiftToPrev :: X ()
|
||||
shiftToPrev = shiftBy (-1)
|
||||
|
||||
-- | Toggle to the workspace displayed previously
|
||||
toggleWS :: X ()
|
||||
toggleWS = windows $ view =<< tag . head . hidden
|
||||
|
||||
switchWorkspace :: Int -> X ()
|
||||
switchWorkspace d = wsBy d >>= windows . greedyView
|
||||
|
||||
shiftBy :: Int -> X ()
|
||||
shiftBy d = wsBy d >>= windows . shift
|
||||
|
||||
wsBy :: Int -> X (WorkspaceId)
|
||||
wsBy d = do
|
||||
ws <- gets windowset
|
||||
spaces <- asks (XMonad.workspaces . config)
|
||||
let orderedWs = sortBy (comparing (wsIndex spaces)) (workspaces ws)
|
||||
let now = fromMaybe 0 $ findWsIndex (workspace (current ws)) orderedWs
|
||||
let next = orderedWs !! ((now + d) `mod` length orderedWs)
|
||||
return $ tag next
|
||||
|
||||
wsIndex :: [WorkspaceId] -> WindowSpace -> Maybe Int
|
||||
wsIndex spaces ws = findIndex (== tag ws) spaces
|
||||
|
||||
findWsIndex :: WindowSpace -> [WindowSpace] -> Maybe Int
|
||||
findWsIndex ws wss = findIndex ((== tag ws) . tag) wss
|
Reference in New Issue
Block a user