fix: add support for literal enums with @, <, >, (space)

[converter][web]

Fix #133

src/Glutinum.Converter/Utils/Naming.fs

@@ -13,6 +13,9 @@ let private escapeName (name: string) : string =
         name.Contains("-")
         || name.Contains("$")
         || name.Contains("#")
+        || name.Contains("<")
+        || name.Contains(">")
+        || name.Contains(" ")
         || startWithDigit name
         || Keywords.fsharp.Contains name
     then
@@ -36,10 +39,13 @@ let removeSurroundingQuotes (text: string) : string =
 
 let replaceDot (text: string) : string = text.Replace(".", "_")
 
+let replaceAt (text: string) : string = text.Replace("@", "_AT_")
+
 type SanitizeNameResult = { Name: string; IsDifferent: bool }
 
 let sanitizeNameWithResult (name: string) : SanitizeNameResult =
-    let sanitizedName = name |> replaceDot |> removeSurroundingQuotes
+    let sanitizedName =
+        name |> replaceDot |> replaceAt |> removeSurroundingQuotes
 
     // Check if the name is different after sanitization
     // This is used to check if the value is different from the default Fable computed value

tests/specs/references/enums/literalStringEnumWithAtSymbol.d.ts

@@ -0,0 +1,2 @@
+export type Name =
+    | 'an@nymous>';

tests/specs/references/enums/literalStringEnumWithAtSymbol.fsx

@@ -0,0 +1,14 @@
+module rec Glutinum
+
+open Fable.Core
+open Fable.Core.JsInterop
+open System
+
+[<RequireQualifiedAccess>]
+[<StringEnum(CaseRules.None)>]
+type Name =
+    | [<CompiledName("an@nymous>")>] ``an_AT_nymous>``
+
+(***)
+#r "nuget: Fable.Core"
+(***)

tests/specs/references/enums/literalStringEnumWithLeftAngleBracket.d.ts

@@ -0,0 +1,2 @@
+export type Name =
+    | '<anonymous';

tests/specs/references/enums/literalStringEnumWithLeftAngleBracket.fsx

@@ -0,0 +1,14 @@
+module rec Glutinum
+
+open Fable.Core
+open Fable.Core.JsInterop
+open System
+
+[<RequireQualifiedAccess>]
+[<StringEnum(CaseRules.None)>]
+type Name =
+    | ``<anonymous``
+
+(***)
+#r "nuget: Fable.Core"
+(***)

tests/specs/references/enums/literalStringEnumWithRightAngleBracket.d.ts

@@ -0,0 +1,2 @@
+export type Name =
+    | 'anonymous>';

tests/specs/references/enums/literalStringEnumWithRightAngleBracket.fsx

@@ -0,0 +1,14 @@
+module rec Glutinum
+
+open Fable.Core
+open Fable.Core.JsInterop
+open System
+
+[<RequireQualifiedAccess>]
+[<StringEnum(CaseRules.None)>]
+type Name =
+    | ``anonymous>``
+
+(***)
+#r "nuget: Fable.Core"
+(***)

tests/specs/references/enums/literalStringEnumWithSpace.d.ts

@@ -0,0 +1,2 @@
+export type Name =
+    | 'anony mous';

tests/specs/references/enums/literalStringEnumWithSpace.fsx

@@ -0,0 +1,14 @@
+module rec Glutinum
+
+open Fable.Core
+open Fable.Core.JsInterop
+open System
+
+[<RequireQualifiedAccess>]
+[<StringEnum(CaseRules.None)>]
+type Name =
+    | ``anony mous``
+
+(***)
+#r "nuget: Fable.Core"
+(***)