mirror of
https://github.com/starr-dusT/dotfiles.git
synced 2025-05-19 02:46:06 -07:00
17 lines
416 B
Haskell
17 lines
416 B
Haskell
|
|
module XMonad.Util.CurrentIndex (currentIndex) where
|
|
|
|
import XMonad.StackSet
|
|
import qualified XMonad.StackSet as W
|
|
import Data.List (elemIndex)
|
|
import XMonad
|
|
import XMonad.Util.Stack
|
|
|
|
--currentIndex :: StackSet i l Window s sd -> Int
|
|
--currentIndex w =
|
|
|
|
--allWindowsInCurrentWorkspace :: W.StackSet i l a sid sd -> [a]
|
|
--allWindowsInCurrentWorkspace ws =
|
|
-- W.integrate' . W.stack . W.workspace . W.current $ ws
|
|
|