{-|
Module      : Monomer.Core.Themes.BaseTheme
Copyright   : (c) 2018 Francisco Vallarino
License     : BSD-3-Clause (see the LICENSE file)
Maintainer  : fjvallarino@gmail.com
Stability   : experimental
Portability : non-portable

Provides a base theme, with fixed sizes and padding but configurable colors.
-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}

module Monomer.Core.Themes.BaseTheme (
  BaseThemeColors(..),
  baseTheme
) where

import Control.Lens ((&), (.~), (?~), non)
import Data.Default

import Monomer.Core.Combinators
import Monomer.Core.Style
import Monomer.Graphics.Types

import qualified Monomer.Core.Lens as L
import qualified Monomer.Graphics.Lens as L

-- | Creates a theme using the provided colors.
baseTheme :: BaseThemeColors -> Theme
baseTheme :: BaseThemeColors -> Theme
baseTheme BaseThemeColors
themeMod = Theme {
  _themeClearColor :: Color
_themeClearColor = BaseThemeColors -> Color
clearColor BaseThemeColors
themeMod,
  _themeSectionColor :: Color
_themeSectionColor = BaseThemeColors -> Color
sectionColor BaseThemeColors
themeMod,
  _themeUserColorMap :: Map String Color
_themeUserColorMap = Map String Color
forall a. Default a => a
def,
  _themeBasic :: ThemeState
_themeBasic = BaseThemeColors -> ThemeState
baseBasic BaseThemeColors
themeMod,
  _themeHover :: ThemeState
_themeHover = BaseThemeColors -> ThemeState
baseHover BaseThemeColors
themeMod,
  _themeFocus :: ThemeState
_themeFocus = BaseThemeColors -> ThemeState
baseFocus BaseThemeColors
themeMod,
  _themeFocusHover :: ThemeState
_themeFocusHover = BaseThemeColors -> ThemeState
baseFocusHover BaseThemeColors
themeMod,
  _themeActive :: ThemeState
_themeActive = BaseThemeColors -> ThemeState
baseActive BaseThemeColors
themeMod,
  _themeDisabled :: ThemeState
_themeDisabled = BaseThemeColors -> ThemeState
baseDisabled BaseThemeColors
themeMod
}

-- | Customizable colors for the theme.
data BaseThemeColors = BaseThemeColors {
  BaseThemeColors -> Color
clearColor :: Color,
  BaseThemeColors -> Color
sectionColor :: Color,
  BaseThemeColors -> Color
btnFocusBorder :: Color,
  BaseThemeColors -> Color
btnBgBasic :: Color,
  BaseThemeColors -> Color
btnBgHover :: Color,
  BaseThemeColors -> Color
btnBgFocus :: Color,
  BaseThemeColors -> Color
btnBgActive :: Color,
  BaseThemeColors -> Color
btnBgDisabled :: Color,
  BaseThemeColors -> Color
btnText :: Color,
  BaseThemeColors -> Color
btnTextDisabled :: Color,
  BaseThemeColors -> Color
btnMainFocusBorder :: Color,
  BaseThemeColors -> Color
btnMainBgBasic :: Color,
  BaseThemeColors -> Color
btnMainBgHover :: Color,
  BaseThemeColors -> Color
btnMainBgFocus :: Color,
  BaseThemeColors -> Color
btnMainBgActive :: Color,
  BaseThemeColors -> Color
btnMainBgDisabled :: Color,
  BaseThemeColors -> Color
btnMainText :: Color,
  BaseThemeColors -> Color
btnMainTextDisabled :: Color,
  BaseThemeColors -> Color
dialogBg :: Color,
  BaseThemeColors -> Color
dialogBorder :: Color,
  BaseThemeColors -> Color
dialogText :: Color,
  BaseThemeColors -> Color
dialogTitleText :: Color,
  BaseThemeColors -> Color
emptyOverlay :: Color,
  BaseThemeColors -> Color
shadow :: Color,
  BaseThemeColors -> Color
externalLinkBasic :: Color,
  BaseThemeColors -> Color
externalLinkHover :: Color,
  BaseThemeColors -> Color
externalLinkFocus :: Color,
  BaseThemeColors -> Color
externalLinkActive :: Color,
  BaseThemeColors -> Color
externalLinkDisabled :: Color,
  BaseThemeColors -> Color
iconFg :: Color,
  BaseThemeColors -> Color
iconBg :: Color,
  BaseThemeColors -> Color
inputIconFg :: Color,
  BaseThemeColors -> Color
inputBorder :: Color,
  BaseThemeColors -> Color
inputFocusBorder :: Color,
  BaseThemeColors -> Color
inputBgBasic :: Color,
  BaseThemeColors -> Color
inputBgHover :: Color,
  BaseThemeColors -> Color
inputBgFocus :: Color,
  BaseThemeColors -> Color
inputBgActive :: Color,
  BaseThemeColors -> Color
inputBgDisabled :: Color,
  BaseThemeColors -> Color
inputFgBasic :: Color,
  BaseThemeColors -> Color
inputFgHover :: Color,
  BaseThemeColors -> Color
inputFgFocus :: Color,
  BaseThemeColors -> Color
inputFgActive :: Color,
  BaseThemeColors -> Color
inputFgDisabled :: Color,
  BaseThemeColors -> Color
inputSndBasic :: Color,
  BaseThemeColors -> Color
inputSndHover :: Color,
  BaseThemeColors -> Color
inputSndFocus :: Color,
  BaseThemeColors -> Color
inputSndActive :: Color,
  BaseThemeColors -> Color
inputSndDisabled :: Color,
  BaseThemeColors -> Color
inputHlBasic :: Color,
  BaseThemeColors -> Color
inputHlHover :: Color,
  BaseThemeColors -> Color
inputHlFocus :: Color,
  BaseThemeColors -> Color
inputHlActive :: Color,
  BaseThemeColors -> Color
inputHlDisabled :: Color,
  BaseThemeColors -> Color
inputSelBasic :: Color,
  BaseThemeColors -> Color
inputSelFocus :: Color,
  BaseThemeColors -> Color
inputText :: Color,
  BaseThemeColors -> Color
inputTextDisabled :: Color,
  BaseThemeColors -> Color
labelText :: Color,
  BaseThemeColors -> Color
scrollBarBasic :: Color,
  BaseThemeColors -> Color
scrollThumbBasic :: Color,
  BaseThemeColors -> Color
scrollBarHover :: Color,
  BaseThemeColors -> Color
scrollThumbHover :: Color,
  BaseThemeColors -> Color
slMainBg :: Color,
  BaseThemeColors -> Color
slNormalBgBasic :: Color,
  BaseThemeColors -> Color
slNormalBgHover :: Color,
  BaseThemeColors -> Color
slNormalText :: Color,
  BaseThemeColors -> Color
slNormalFocusBorder :: Color,
  BaseThemeColors -> Color
slSelectedBgBasic :: Color,
  BaseThemeColors -> Color
slSelectedBgHover :: Color,
  BaseThemeColors -> Color
slSelectedText :: Color,
  BaseThemeColors -> Color
slSelectedFocusBorder :: Color,
  BaseThemeColors -> Color
tooltipBorder :: Color,
  BaseThemeColors -> Color
tooltipBg :: Color,
  BaseThemeColors -> Color
tooltipText :: Color
} deriving (BaseThemeColors -> BaseThemeColors -> Bool
(BaseThemeColors -> BaseThemeColors -> Bool)
-> (BaseThemeColors -> BaseThemeColors -> Bool)
-> Eq BaseThemeColors
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BaseThemeColors -> BaseThemeColors -> Bool
== :: BaseThemeColors -> BaseThemeColors -> Bool
$c/= :: BaseThemeColors -> BaseThemeColors -> Bool
/= :: BaseThemeColors -> BaseThemeColors -> Bool
Eq, Int -> BaseThemeColors -> ShowS
[BaseThemeColors] -> ShowS
BaseThemeColors -> String
(Int -> BaseThemeColors -> ShowS)
-> (BaseThemeColors -> String)
-> ([BaseThemeColors] -> ShowS)
-> Show BaseThemeColors
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BaseThemeColors -> ShowS
showsPrec :: Int -> BaseThemeColors -> ShowS
$cshow :: BaseThemeColors -> String
show :: BaseThemeColors -> String
$cshowList :: [BaseThemeColors] -> ShowS
showList :: [BaseThemeColors] -> ShowS
Show)

