arbtt-0.11: src/Capture/OSX.hs

module Capture.OSX where

import Data
import qualified Data.MyText as T
import Control.Monad
import Control.Applicative

import Graphics.OSX.Window

setupCapture :: IO ()
setupCapture = do
        return ()

captureData :: IO CaptureData
captureData = do
        titles <- fetchWindowTitles
        foreground <- getForegroundWindow

        let winData = [ fromWDv0 (h == foreground, T.pack t, T.pack p)
                      | (h, t, p) <- titles]

        it <- fromIntegral `fmap` getIdleTime

        return $ CaptureData winData it (T.pack "")