@@ -46,6 +46,9 @@ module internal FSharpClassificationTypes =
4646| SemanticClassificationType.Interface-> Interface
4747
4848module internal ClassificationDefinitions =
49+ let private guidVSLightTheme = Guid" de3dbbcd-f642-433c-8353-8f1df4370aba"
50+ let private guidVSBlueTheme = Guid" a4d6a176-b948-4b29-8c66-53c97a1ed7d0"
51+ let private guidVSDarkTheme = Guid" 1ded0138-47ce-435e-84ef-9ec1f439b749"
4952
5053[<Export>]
5154type internal ThemeColors
@@ -56,10 +59,9 @@ module internal ClassificationDefinitions =
5659[< Import( typeof< SVsServiceProvider>)>] serviceProvider: IServiceProvider
5760) =
5861
59- let (| LighTheme | DarkTheme | UnknownTheme |) id =
60- if id= Guid( " de3dbbcd-f642-433c-8353-8f1df4370aba" ) ||
61- id= Guid( " a4d6a176-b948-4b29-8c66-53c97a1ed7d0" ) then LighTheme
62- elif id= Guid( " 1ded0138-47ce-435e-84ef-9ec1f439b749" ) then DarkTheme
62+ let (| LightTheme | DarkTheme | UnknownTheme |) id =
63+ if id= guidVSLightTheme|| id= guidVSBlueThemethen LightTheme
64+ elif id= guidVSDarkThemethen DarkTheme
6365else UnknownTheme
6466
6567let getCurrentThemeId () =
@@ -86,7 +88,7 @@ module internal ClassificationDefinitions =
8688let ict = classificationTypeRegistry.GetClassificationType( ctype)
8789let oldProps = formatMap.GetTextProperties( ict)
8890let newProps = match getCurrentThemeId() with
89- | LighTheme -> oldProps.SetForeground light
91+ | LightTheme -> oldProps.SetForeground light
9092| DarkTheme-> oldProps.SetForeground dark
9193| UnknownTheme-> oldProps
9294 formatMap.SetTextProperties( ict, newProps)
@@ -99,7 +101,7 @@ module internal ClassificationDefinitions =
99101member __.GetColor ( ctype ) =
100102let light , dark = colorData|> Map.ofList|> Map.find ctype
101103match getCurrentThemeId() with
102- | LighTheme -> Nullable light
104+ | LightTheme -> Nullable light
103105| DarkTheme-> Nullable dark
104106| UnknownTheme-> Nullable()
105107