btnBorderFocus :: BaseThemeColors -> Border
btnBorderFocus :: BaseThemeColors -> Border
btnBorderFocus BaseThemeColors
themeMod = Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnFocusBorder BaseThemeColors
themeMod)

btnMainBorderFocus :: BaseThemeColors -> Border
btnMainBorderFocus :: BaseThemeColors -> Border
btnMainBorderFocus BaseThemeColors
themeMod = Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainFocusBorder BaseThemeColors
themeMod)

inputBorderFocus :: BaseThemeColors -> Border
inputBorderFocus :: BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod = Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
inputFocusBorder BaseThemeColors
themeMod)

normalFont :: TextStyle
normalFont :: TextStyle
normalFont = TextStyle
forall a. Default a => a
def
  TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Font -> Identity (Maybe Font))
-> TextStyle -> Identity TextStyle
forall s a. HasFont s a => Lens' s a
Lens' TextStyle (Maybe Font)
L.font ((Maybe Font -> Identity (Maybe Font))
 -> TextStyle -> Identity TextStyle)
-> Font -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Text -> Font
Font Text
"Regular"
  TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe FontSize -> Identity (Maybe FontSize))
-> TextStyle -> Identity TextStyle
forall s a. HasFontSize s a => Lens' s a
Lens' TextStyle (Maybe FontSize)
L.fontSize ((Maybe FontSize -> Identity (Maybe FontSize))
 -> TextStyle -> Identity TextStyle)
-> FontSize -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> FontSize
FontSize Double
16
  TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe FontSpace -> Identity (Maybe FontSpace))
-> TextStyle -> Identity TextStyle
forall s a. HasFontSpaceV s a => Lens' s a
Lens' TextStyle (Maybe FontSpace)
L.fontSpaceV ((Maybe FontSpace -> Identity (Maybe FontSpace))
 -> TextStyle -> Identity TextStyle)
-> FontSpace -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> FontSpace
FontSpace Double
2

titleFont :: TextStyle
titleFont :: TextStyle
titleFont = TextStyle
forall a. Default a => a
def
  TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Font -> Identity (Maybe Font))
-> TextStyle -> Identity TextStyle
forall s a. HasFont s a => Lens' s a
Lens' TextStyle (Maybe Font)
L.font ((Maybe Font -> Identity (Maybe Font))
 -> TextStyle -> Identity TextStyle)
-> Font -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Text -> Font
Font Text
"Bold"
  TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe FontSize -> Identity (Maybe FontSize))
