Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit9535ad2

Browse files
committed
typo, named constants
1 parentf3b947c commit9535ad2

File tree

1 file changed

+8
-6
lines changed

1 file changed

+8
-6
lines changed

‎vsintegration/src/FSharp.Editor/Classification/ClassificationDefinitions.fs‎

Lines changed: 8 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -46,6 +46,9 @@ module internal FSharpClassificationTypes =
4646
| SemanticClassificationType.Interface-> Interface
4747

4848
moduleinternalClassificationDefinitions=
49+
letprivateguidVSLightTheme= Guid"de3dbbcd-f642-433c-8353-8f1df4370aba"
50+
letprivateguidVSBlueTheme= Guid"a4d6a176-b948-4b29-8c66-53c97a1ed7d0"
51+
letprivateguidVSDarkTheme= Guid"1ded0138-47ce-435e-84ef-9ec1f439b749"
4952

5053
[<Export>]
5154
typeinternalThemeColors
@@ -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
6365
else UnknownTheme
6466

6567
letgetCurrentThemeId()=
@@ -86,7 +88,7 @@ module internal ClassificationDefinitions =
8688
letict= classificationTypeRegistry.GetClassificationType(ctype)
8789
letoldProps= formatMap.GetTextProperties(ict)
8890
letnewProps=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 =
99101
member__.GetColor(ctype)=
100102
letlight,dark= colorData|> Map.ofList|> Map.find ctype
101103
match getCurrentThemeId()with
102-
|LighTheme-> Nullable light
104+
|LightTheme-> Nullable light
103105
| DarkTheme-> Nullable dark
104106
| UnknownTheme-> Nullable()
105107

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp