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