-> TextStyle -> Identity TextStyle
forall s a. HasFontSize s a => Lens' s a
Lens' TextStyle (Maybe FontSize)
L.fontSize ((Maybe FontSize -> Identity (Maybe FontSize))
 -> TextStyle -> Identity TextStyle)
-> FontSize -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> FontSize
FontSize Double
20
  TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe FontSpace -> Identity (Maybe FontSpace))
-> TextStyle -> Identity TextStyle
forall s a. HasFontSpaceV s a => Lens' s a
Lens' TextStyle (Maybe FontSpace)
L.fontSpaceV ((Maybe FontSpace -> Identity (Maybe FontSpace))
 -> TextStyle -> Identity TextStyle)
-> FontSpace -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> FontSpace
FontSpace Double
2

colorPopupStyle :: BaseThemeColors -> StyleState
colorPopupStyle :: BaseThemeColors -> StyleState
colorPopupStyle BaseThemeColors
themeMod = StyleState
popupStyle where
  sectionBg :: Color
sectionBg = BaseThemeColors -> Color
sectionColor BaseThemeColors
themeMod
  popupStyle :: StyleState
popupStyle = [StyleState] -> StyleState
forall a. Monoid a => [a] -> a
mconcat [Double -> StyleState
forall t. CmbWidth t => Double -> t
width Double
400, Double -> StyleState
forall t. CmbPadding t => Double -> t
padding Double
10, Color -> StyleState
forall t. CmbBgColor t => Color -> t
bgColor Color
sectionBg, Double -> StyleState
forall t. CmbRadius t => Double -> t
radius Double
4]

dialogMsgBodyFont :: BaseThemeColors -> TextStyle
dialogMsgBodyFont :: BaseThemeColors -> TextStyle
dialogMsgBodyFont BaseThemeColors
themeMod = TextStyle
fontStyle where
  fontStyle :: TextStyle
fontStyle = TextStyle
normalFont
    TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> TextStyle -> Identity TextStyle)
-> Color -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
dialogText BaseThemeColors
themeMod

externalLinkFont :: BaseThemeColors -> TextStyle
externalLinkFont :: BaseThemeColors -> TextStyle
externalLinkFont BaseThemeColors
themeMod = TextStyle
fontStyle where
  fontStyle :: TextStyle
fontStyle = TextStyle
normalFont
    TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> TextStyle -> Identity TextStyle)
-> Color -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
externalLinkBasic BaseThemeColors
themeMod

labelFont :: BaseThemeColors -> TextStyle
labelFont :: BaseThemeColors -> TextStyle
labelFont BaseThemeColors
themeMod = TextStyle
fontStyle TextStyle -> TextStyle -> TextStyle
forall a. Semigroup a => a -> a -> a
<> TextStyle
forall t. CmbTextLeft t => t
textLeft where
  fontStyle :: TextStyle
fontStyle = TextStyle
normalFont
    TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> TextStyle -> Identity TextStyle)
-> Color -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
labelText BaseThemeColors
themeMod

btnStyle :: BaseThemeColors -> StyleState
btnStyle :: BaseThemeColors -> StyleState
btnStyle BaseThemeColors
themeMod = StyleState
forall a. Default a => a
def
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> TextStyle -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ (TextStyle
normalFont TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> TextStyle -> Identity TextStyle)
-> Color -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnText BaseThemeColors
themeMod) TextStyle -> TextStyle -> TextStyle
forall a. Semigroup a => a -> a -> a
<> TextStyle
forall t. CmbTextCenter t => t
textCenter
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgBasic BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> StyleState -> Identity StyleState)
-> Border -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnBgBasic BaseThemeColors
themeMod)
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> StyleState -> Identity StyleState)
-> Padding -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
8
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Radius -> Identity (Maybe Radius))
-> StyleState -> Identity StyleState
forall s a. HasRadius s a => Lens' s a
Lens' StyleState (Maybe Radius)
L.radius ((Maybe Radius -> Identity (Maybe Radius))
 -> StyleState -> Identity StyleState)
-> Radius -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Radius
forall t. CmbRadius t => Double -> t
radius Double
4

btnMainStyle :: BaseThemeColors -> StyleState
btnMainStyle :: BaseThemeColors -> StyleState
btnMainStyle BaseThemeColors
themeMod = BaseThemeColors -> StyleState
btnStyle BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainText BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgBasic BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> StyleState -> Identity StyleState)
-> Border -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainBgBasic BaseThemeColors
themeMod)

textInputStyle :: BaseThemeColors -> StyleState
textInputStyle :: BaseThemeColors -> StyleState
textInputStyle BaseThemeColors
themeMod = StyleState
style where
  textStyle :: TextStyle
textStyle = TextStyle
normalFont
    TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> TextStyle -> Identity TextStyle)
-> Color -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputText BaseThemeColors
themeMod
  style :: StyleState
style = StyleState
forall a. Default a => a
def
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> TextStyle -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ TextStyle
textStyle
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgBasic BaseThemeColors
themeMod
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgBasic BaseThemeColors
themeMod
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ (BaseThemeColors -> Color
inputSndBasic BaseThemeColors
themeMod Color -> (Color -> Color) -> Color
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> Color -> Identity Color
forall s a. HasA s a => Lens' s a
Lens' Color Double
L.a ((Double -> Identity Double) -> Color -> Identity Color)
-> Double -> Color -> Color
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
0.6)
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelBasic BaseThemeColors
themeMod
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> StyleState -> Identity StyleState)
-> Border -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
inputBorder BaseThemeColors
themeMod)
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Radius -> Identity (Maybe Radius))
-> StyleState -> Identity StyleState
forall s a. HasRadius s a => Lens' s a
Lens' StyleState (Maybe Radius)
L.radius ((Maybe Radius -> Identity (Maybe Radius))
 -> StyleState -> Identity StyleState)
