module Dodge.SelectionSections.Draw where

import Control.Lens
import Dodge.Data.Config
import Dodge.Data.SelectionList
import Dodge.Render.List
import Dodge.ScreenPos
import Picture.Base

drawSelectionSections :: SelectionSections a -> ListDisplayParams -> Configuration -> Picture
drawSelectionSections sss ldp cfig =
    translateScreenPos cfig (ldp ^. ldpPos) $
        drawListYgapScaleYoff
            (_ldpVerticalGap ldp)
            (_ldpScale ldp)
            0
            pics
            <> selSecDrawCursor 15 ldp sss
  where
    pics = foldMap _ssShownItems (_sssSections sss)