feat: change exportAssignment to use ImportDefault

[converter][web]

Author: MangelMaxime

src/Glutinum.Converter/FsharpAST.fs

@@ -179,6 +179,10 @@ type FSharpAttribute =
     /// Generates <c>[&lt;ImportAll(moduleName)&gt;]</c> attribute.
     /// </summary>
     | ImportAll of moduleName: string
+    /// <summary>
+    /// Generates <c>[&lt;ImportDefault(moduleName)&gt;]</c> attribute.
+    /// </summary>
+    | ImportDefault of moduleName: string
     | Erase
     | AllowNullLiteral
     | Obsolete of string option

src/Glutinum.Converter/Printer.fs

@@ -103,6 +103,8 @@ let private attributeToText (fsharpAttribute: FSharpAttribute) =
     | FSharpAttribute.EmitMacroConstructor className ->
         $"[<Emit(\"new $0.{className}($1...)\")>]"
     | FSharpAttribute.ImportAll module_ -> $"[<ImportAll(\"{module_}\")>]"
+    | FSharpAttribute.ImportDefault module_ ->
+        $"[<ImportDefault(\"{module_}\")>]"
     | FSharpAttribute.EmitIndexer -> "[<EmitIndexer>]"
     | FSharpAttribute.Global -> "[<Global>]"
     | FSharpAttribute.ParamObject -> "[<ParamObject>]"

src/Glutinum.Converter/Transform.fs

@@ -477,7 +477,7 @@ let private transformExports
                     sanitizeNameAndPushScope glueType.Name context
 
                 {
-                    Attributes = [ FSharpAttribute.ImportAll "module" ]
+                    Attributes = [ FSharpAttribute.ImportDefault "module" ]
                     Name = name
                     OriginalName = glueType.Name
                     Parameters = []

src/Glutinum.Web/Pages/Editors.FSharpAST.FSharpASTViewer.fs

@@ -47,6 +47,11 @@ type FSharpASTViewer =
                 ASTViewer.renderKeyValue "From" from
             ]
 
+        | FSharpAttribute.ImportDefault from ->
+            ASTViewer.renderNode "ImportDefault" [
+                ASTViewer.renderKeyValue "From" from
+            ]
+
         | FSharpAttribute.Erase -> ASTViewer.renderValueOnly "Erase"
 
         | FSharpAttribute.AllowNullLiteral ->

tests/specs/references/exportAssignment/default/direct/class.fsx

@@ -6,7 +6,7 @@ open System
 
 [<Erase>]
 type Exports =
-    [<ImportAll("module")>]
+    [<ImportDefault("module")>]
     static member inline ChalkInstance: ChalkInstance = nativeOnly
 
 [<AllowNullLiteral>]

tests/specs/references/exportAssignment/default/intermediateVariable/class.fsx

@@ -6,7 +6,7 @@ open System
 
 [<Erase>]
 type Exports =
-    [<ImportAll("module")>]
+    [<ImportDefault("module")>]
     static member inline chalk: ChalkInstance = nativeOnly
 
 

tests/specs/references/exportAssignment/default/intermediateVariable/primitive.fsx

@@ -6,7 +6,7 @@ open System
 
 [<Erase>]
 type Exports =
-    [<ImportAll("module")>]
+    [<ImportDefault("module")>]
     static member inline version: string = nativeOnly
 
 (***)