-> Radius -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Radius
forall t. CmbRadius t => Double -> t
radius Double
4
    StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> StyleState -> Identity StyleState)
-> Padding -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
8

numericInputStyle :: BaseThemeColors -> StyleState
numericInputStyle :: BaseThemeColors -> StyleState
numericInputStyle BaseThemeColors
themeMod = BaseThemeColors -> StyleState
textInputStyle BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> TextStyle -> Identity TextStyle)
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe AlignTH -> Identity (Maybe AlignTH))
-> TextStyle -> Identity TextStyle
forall s a. HasAlignH s a => Lens' s a
Lens' TextStyle (Maybe AlignTH)
L.alignH ((Maybe AlignTH -> Identity (Maybe AlignTH))
 -> StyleState -> Identity StyleState)
-> AlignTH -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ AlignTH
ATRight

dateInputStyle :: BaseThemeColors -> StyleState
dateInputStyle :: BaseThemeColors -> StyleState
dateInputStyle BaseThemeColors
themeMod = BaseThemeColors -> StyleState
textInputStyle BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> TextStyle -> Identity TextStyle)
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe AlignTH -> Identity (Maybe AlignTH))
-> TextStyle -> Identity TextStyle
forall s a. HasAlignH s a => Lens' s a
Lens' TextStyle (Maybe AlignTH)
L.alignH ((Maybe AlignTH -> Identity (Maybe AlignTH))
 -> StyleState -> Identity StyleState)
-> AlignTH -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ AlignTH
ATRight

timeInputStyle :: BaseThemeColors -> StyleState
timeInputStyle :: BaseThemeColors -> StyleState
timeInputStyle BaseThemeColors
themeMod = BaseThemeColors -> StyleState
textInputStyle BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> TextStyle -> Identity TextStyle)
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe AlignTH -> Identity (Maybe AlignTH))
-> TextStyle -> Identity TextStyle
forall s a. HasAlignH s a => Lens' s a
Lens' TextStyle (Maybe AlignTH)
L.alignH ((Maybe AlignTH -> Identity (Maybe AlignTH))
 -> StyleState -> Identity StyleState)
-> AlignTH -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ AlignTH
ATRight

selectListItemStyle :: BaseThemeColors -> StyleState
selectListItemStyle :: BaseThemeColors -> StyleState
selectListItemStyle BaseThemeColors
themeMod = StyleState
forall a. Default a => a
def
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> TextStyle -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ (TextStyle
normalFont TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> TextStyle -> Identity TextStyle)
-> Color -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slNormalText BaseThemeColors
themeMod)
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> TextStyle -> Identity TextStyle)
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe AlignTH -> Identity (Maybe AlignTH))
-> TextStyle -> Identity TextStyle
forall s a. HasAlignH s a => Lens' s a
Lens' TextStyle (Maybe AlignTH)
L.alignH ((Maybe AlignTH -> Identity (Maybe AlignTH))
 -> StyleState -> Identity StyleState)
-> AlignTH -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ AlignTH
ATLeft
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slNormalBgBasic BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> StyleState -> Identity StyleState)
-> Border -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slNormalBgBasic BaseThemeColors
themeMod)
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> StyleState -> Identity StyleState)
-> Padding -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
8

selectListItemSelectedStyle :: BaseThemeColors -> StyleState
selectListItemSelectedStyle :: BaseThemeColors -> StyleState
selectListItemSelectedStyle BaseThemeColors
themeMod = BaseThemeColors -> StyleState
selectListItemStyle BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slSelectedText BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slSelectedBgBasic BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> StyleState -> Identity StyleState)
-> Border -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slSelectedBgBasic BaseThemeColors
themeMod)

tooltipStyle :: BaseThemeColors -> StyleState
tooltipStyle :: BaseThemeColors -> StyleState
tooltipStyle BaseThemeColors
themeMod = StyleState
forall a. Default a => a
def
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Font -> Identity (Maybe Font))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Font -> Identity (Maybe Font))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Font -> Identity (Maybe Font))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Font -> Identity (Maybe Font))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Font -> Identity (Maybe Font))
-> TextStyle -> Identity TextStyle
forall s a. HasFont s a => Lens' s a
Lens' TextStyle (Maybe Font)
L.font ((Maybe Font -> Identity (Maybe Font))
 -> StyleState -> Identity StyleState)
-> Font -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Text -> Font
Font Text
"Regular"
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe FontSize -> Identity (Maybe FontSize))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe FontSize -> Identity (Maybe FontSize))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe FontSize -> Identity (Maybe FontSize))
    -> TextStyle -> Identity TextStyle)
-> (Maybe FontSize -> Identity (Maybe FontSize))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe FontSize -> Identity (Maybe FontSize))
-> TextStyle -> Identity TextStyle
forall s a. HasFontSize s a => Lens' s a
Lens' TextStyle (Maybe FontSize)
L.fontSize ((Maybe FontSize -> Identity (Maybe FontSize))
 -> StyleState -> Identity StyleState)
-> FontSize -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> FontSize
FontSize Double
14
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
tooltipText BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> StyleState -> Identity StyleState)
-> Color -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
tooltipBg BaseThemeColors
themeMod
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> StyleState -> Identity StyleState)
-> Border -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
tooltipBorder BaseThemeColors
themeMod)
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> StyleState -> Identity StyleState)
-> Padding -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
6
  StyleState -> (StyleState -> StyleState) -> StyleState
