#3

SchlenkR · Apr 28, 2023 · e6f186d · e6f186d
1 parent ef7ae4e
commit e6f186d
Show file tree

Hide file tree

Showing 2 changed files with 39 additions and 3 deletions.
diff --git a/Vide.Fable/src/DevApp/src/DevApp.fsproj b/Vide.Fable/src/DevApp/src/DevApp.fsproj
@@ -12,7 +12,7 @@
     <Compile Include="UseCases\Async.fs" />
     <Compile Include="UseCases\Advanced.fs" />
     <Compile Include="UseCases\TodoList.fs" />
-    <Compile Include="UseCases\Issue_2.fs" />
+    <Compile Include="UseCases\Issue_3.fs" />
     <Compile Include="App.fs" />
   </ItemGroup>
 

diff --git a/....Fable/src/DevApp/src/UseCases/Issue_2.fs → ....Fable/src/DevApp/src/UseCases/Issue_3.fs b/....Fable/src/DevApp/src/UseCases/Issue_2.fs → ....Fable/src/DevApp/src/UseCases/Issue_3.fs
@@ -18,7 +18,6 @@ module Issue_2 =
             | None -> Vide.elseForget
         }
 
-
     let cards() = vide {
         Card(
             vide {
@@ -55,7 +54,6 @@ module Issue_2a =
             | None -> Vide.elseForget
         }
 
-
     let cards = vide {
         Card(
             vide {
@@ -74,6 +72,44 @@ module Issue_2a =
     let view = vide { article { main { cards } } }
 
 
+module Issue_2b =
+
+open Vide
+open type Vide.Html
+
+let Card
+    (
+        content: Vide<_,_,_>,
+        footerContent: Vide<_,_,_> option
+    ) =
+    vide {
+        div { content }
+
+        match footerContent with
+        | Some footerContent -> header { footerContent }
+        | None -> Vide.elseForget
+    }
+
+let videNone : Vide<unit,unit,_> option = None
+
+let cards = vide {
+    Card(
+        vide {
+            let! counter = Vide.ofMutable 0
+            $"The current count is {counter.Value} :)"
+        },
+        Some (vide { "Footer is here" })
+    )
+
+    Card(
+        vide { "This is just another Usage" },
+        videNone
+    )
+}
+
+let view = vide { article { main { cards } } }
+
+
 //module Issue_2b =
 
 //    open Vide