-- Copyright 2009-2010 Corey O'Connor
module Graphics.Vty.Debug ( module Graphics.Vty.Debug
                          , module Graphics.Vty.Debug.Image
                          )
where

import Graphics.Vty.Prelude

import Graphics.Vty.Attributes
import Graphics.Vty.Debug.Image
import Graphics.Vty.Span

import qualified Data.Vector as Vector 

row_ops_effected_columns :: DisplayOps -> [Int]
row_ops_effected_columns ops 
    = Vector.toList $ Vector.map span_ops_effected_columns ops

all_spans_have_width :: DisplayOps -> Int -> Bool
all_spans_have_width ops expected
    = all (== expected) $ Vector.toList $ Vector.map span_ops_effected_columns ops

span_ops_effected_rows :: DisplayOps -> Int
span_ops_effected_rows ops
    = toEnum $ length (filter (not . null . Vector.toList) (Vector.toList ops))
        
type SpanConstructLog = [SpanConstructEvent]
data SpanConstructEvent = SpanSetAttr Attr

is_set_attr :: Attr -> SpanConstructEvent -> Bool
is_set_attr expected_attr (SpanSetAttr in_attr)
    | in_attr == expected_attr = True
is_set_attr _attr _event = False

data MockWindow = MockWindow Int Int
    deriving (Show, Eq)

region_for_window :: MockWindow -> DisplayRegion
region_for_window (MockWindow w h) = (w,h)