forall a b. a -> (a -> b) -> b
& (Maybe Radius -> Identity (Maybe Radius))
-> StyleState -> Identity StyleState
forall s a. HasRadius s a => Lens' s a
Lens' StyleState (Maybe Radius)
L.radius ((Maybe Radius -> Identity (Maybe Radius))
 -> StyleState -> Identity StyleState)
-> Radius -> StyleState -> StyleState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Radius
forall t. CmbRadius t => Double -> t
radius Double
4

baseBasic :: BaseThemeColors -> ThemeState
baseBasic :: BaseThemeColors -> ThemeState
baseBasic BaseThemeColors
themeMod = ThemeState
forall a. Default a => a
def
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasEmptyOverlayStyle s a => Lens' s a
Lens' ThemeState StyleState
L.emptyOverlayStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Color -> StyleState
forall t. CmbBgColor t => Color -> t
bgColor (BaseThemeColors -> Color
emptyOverlay BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasEmptyOverlayStyle s a => Lens' s a
Lens' ThemeState StyleState
L.emptyOverlayStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Padding -> Identity (Maybe Padding))
    -> StyleState -> Identity StyleState)
-> (Maybe Padding -> Identity (Maybe Padding))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> ThemeState -> Identity ThemeState)
-> Padding -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
8
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Color -> Identity Color) -> ThemeState -> Identity ThemeState
forall s a. HasShadowColor s a => Lens' s a
Lens' ThemeState Color
L.shadowColor ((Color -> Identity Color) -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> Color
shadow BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
btnStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
btnMainStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasColorPopupStyle s a => Lens' s a
Lens' ThemeState StyleState
L.colorPopupStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
colorPopupStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasCheckboxWidth s a => Lens' s a
Lens' ThemeState Double
L.checkboxWidth ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
20
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Radius -> Identity (Maybe Radius))
    -> StyleState -> Identity StyleState)
-> (Maybe Radius -> Identity (Maybe Radius))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Radius -> Identity (Maybe Radius))
-> StyleState -> Identity StyleState
forall s a. HasRadius s a => Lens' s a
Lens' StyleState (Maybe Radius)
L.radius ((Maybe Radius -> Identity (Maybe Radius))
 -> ThemeState -> Identity ThemeState)
-> Radius -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Radius
forall t. CmbRadius t => Double -> t
radius Double
4
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
dateInputStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasDialWidth s a => Lens' s a
Lens' ThemeState Double
L.dialWidth ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
50
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogTitleStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogTitleStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe TextStyle -> Identity (Maybe TextStyle))
    -> StyleState -> Identity StyleState)
-> (Maybe TextStyle -> Identity (Maybe TextStyle))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> ThemeState -> Identity ThemeState)
-> TextStyle -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ (TextStyle
titleFont TextStyle -> (TextStyle -> TextStyle) -> TextStyle
forall a b. a -> (a -> b) -> b
& (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> TextStyle -> Identity TextStyle)
-> Color -> TextStyle -> TextStyle
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
dialogTitleText BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogTitleStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogTitleStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Padding -> Identity (Maybe Padding))
    -> StyleState -> Identity StyleState)
-> (Maybe Padding -> Identity (Maybe Padding))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> ThemeState -> Identity ThemeState)
-> Padding -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
10
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogFrameStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogFrameStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Padding -> Identity (Maybe Padding))
    -> StyleState -> Identity StyleState)
-> (Maybe Padding -> Identity (Maybe Padding))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> ThemeState -> Identity ThemeState)
-> Padding -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
5
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogFrameStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogFrameStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Radius -> Identity (Maybe Radius))
    -> StyleState -> Identity StyleState)
-> (Maybe Radius -> Identity (Maybe Radius))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Radius -> Identity (Maybe Radius))
-> StyleState -> Identity StyleState
forall s a. HasRadius s a => Lens' s a
Lens' StyleState (Maybe Radius)
L.radius ((Maybe Radius -> Identity (Maybe Radius))
 -> ThemeState -> Identity ThemeState)
-> Radius -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Radius
forall t. CmbRadius t => Double -> t
radius Double
10
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogFrameStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogFrameStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
dialogBg BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogFrameStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogFrameStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
dialogBorder BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogCloseIconStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogCloseIconStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
iconBg BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogCloseIconStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogCloseIconStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
iconFg BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogCloseIconStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogCloseIconStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Padding -> Identity (Maybe Padding))
    -> StyleState -> Identity StyleState)
-> (Maybe Padding -> Identity (Maybe Padding))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> ThemeState -> Identity ThemeState)
-> Padding -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
4
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogCloseIconStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogCloseIconStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Radius -> Identity (Maybe Radius))
    -> StyleState -> Identity StyleState)
-> (Maybe Radius -> Identity (Maybe Radius))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Radius -> Identity (Maybe Radius))
-> StyleState -> Identity StyleState
forall s a. HasRadius s a => Lens' s a
Lens' StyleState (Maybe Radius)
L.radius ((Maybe Radius -> Identity (Maybe Radius))
 -> ThemeState -> Identity ThemeState)
-> Radius -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Radius
forall t. CmbRadius t => Double -> t
radius Double
8
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogCloseIconStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogCloseIconStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe SizeReq -> Identity (Maybe SizeReq))
    -> StyleState -> Identity StyleState)
