improve readme

rizo · Apr 8, 2024 · acbdc57 · acbdc57
1 parent 77da337
commit acbdc57
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 13 deletions.
diff --git a/README.md b/README.md
@@ -21,7 +21,6 @@
 
 ```ocaml
 open Helix
-open Stdweb
 
 let counter () =
   let count = Signal.make 0 in
@@ -34,26 +33,25 @@ let counter () =
       div []
         [
           button
-            [ on_click (fun _ -> Signal.update (fun n -> n + 1) count) ]
+            [ on_click (fun () -> Signal.update (fun n -> n + 1) count) ]
             [ text "+" ];
           button
-            [ on_click (fun _ -> Signal.update (fun n -> n - 1) count) ]
+            [ on_click (fun () -> Signal.update (fun n -> n - 1) count) ]
             [ text "-" ];
+          button [ on_click (fun () -> Signal.emit 0 count) ] [ text "Reset" ];
           div
             [
               style_list [ ("font-size", "32px") ];
               bind
-                (fun n ->
-                  if n < 0 then style_list [ ("color", "red") ]
-                  else style_list [ ("color", "blue") ])
+                (fun n -> style_list [ ("color", if n < 0 then "red" else "blue") ])
                 count;
             ]
             [ show (fun n -> text (string_of_int n)) count ];
         ];
     ]
 
 let () =
-  match Dom.Document.get_element_by_id "root" with
+  match Stdweb.Dom.Document.get_element_by_id "root" with
   | Some root -> Html.mount root (counter ())
   | None -> failwith "No #root element found"
 ```

diff --git a/examples/readme/Readme.ml b/examples/readme/Readme.ml
@@ -1,5 +1,4 @@
 open Helix
-open Stdweb
 
 let counter () =
   let count = Signal.make 0 in
@@ -12,18 +11,18 @@ let counter () =
       div []
         [
           button
-            [ on_click (fun _ -> Signal.update (fun n -> n + 1) count) ]
+            [ on_click (fun () -> Signal.update (fun n -> n + 1) count) ]
             [ text "+" ];
           button
-            [ on_click (fun _ -> Signal.update (fun n -> n - 1) count) ]
+            [ on_click (fun () -> Signal.update (fun n -> n - 1) count) ]
             [ text "-" ];
+          button [ on_click (fun () -> Signal.emit 0 count) ] [ text "Reset" ];
           div
             [
               style_list [ ("font-size", "32px") ];
               bind
                 (fun n ->
-                  if n < 0 then style_list [ ("color", "red") ]
-                  else style_list [ ("color", "blue") ]
+                  style_list [ ("color", if n < 0 then "red" else "blue") ]
                 )
                 count;
             ]
@@ -32,6 +31,6 @@ let counter () =
     ]
 
 let () =
-  match Dom.Document.get_element_by_id "root" with
+  match Stdweb.Dom.Document.get_element_by_id "root" with
   | Some root -> Html.mount root (counter ())
   | None -> failwith "No #root element found"