should work now

.config/dotnet-tools.json

@@ -0,0 +1,12 @@
+{
+  "version": 1,
+  "isRoot": true,
+  "tools": {
+    "fable": {
+      "version": "3.2.2",
+      "commands": [
+        "fable"
+      ]
+    }
+  }
+}

IO.fs

@@ -76,10 +76,12 @@ module IO =
         let fsproj =
             Path.Combine(root, "Sutil.Shoelace.fsproj")
 
-        use library = File.CreateText library
-        library.WriteLine "namespace Sutil.Shoelace\n"
-        library.WriteLine "type Shoelace = class end"
+        use library = File.Create library
 
+        let bytes =
+            getBytesFromStr (Templates.getShoelaceAPIClass components)
+
+        library.Write bytes
         use fsproj = File.Create fsproj
 
         let writeComponents = Templates.getFsFileReference components

Program.fs

@@ -20,6 +20,7 @@ let main argv =
             let version = metadata.version
             printfn "Downloaded %s, version %s" name version
             tryWriteFiles version metadata.components
+            printfn $"Wrote: [{metadata.components.Length}] Components to [Sutil.Shoelace]"
             return 0
         | None -> return 1
     }

README.md

@@ -0,0 +1,10 @@
+# Shoelace Generator
+
+This is a [Shoelace](https://github.com/shoelace-style/shoelace) wrapper generator for [Sutil](https://github.com/davedawkins/Sutil) heavily inspider in [react-generator](https://github.com/shoelace-style/react-generator)
+
+# Run
+```
+dotnet tool restore
+
+dotnet run && dotnet fable --cwd Sutil.Shoelace
+```

Templates.fs

@@ -205,7 +205,7 @@ let getCompModule (tagAndName: string * string) (comp: SlProp array) =
     $"""
 ///
 [<RequireQualifiedAccess>]
-module {className} =
+module internal {className} =
     /// doesn't provide any binding helper logic and allows the user to take full
     /// control over the HTML Element either to create static HTML or do custom bindings
     /// via "bindFragment" or "Bind.attr("", binding)"
@@ -248,6 +248,55 @@ type {comp.className} =
     {attrsTpl}{attrsModule}{getCompModule (comp.tag, comp.className) (comp.props)}"""
 
 
+let getShoelaceAPIClass (components: SlComponent array) =
+    let opens =
+        components
+        |> Array.fold
+            (fun (current: string) next ->
+                let name = next.className.[2..]
+
+                let current =
+                    if current.Length > 0 then
+                        $"{current}\n"
+                    else
+                        ""
+
+                $"{current}open Sutil.Shoelace.{name}")
+            ""
+
+    let methods =
+        components
+        |> Array.fold
+            (fun (current: string) next ->
+                let current =
+                    if current.Length > 0 then
+                        $"{current}\n    "
+                    else
+                        ""
+
+                let stateful =
+                    if next.props.Length > 0 then
+                        $"""
+    static member inline {next.className} (attrs: IStore<{next.className}Attributes>, content: NodeFactory seq) =
+        {next.className}.stateful attrs content"""
+                    else
+                        ""
+
+                ($"""
+    {current}static member inline {next.className} (content: NodeFactory seq) =
+        {next.className}.stateless content
+    {stateful}"""
+                    .TrimStart()))
+            ""
+
+    $"""namespace Sutil.Shoelace
+open Sutil
+open Sutil.DOM
+{opens}
+type Shoelace =
+    {methods}"""
+
+
 let getFsFileReference (components: SlComponent array) =
     components
     |> Array.fold