-> (Maybe SizeReq -> Identity (Maybe SizeReq))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe SizeReq -> Identity (Maybe SizeReq))
-> StyleState -> Identity StyleState
forall s a. HasSizeReqW s a => Lens' s a
Lens' StyleState (Maybe SizeReq)
L.sizeReqW ((Maybe SizeReq -> Identity (Maybe SizeReq))
 -> ThemeState -> Identity ThemeState)
-> SizeReq -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> SizeReq
forall t. CmbWidth t => Double -> t
width Double
16
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogCloseIconStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogCloseIconStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe SizeReq -> Identity (Maybe SizeReq))
    -> StyleState -> Identity StyleState)
-> (Maybe SizeReq -> Identity (Maybe SizeReq))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe SizeReq -> Identity (Maybe SizeReq))
-> StyleState -> Identity StyleState
forall s a. HasSizeReqH s a => Lens' s a
Lens' StyleState (Maybe SizeReq)
L.sizeReqH ((Maybe SizeReq -> Identity (Maybe SizeReq))
 -> ThemeState -> Identity ThemeState)
-> SizeReq -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> SizeReq
forall t. CmbWidth t => Double -> t
width Double
16
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogButtonsStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogButtonsStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Padding -> Identity (Maybe Padding))
    -> StyleState -> Identity StyleState)
-> (Maybe Padding -> Identity (Maybe Padding))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> ThemeState -> Identity ThemeState)
-> Padding -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
20 Padding -> Padding -> Padding
forall a. Semigroup a => a -> a -> a
<> Double -> Padding
forall t. CmbPaddingT t => Double -> t
paddingT Double
10
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogMsgBodyStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogMsgBodyStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Padding -> Identity (Maybe Padding))
    -> StyleState -> Identity StyleState)
-> (Maybe Padding -> Identity (Maybe Padding))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Padding -> Identity (Maybe Padding))
-> StyleState -> Identity StyleState
forall s a. HasPadding s a => Lens' s a
Lens' StyleState (Maybe Padding)
L.padding ((Maybe Padding -> Identity (Maybe Padding))
 -> ThemeState -> Identity ThemeState)
-> Padding -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Padding
forall t. CmbPadding t => Double -> t
padding Double
20
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogMsgBodyStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogMsgBodyStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe TextStyle -> Identity (Maybe TextStyle))
    -> StyleState -> Identity StyleState)
-> (Maybe TextStyle -> Identity (Maybe TextStyle))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> ThemeState -> Identity ThemeState)
-> TextStyle -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> TextStyle
dialogMsgBodyFont BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogMsgBodyStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogMsgBodyStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe SizeReq -> Identity (Maybe SizeReq))
    -> StyleState -> Identity StyleState)
-> (Maybe SizeReq -> Identity (Maybe SizeReq))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe SizeReq -> Identity (Maybe SizeReq))
-> StyleState -> Identity StyleState
forall s a. HasSizeReqW s a => Lens' s a
Lens' StyleState (Maybe SizeReq)
L.sizeReqW ((Maybe SizeReq -> Identity (Maybe SizeReq))
 -> ThemeState -> Identity ThemeState)
-> SizeReq -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> SizeReq
forall t. CmbMaxWidth t => Double -> t
maxWidth Double
600
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
textInputStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputIconFg BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> StyleState -> Identity StyleState)
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe AlignTH -> Identity (Maybe AlignTH))
    -> TextStyle -> Identity TextStyle)
-> (Maybe AlignTH -> Identity (Maybe AlignTH))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe AlignTH -> Identity (Maybe AlignTH))
-> TextStyle -> Identity TextStyle
forall s a. HasAlignH s a => Lens' s a
Lens' TextStyle (Maybe AlignTH)
L.alignH ((Maybe AlignTH -> Identity (Maybe AlignTH))
 -> ThemeState -> Identity ThemeState)
-> AlignTH -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ AlignTH
ATLeft
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasDropdownMaxHeight s a => Lens' s a
Lens' ThemeState Double
L.dropdownMaxHeight ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
200
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownListStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownListStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slMainBg BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
selectListItemStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
selectListItemSelectedStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe TextStyle -> Identity (Maybe TextStyle))
    -> StyleState -> Identity StyleState)
-> (Maybe TextStyle -> Identity (Maybe TextStyle))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> ThemeState -> Identity ThemeState)
-> TextStyle -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> TextStyle
externalLinkFont BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasLabelStyle s a => Lens' s a
Lens' ThemeState StyleState
L.labelStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe TextStyle -> Identity (Maybe TextStyle))
    -> StyleState -> Identity StyleState)
