{-# OPTIONS -O0 #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, TypeFamilies #-}

-- | The themes/ config format
module Lamdu.Config.Theme
    ( Help(..)
        , helpTextSize, helpTextColor, helpInputDocColor, helpBGColor, helpTint
        , helpShownIconTint, helpSrcLocColor
    , Eval(..), neighborsScaleFactor, neighborsPadding, staleResultTint
    , ToolTip(..), tooltipFgColor, tooltipBgColor
    , StatusBar(..), statusBarBGColor, statusBarHSpaces
    , Deleted(..), deletedDefTint, deletedDefDiagonalWidth, deletedUseDiagonalWidth
    , FontSel(..), fontSelWidth, fontSelStyle, fontSelSlant, fontSelWeight
        , fontSel
    , Theme(..)
        , title, fonts, sprites, baseTextSize, animationTimePeriodSec
        , animationRemainInPeriod, help, menu, searchTerm, name, eval, hover, tooltip
        , textColors, textEditCursorColor, textEditCursorWidth
        , topPadding, statusBar, deleted, maxEvalViewSize, versionControl
        , valAnnotation, indent, backgroundColor, invalidCursorOverlayColor
        , errorColor, successColor
        , letItemPadding, narrowUnderlineWidth
        , wideUnderlineWidth, valFrameBGColor, valFramePadding
        , typeFrameBGColor, stdSpacing, cursorColor, cursorDecayExponent
        , disabledColor, presentationChoiceScaleFactor, evaluatedPathBGColor
    ) where

import qualified Control.Lens as Lens
import           Data.Aeson.TH (deriveJSON)
import qualified Data.Aeson.TH.Extended as JsonTH
import qualified Data.Aeson.Types as Aeson
import           Data.Char (toLower)
import           Data.List.Lens (prefixed)
import           Data.Vector.Vector2 (Vector2)
import qualified GUI.Momentu.Hover as Hover
import qualified GUI.Momentu.Responsive.Expression as Expression
import qualified GUI.Momentu.Widgets.Menu as Menu
import qualified GUI.Momentu.Widgets.Menu.Search as SearchMenu
import qualified Graphics.DrawingCombinators as Draw
import           Lamdu.Config.Folder (HasConfigFolder(..))
import qualified Lamdu.Config.Folder as Folder
import           Lamdu.Config.Theme.Fonts (FontSize, Fonts)
import           Lamdu.Config.Theme.Name (Name(..))
import           Lamdu.Config.Theme.Sprites (Sprites)
import           Lamdu.Config.Theme.TextColors (TextColors(..))
import           Lamdu.Config.Theme.ValAnnotation (ValAnnotation(..))
import qualified Lamdu.GUI.VersionControl.Config as VersionControl
import qualified Lamdu.I18N.Fonts as I18N.Fonts

import           Lamdu.Prelude

data Help = Help
    { _helpTextSize :: FontSize
    , _helpTextColor :: Draw.Color
    , _helpInputDocColor :: Draw.Color
    , _helpBGColor :: Draw.Color
    , _helpTint :: Draw.Color
    , _helpShownIconTint :: Draw.Color
    , _helpSrcLocColor :: Maybe Draw.Color
    } deriving (Eq, Generic)
JsonTH.derivePrefixed "_help" ''Help

Lens.makeLenses ''Help

data Eval = Eval
    { _neighborsScaleFactor :: Vector2 Double
    , _neighborsPadding :: Vector2 Double
    , _staleResultTint :: Draw.Color
    } deriving (Eq, Generic)
JsonTH.derivePrefixed "_" ''Eval

Lens.makeLenses ''Eval

data ToolTip = ToolTip
    { _tooltipFgColor :: Draw.Color
    , _tooltipBgColor :: Draw.Color
    } deriving (Eq, Generic)
JsonTH.derivePrefixed "_tooltip" ''ToolTip

Lens.makeLenses ''ToolTip

data StatusBar = StatusBar
    { _statusBarBGColor :: Draw.Color
    , _statusBarHSpaces :: Double
    } deriving (Eq, Generic)
deriveJSON Aeson.defaultOptions
    { Aeson.fieldLabelModifier
        = (Lens.taking 2 traverse %~ toLower)
        . (^?! prefixed "_statusBar")
    }
    ''StatusBar

Lens.makeLenses ''StatusBar

data Deleted = Deleted
    { _deletedDefTint :: Draw.Color
    , _deletedDefDiagonalWidth :: Double
    , _deletedUseDiagonalWidth :: Double
    } deriving (Eq, Generic)
JsonTH.derivePrefixed "_deleted" ''Deleted

Lens.makeLenses ''Deleted

data FontSel = FontSel
    { _fontSelWidth  :: I18N.Fonts.ProportionalOrMonospace
    , _fontSelStyle  :: I18N.Fonts.SansOrSerif
    , _fontSelSlant  :: I18N.Fonts.RomanOrItalic
    , _fontSelWeight :: I18N.Fonts.LightOrBold
    } deriving (Eq, Generic)
JsonTH.derivePrefixed "_fontSel" ''FontSel

Lens.makeLenses ''FontSel

fontSel ::
    FontSel ->
    Lens.ALens'
    (I18N.Fonts.ProportionalAndMonospace
        (I18N.Fonts.SansAndSerif
            (I18N.Fonts.RomanAndItalic
                (I18N.Fonts.LightAndBold a)))) a
fontSel sel =
    I18N.Fonts.choice (sel ^. fontSelWidth) .
    I18N.Fonts.choice (sel ^. fontSelStyle) .
    I18N.Fonts.choice (sel ^. fontSelSlant) .
    I18N.Fonts.choice (sel ^. fontSelWeight)

data Theme = Theme
    { _title :: Map Text Text
    , _fonts :: Fonts FontSel
    , _sprites :: Sprites FilePath
    , _baseTextSize :: FontSize
    , _animationTimePeriodSec :: Double
    , _animationRemainInPeriod :: Double
    , _help :: Help
    , _menu :: Menu.Style
    , _searchTerm :: SearchMenu.TermStyle
    , _name :: Name
    , _eval :: Eval
    , _hover :: Hover.Style
    , _tooltip :: ToolTip
    , _textColors :: TextColors
    , _textEditCursorColor :: Draw.Color
    , _textEditCursorWidth :: Draw.R
    , _topPadding :: Draw.R
    , _statusBar :: StatusBar
    , _deleted :: Deleted
    , _maxEvalViewSize :: Int
    , _versionControl :: VersionControl.Theme
    , _valAnnotation :: ValAnnotation
    , _indent :: Expression.Style
    , _backgroundColor :: Draw.Color
    , _invalidCursorOverlayColor :: Draw.Color
    , _errorColor :: Draw.Color
    , _successColor :: Draw.Color
    , _letItemPadding :: Vector2 Double
    , _narrowUnderlineWidth :: Double
    , _wideUnderlineWidth :: Double
    , _valFrameBGColor :: Draw.Color
    , _valFramePadding :: Vector2 Double
    , _typeFrameBGColor :: Draw.Color
    , _stdSpacing :: Vector2 Double -- as ratio of space character size
    , _cursorColor :: Draw.Color
    , _cursorDecayExponent :: Draw.R
    , _disabledColor :: Draw.Color
    , _presentationChoiceScaleFactor :: Vector2 Double
    , _evaluatedPathBGColor :: Draw.Color
    } deriving (Eq, Generic)
JsonTH.derivePrefixed "_" ''Theme

Lens.makeLenses ''Theme

instance Has Expression.Style Theme where has = indent
instance Has Hover.Style Theme where has = hover

instance HasConfigFolder Theme where
    type Folder Theme = Folder.Theme
    configFolderName _ = "themes"