module Yi.Style.Spolsky
( spolskyTheme
, spolskyNormal
, spolskyBackground
, spolskyVisualSelection
, spolskyCurrentLine
, spolskyOperators
, spolskyComments
, spolskyKeywords
, spolskyString
, spolskyTypeFace
, spolskyWarning
)
where
import Data.Monoid (mappend, mempty)
import Yi
spolskyTheme :: Proto UIStyle
spolskyTheme = defaultTheme `override` \sets _ -> sets
{ baseAttributes = emptyAttributes { foreground = spolskyNormal
, background = spolskyBackground
, reverseAttr = False}
, modelineAttributes = emptyAttributes { foreground = spolskyBackground
, background = spolskyNormal
, reverseAttr = False }
, selectedStyle = withBg spolskyVisualSelection
, hintStyle = withBg spolskyCurrentLine
, strongHintStyle = withBg spolskyCurrentLine
, builtinStyle = withFg spolskyOperators
, commentStyle = withFg spolskyComments
, keywordStyle = withFg spolskyKeywords
, stringStyle = withFg spolskyString
, typeStyle = withFg spolskyTypeFace
, errorStyle = withFg spolskyWarning
, operatorStyle = withFg spolskyOperators
, importStyle = withFg spolskyKeywords
, numberStyle = withFg spolskyNumber
, preprocessorStyle = withFg spolskyKeywords
}
spolskyBackground = RGB 22 26 31
spolskyComments = RGB 140 140 140
spolskyConstant = RGB 255 128 244
spolskyCurrentLine = RGB 21 21 21
spolskyCursorUnderscore = RGB 238 220 130
spolskyKeywords = RGB 249 38 114
spolskyLineNumber = RGB 22 26 31
spolskyLineFg = RGB 102 102 102
spolskyTypeFace = RGB 102 217 239
spolskyMethodDeclaration = RGB 166 226 46
spolskyModeLineBg = RGB 51 51 51
spolskyModeInactiveBg = RGB 34 34 34
spolskyModeLineFg = RGB 238 220 130
spolskyModeInactiveFg = RGB 85 85 85
spolskyNormal = RGB 222 222 222
spolskyNumber = RGB 252 88 12
spolskyOperators = RGB 255 140 0
spolskyWarning = RGB 255 108 96
spolskyRegexp = RGB 166 58 98
spolskyString = RGB 238 220 130
spolskyVariable = RGB 253 151 31
spolskyVisualSelection = RGB 85 85 85