-> (Maybe TextStyle -> Identity (Maybe TextStyle))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> ThemeState -> Identity ThemeState)
-> TextStyle -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> TextStyle
labelFont BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
numericInputStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
btnMainStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
btnStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slMainBg BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slMainBg BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
selectListItemStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
selectListItemSelectedStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasRadioWidth s a => Lens' s a
Lens' ThemeState Double
L.radioWidth ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
20
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Bool -> Identity Bool) -> ThemeState -> Identity ThemeState
forall s a. HasScrollOverlay s a => Lens' s a
Lens' ThemeState Bool
L.scrollOverlay ((Bool -> Identity Bool) -> ThemeState -> Identity ThemeState)
-> Bool -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Bool
False
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Bool -> Identity Bool) -> ThemeState -> Identity ThemeState
forall s a. HasScrollFollowFocus s a => Lens' s a
Lens' ThemeState Bool
L.scrollFollowFocus ((Bool -> Identity Bool) -> ThemeState -> Identity ThemeState)
-> Bool -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Bool
True
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Color -> Identity Color) -> ThemeState -> Identity ThemeState
forall s a. HasScrollBarColor s a => Lens' s a
Lens' ThemeState Color
L.scrollBarColor ((Color -> Identity Color) -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> Color
scrollBarBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Color -> Identity Color) -> ThemeState -> Identity ThemeState
forall s a. HasScrollThumbColor s a => Lens' s a
Lens' ThemeState Color
L.scrollThumbColor ((Color -> Identity Color) -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> Color
scrollThumbBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasScrollBarWidth s a => Lens' s a
Lens' ThemeState Double
L.scrollBarWidth ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
8
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasScrollThumbWidth s a => Lens' s a
Lens' ThemeState Double
L.scrollThumbWidth ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
8
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasScrollThumbMinSize s a => Lens' s a
Lens' ThemeState Double
L.scrollThumbMinSize ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
25
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasScrollThumbRadius s a => Lens' s a
Lens' ThemeState Double
L.scrollThumbRadius ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
4
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Rational -> Identity Rational)
-> ThemeState -> Identity ThemeState
forall s a. HasScrollWheelRate s a => Lens' s a
Lens' ThemeState Rational
L.scrollWheelRate ((Rational -> Identity Rational)
 -> ThemeState -> Identity ThemeState)
-> Rational -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Rational
10
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasSeparatorLineWidth s a => Lens' s a
Lens' ThemeState Double
L.separatorLineWidth ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
1
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSeparatorLineStyle s a => Lens' s a
Lens' ThemeState StyleState
L.separatorLineStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Maybe Double -> Identity (Maybe Double))
-> ThemeState -> Identity ThemeState
forall s a. HasSliderRadius s a => Lens' s a
Lens' ThemeState (Maybe Double)
L.sliderRadius ((Maybe Double -> Identity (Maybe Double))
 -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double
2
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasSliderThumbFactor s a => Lens' s a
Lens' ThemeState Double
L.sliderThumbFactor ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
1.25
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Double -> Identity Double) -> ThemeState -> Identity ThemeState
forall s a. HasSliderWidth s a => Lens' s a
Lens' ThemeState Double
L.sliderWidth ((Double -> Identity Double) -> ThemeState -> Identity ThemeState)
-> Double -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ Double
10
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
textInputStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
textInputStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
timeInputStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
btnMainStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
btnStyle BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTooltipStyle s a => Lens' s a
Lens' ThemeState StyleState
L.tooltipStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> StyleState -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> StyleState
tooltipStyle BaseThemeColors
themeMod

baseHover :: BaseThemeColors -> ThemeState
baseHover :: BaseThemeColors -> ThemeState
baseHover BaseThemeColors
themeMod = BaseThemeColors -> ThemeState
baseBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorIBeam
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorSizeV
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialogCloseIconStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialogCloseIconStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownListStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownListStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slMainBg BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slNormalBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slNormalBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slSelectedBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slSelectedBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
externalLinkHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Bool -> Identity (Maybe Bool))
    -> StyleState -> Identity StyleState)
-> (Maybe Bool -> Identity (Maybe Bool))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Bool -> Identity (Maybe Bool))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Bool -> Identity (Maybe Bool))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Bool -> Identity (Maybe Bool))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Bool -> Identity (Maybe Bool))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Bool -> Identity (Maybe Bool))
-> TextStyle -> Identity TextStyle
forall s a. HasUnderline s a => Lens' s a
Lens' TextStyle (Maybe Bool)
L.underline ((Maybe Bool -> Identity (Maybe Bool))
 -> ThemeState -> Identity ThemeState)
