Skip to content

Commit

Permalink
🍱 Add samples from react.dev
Browse files Browse the repository at this point in the history
  • Loading branch information
Zeta611 committed Sep 12, 2024
1 parent 06ed69e commit 783229c
Show file tree
Hide file tree
Showing 4 changed files with 39 additions and 1 deletion.
2 changes: 1 addition & 1 deletion .ocamlformat-ignore
Original file line number Diff line number Diff line change
@@ -1 +1 @@
samples/*
samples/**
10 changes: 10 additions & 0 deletions samples/learn-react/conditional_rendering.ml
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
let Item isPacked =
if isPacked then
view [1]
else
view [0]
;;
let PackingList _ =
view [Item true, Item true, Item false]
;;
view [PackingList ()]
10 changes: 10 additions & 0 deletions samples/learn-react/queueing_a_series_of_state_updates.ml
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
let Counter _ =
let (number, setNumber) = useState 0 in
if number = 0 then (
setNumber (fun _ -> number + 5);
setNumber (fun n -> n + 1);
setNumber (fun _ -> 42)
);
view [number]
;;
view [Counter ()]
18 changes: 18 additions & 0 deletions samples/learn-react/your_ui_as_a_tree.ml
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
let FancyText x =
if x = 0 then
view [0]
else
view [1]
;;
let InspirationGenerator children =
let (index, setIndex) = useState 0 in
# need to have indexing
children
;;
let Copyright year =
view [year]
;;
let App _ =
view [FancyText 42, InspirationGenerator (view [Copyright 2004])]
;;
view [App ()]

0 comments on commit 783229c

Please sign in to comment.