Skeleton for minimal UI sketching, via FSI directly

MaxWilson · Mar 4, 2024 · 6e04842 · 6e04842
1 parent e8f6852
commit 6e04842
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/scratch/GuessNumber.fsx b/scratch/GuessNumber.fsx
@@ -0,0 +1,10 @@
+#load "SketchUI.fsx"
+open SketchUI
+
+let init = ()
+let update msg model = model
+let view model =
+    "Hello, world! Notice that there's no dispatch argument"
+let send: unit -> unit = connect init update view
+
+send()
diff --git a/scratch/SketchUI.fsx b/scratch/SketchUI.fsx
@@ -0,0 +1,7 @@
+#if INTERACTIVE
+#load "../src/Core/Common.fs"
+#endif
+
+let connect init update view =
+    let dispatch = notImpl
+    dispatch