TestStates.hs

{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-type-defaults #-}
module Potato.Flow.TestStates (
  folderStart
  , folderEnd
  , someSEltLabel
  , someSCanvas
  , defaultCanvasLBox
  , someOwlItem
  , pFState_to_owlPFState
  , owlPFState_fromSElts
  , owlpfstate_someValidState1
  , owlpfstate_someInvalidState1
  , owlpfstate_someInvalidState2
  , owlpfstate_basic0
  , owlpfstate_basic1
  , controllermeta_basic1_lockandhidestuff1
  , controllermeta_basic2_expandEverything
  , owlpfstate_basic2
  , owlpfstate_attachments1
  , owlpfstate_attachments2
  , owlpfstate_zero
  , owlpfstate_newProject
) where

import           Relude

import           Potato.Flow
import           Potato.Flow.Deprecated.TestStates
import           Potato.Flow.Deprecated.State

import qualified Data.IntMap as IM

someOwlItem :: OwlItem
someOwlItem = OwlItem (OwlInfo "some elt") OwlSubItemNone


makeLayerMeta :: Bool -> Bool -> Bool -> LayerMeta
makeLayerMeta isLocked isHidden isCollapsed = LayerMeta {
    _layerMeta_isLocked      = isLocked
    , _layerMeta_isHidden    = isHidden
    , _layerMeta_isCollapsed = isCollapsed
  }

pFState_to_owlPFState :: PFState -> OwlPFState
pFState_to_owlPFState pfs@PFState {..} = OwlPFState {
  _owlPFState_owlTree = owlTree_fromSEltTree . _sPotatoFlow_sEltTree . pFState_to_sPotatoFlow $ pfs
  , _owlPFState_canvas    = _pFState_canvas
}

owlPFState_fromSElts :: [SElt] -> LBox -> OwlPFState
owlPFState_fromSElts selts lbox = pFState_to_owlPFState $ pFState_fromSElts selts lbox

owlpfstate_someValidState1 :: OwlPFState
owlpfstate_someValidState1 = pFState_to_owlPFState pfstate_someValidState1

owlpfstate_someInvalidState1 :: OwlPFState
owlpfstate_someInvalidState1 = pFState_to_owlPFState pfstate_someInvalidState1

owlpfstate_someInvalidState2 :: OwlPFState
owlpfstate_someInvalidState2 = pFState_to_owlPFState pfstate_someInvalidState2

owlpfstate_basic0 :: OwlPFState
owlpfstate_basic0 = pFState_to_owlPFState pfstate_basic0

owlpfstate_basic1 :: OwlPFState
owlpfstate_basic1 = pFState_to_owlPFState pfstate_basic1

controllermeta_basic1_lockandhidestuff1 :: ControllerMeta
controllermeta_basic1_lockandhidestuff1 = ControllerMeta {
    _controllerMeta_pan = 0
    , _controllerMeta_layers = IM.fromList [
        (0, makeLayerMeta True False False) -- b1  is locked
        , (2, makeLayerMeta False True False) -- b3 is hidden
      ]
  }

-- | same as owlpfstate_basic1 except with folders
owlpfstate_basic2 :: OwlPFState
owlpfstate_basic2 = pFState_to_owlPFState pfstate_basic2


controllermeta_basic2_expandEverything :: ControllerMeta
controllermeta_basic2_expandEverything = ControllerMeta {
    _controllerMeta_pan = 0
    , _controllerMeta_layers = IM.fromList [
        (0, makeLayerMeta False False False) -- fstart1 is expanded
        , (1, makeLayerMeta False False False) -- fstart2 is expanded
        , (7, makeLayerMeta False False False) -- fstart3 is expanded
      ]
  }

owlpfstate_attachments1 :: OwlPFState
owlpfstate_attachments1 = pFState_to_owlPFState pfstate_attachments1

owlpfstate_attachments2 :: OwlPFState
owlpfstate_attachments2 = pFState_to_owlPFState pfstate_attachments2

-- contains SElts of size 0
owlpfstate_zero :: OwlPFState
owlpfstate_zero = pFState_to_owlPFState pfstate_zero

owlpfstate_newProject :: OwlPFState
owlpfstate_newProject =  OwlPFState {
    _owlPFState_owlTree = emptyOwlTree
    , _owlPFState_canvas    = SCanvas (LBox 0 (V2 50 20))
  }