113 lines
2.7 KiB
Haskell
113 lines
2.7 KiB
Haskell
{-# LANGUAGE StrictData #-}
|
|
--{-# LANGUAGE DeriveGeneric #-}
|
|
--{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.SelectionList where
|
|
|
|
import Dodge.Data.DoubleTree
|
|
import Color
|
|
import Control.Lens
|
|
import Data.IntMap.Strict (IntMap)
|
|
import Dodge.Data.CardinalPoint
|
|
import Dodge.Data.ScreenPos
|
|
import Picture.Data
|
|
|
|
--import Data.Aeson
|
|
--import Data.Aeson.TH
|
|
|
|
data ListDisplayParams = ListDisplayParams
|
|
{ _ldpPos :: ScreenPos
|
|
, _ldpScale :: Float
|
|
, _ldpVerticalGap :: Float
|
|
, _ldpCursorSides :: [CardinalPoint]
|
|
, _ldpWidth :: SelectionWidth
|
|
}
|
|
|
|
data SelectionList a = SelectionList
|
|
{ _slItems :: [SelectionItem a]
|
|
, _slSelPos :: Maybe Int
|
|
, _slRegex :: String
|
|
, _slRegexInput :: Bool
|
|
, _slRegexList :: [(SelectionItem a, Maybe Int)]
|
|
}
|
|
|
|
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
data SelectionSections a = SelectionSections
|
|
{ _sssSections :: IntMap (SelectionSection a)
|
|
, _sssExtra :: SSSExtra
|
|
}
|
|
|
|
-- note that filters are arbitrary: the sssFilters point to the lower of
|
|
-- a pair of ints (i,i+1) such that the lower is the regex section, the higher
|
|
-- is the items section.
|
|
data SSSExtra = SSSExtra
|
|
{ _sssSelPos :: Maybe (Int, Int)
|
|
, _sssFilters :: IntMap (Maybe String)
|
|
}
|
|
|
|
data SectionCursor = SectionCursor
|
|
{ _scurPos :: Int
|
|
, _scurSize :: Int
|
|
, _scurColor :: Color
|
|
}
|
|
|
|
data SelectionSection a = SelectionSection
|
|
{ _ssItems :: IntMap (SelectionItem a)
|
|
, _ssCursor :: Maybe SectionCursor
|
|
, _ssMinSize :: Int
|
|
, _ssOffset :: Int
|
|
, _ssShownItems :: [Picture]
|
|
, _ssIndent :: Int
|
|
, _ssDescriptor :: String
|
|
}
|
|
|
|
|
SelectionTreeSection
|
|
{ _stsItems :: DoubleTree (SelectionItem a)
|
|
, _ssCursor :: Maybe SectionCursor
|
|
, _ssMinSize :: Int
|
|
, _ssOffset :: Int
|
|
, _ssShownItems :: [Picture]
|
|
, _ssIndent :: Int
|
|
, _ssDescriptor :: String
|
|
}
|
|
|
|
|
|
data SelectionWidth
|
|
= FixedSelectionWidth Int
|
|
| VariableSelectionWidth (Int -> Int)
|
|
| UseMaxSelectionItemWidth
|
|
|
|
data CursorType
|
|
= NoCursor
|
|
| BorderCursor [CardinalPoint]
|
|
|
|
data SelectionItem a
|
|
= SelectionItem
|
|
{ _siPictures :: [String]
|
|
, _siHeight :: Int
|
|
, _siIsSelectable :: Bool
|
|
, _siColor :: Color
|
|
, _siOffX :: Int
|
|
, _siPayload :: a
|
|
}
|
|
| SelectionInfo
|
|
{ _siPictures :: [String]
|
|
, _siHeight :: Int
|
|
, _siIsSelectable :: Bool
|
|
, _siColor :: Color
|
|
, _siOffX :: Int
|
|
}
|
|
|
|
makeLenses ''ListDisplayParams
|
|
makeLenses ''SelectionList
|
|
makeLenses ''SelectionItem
|
|
makeLenses ''SelectionSection
|
|
makeLenses ''SelectionSections
|
|
makeLenses ''SSSExtra
|
|
makeLenses ''SectionCursor
|
|
|
|
--deriveJSON defaultOptions ''SelectionItem
|
|
--deriveJSON defaultOptions ''SelectionList
|