-> Bool -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Bool
True
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorIBeam
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slNormalBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slNormalBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slSelectedBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slSelectedBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Color -> Identity Color) -> ThemeState -> Identity ThemeState
forall s a. HasScrollBarColor s a => Lens' s a
Lens' ThemeState Color
L.scrollBarColor ((Color -> Identity Color) -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> Color
scrollBarHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (Color -> Identity Color) -> ThemeState -> Identity ThemeState
forall s a. HasScrollThumbColor s a => Lens' s a
Lens' ThemeState Color
L.scrollThumbColor ((Color -> Identity Color) -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a b -> b -> s -> t
.~ BaseThemeColors -> Color
scrollThumbHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorIBeam
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorIBeam
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorIBeam
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
    -> StyleState -> Identity StyleState)
-> (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe CursorIcon -> Identity (Maybe CursorIcon))
-> StyleState -> Identity StyleState
forall s a. HasCursorIcon s a => Lens' s a
Lens' StyleState (Maybe CursorIcon)
L.cursorIcon ((Maybe CursorIcon -> Identity (Maybe CursorIcon))
 -> ThemeState -> Identity ThemeState)
-> CursorIcon -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ CursorIcon
CursorHand

baseFocus :: BaseThemeColors -> ThemeState
baseFocus :: BaseThemeColors -> ThemeState
baseFocus BaseThemeColors
themeMod = BaseThemeColors -> ThemeState
baseBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnMainBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownListStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownListStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slMainBg BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slNormalFocusBorder BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slSelectedFocusBorder BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
externalLinkFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnMainBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slNormalFocusBorder BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSelectListItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.selectListItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
slSelectedFocusBorder BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnMainBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnBorderFocus BaseThemeColors
themeMod

baseFocusHover :: BaseThemeColors -> ThemeState
baseFocusHover :: BaseThemeColors -> ThemeState
baseFocusHover BaseThemeColors
themeMod = (BaseThemeColors -> ThemeState
baseHover BaseThemeColors
themeMod ThemeState -> ThemeState -> ThemeState
forall a. Semigroup a => a -> a -> a
<> BaseThemeColors -> ThemeState
baseFocus BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slNormalBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownItemSelectedStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownItemSelectedStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
slSelectedBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
externalLinkHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgHover BaseThemeColors
themeMod

baseActive :: BaseThemeColors -> ThemeState
baseActive :: BaseThemeColors -> ThemeState
baseActive BaseThemeColors
themeMod = BaseThemeColors -> ThemeState
baseFocusHover BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnMainBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
externalLinkActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnMainBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
inputBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSelFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnMainBorderFocus BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgActive BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Border
btnBorderFocus BaseThemeColors
themeMod

baseDisabled :: BaseThemeColors -> ThemeState
baseDisabled :: BaseThemeColors -> ThemeState
baseDisabled BaseThemeColors
themeMod = BaseThemeColors -> ThemeState
baseBasic BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnBgDisabled BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasBtnMainStyle s a => Lens' s a
Lens' ThemeState StyleState
L.btnMainStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainBgDisabled BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasCheckboxStyle s a => Lens' s a
Lens' ThemeState StyleState
L.checkboxStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDateFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dateFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDialStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dialStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasDropdownStyle s a => Lens' s a
Lens' ThemeState StyleState
L.dropdownStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
inputBgDisabled BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasExternalLinkStyle s a => Lens' s a
Lens' ThemeState StyleState
L.externalLinkStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
externalLinkDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasNumericFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.numericFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainBgDisabled BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasOptionBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.optionBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnBgDisabled BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasRadioStyle s a => Lens' s a
Lens' ThemeState StyleState
L.radioStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasFgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.fgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputFgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasHlColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.hlColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputHlDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasSliderStyle s a => Lens' s a
Lens' ThemeState StyleState
L.sliderStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasSndColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.sndColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputSndDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextAreaStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textAreaStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTextFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.textFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasTimeFieldStyle s a => Lens' s a
Lens' ThemeState StyleState
L.timeFieldStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
inputTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnMainBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOnStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOnStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnMainBgDisabled BaseThemeColors
themeMod)
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe TextStyle -> Identity (Maybe TextStyle))
-> StyleState -> Identity StyleState
forall s a. HasText s a => Lens' s a
Lens' StyleState (Maybe TextStyle)
L.text ((Maybe TextStyle -> Identity (Maybe TextStyle))
 -> StyleState -> Identity StyleState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> (Maybe Color -> Identity (Maybe Color))
-> StyleState
-> Identity StyleState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextStyle -> Iso' (Maybe TextStyle) TextStyle
forall a. Eq a => a -> Iso' (Maybe a) a
non TextStyle
forall a. Default a => a
def ((TextStyle -> Identity TextStyle)
 -> Maybe TextStyle -> Identity (Maybe TextStyle))
-> ((Maybe Color -> Identity (Maybe Color))
    -> TextStyle -> Identity TextStyle)
-> (Maybe Color -> Identity (Maybe Color))
-> Maybe TextStyle
-> Identity (Maybe TextStyle)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> TextStyle -> Identity TextStyle
forall s a. HasFontColor s a => Lens' s a
Lens' TextStyle (Maybe Color)
L.fontColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnTextDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Color -> Identity (Maybe Color))
    -> StyleState -> Identity StyleState)
-> (Maybe Color -> Identity (Maybe Color))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Color -> Identity (Maybe Color))
-> StyleState -> Identity StyleState
forall s a. HasBgColor s a => Lens' s a
Lens' StyleState (Maybe Color)
L.bgColor ((Maybe Color -> Identity (Maybe Color))
 -> ThemeState -> Identity ThemeState)
-> Color -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ BaseThemeColors -> Color
btnBgDisabled BaseThemeColors
themeMod
  ThemeState -> (ThemeState -> ThemeState) -> ThemeState
forall a b. a -> (a -> b) -> b
& (StyleState -> Identity StyleState)
-> ThemeState -> Identity ThemeState
forall s a. HasToggleBtnOffStyle s a => Lens' s a
Lens' ThemeState StyleState
L.toggleBtnOffStyle ((StyleState -> Identity StyleState)
 -> ThemeState -> Identity ThemeState)
-> ((Maybe Border -> Identity (Maybe Border))
    -> StyleState -> Identity StyleState)
-> (Maybe Border -> Identity (Maybe Border))
-> ThemeState
-> Identity ThemeState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe Border -> Identity (Maybe Border))
-> StyleState -> Identity StyleState
forall s a. HasBorder s a => Lens' s a
Lens' StyleState (Maybe Border)
L.border ((Maybe Border -> Identity (Maybe Border))
 -> ThemeState -> Identity ThemeState)
-> Border -> ThemeState -> ThemeState
forall s t a b. ASetter s t a (Maybe b) -> b -> s -> t
?~ Double -> Color -> Border
forall t. CmbBorder t => Double -> Color -> t
border Double
1 (BaseThemeColors -> Color
btnBgDisabled BaseThemeColors
themeMod)