Merge pull request #37 from krymtkts:feature/remove-js

Replace raw JavaScript with Fable.Browser.WbSocket.
krymtkts · Jul 29, 2023 · df3374e · df3374e
2 parents 9e8e361 + 202f88e
commit df3374e
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 7 deletions.
diff --git a/js/live-reload.js b/js/live-reload.js
diff --git a/src/App.fsproj b/src/App.fsproj
@@ -8,11 +8,13 @@
     <Compile Include="bindings/Yaml.fs" />
     <Compile Include="Node.Extra.fs" />
     <Compile Include="Common.fs" />
+    <Compile Include="Dev.fs" />
     <Compile Include="Generator.fs" />
     <Compile Include="App.fs" />
   </ItemGroup>
   <ItemGroup>
     <PackageReference Include="Fable.Browser.Dom" Version="2.14.0" />
+    <PackageReference Include="Fable.Browser.WebSocket" Version="1.3.0" />
     <PackageReference Include="Fable.Core" Version="4.0.0" />
     <PackageReference Include="Fable.Node" Version="1.2.0" />
     <PackageReference Include="Fable.Promise" Version="3.2.0" />

diff --git a/src/Dev.fs b/src/Dev.fs
@@ -0,0 +1,10 @@
+module Dev
+
+open Browser.Dom
+open Browser.WebSocket
+
+let private init _ =
+    let ws = WebSocket.Create $"ws://{window.location.host}/websocket"
+    ws.onmessage <- fun _ -> window.location.reload ()
+
+window.addEventListener ("load", init)
diff --git a/src/Generator.fs b/src/Generator.fs
@@ -581,8 +581,7 @@ let render (opts: RnderOptions) =
 
         let devInjection, devScript =
             match opts.stage with
-            | Development ->
-                Some("/js/live-reload.js"), [ ("js/live-reload.js", $"{opts.dst}{opts.pathRoot}/js/live-reload.js") ]
+            | Development -> Some("/js/dev.js"), [ ("src/Dev.fs.js", $"{opts.dst}{opts.pathRoot}/js/dev.js") ]
             | Production -> None, []
 
         let site: FixedSiteContent =