From f0803547e47827a3fb3b9fb1f89949fa270b6d8e Mon Sep 17 00:00:00 2001 From: William Carroll Date: Sat, 18 Apr 2020 13:30:38 +0100 Subject: "Chord Drill Sergeant" -> "Learn Piano Chords" In the spirit of "keep it simple, stupid", I am naming this application as closely to the functionality as I can imagine. --- website/sandbox/learnpianochords/src/Tempo.elm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 website/sandbox/learnpianochords/src/Tempo.elm (limited to 'website/sandbox/learnpianochords/src/Tempo.elm') diff --git a/website/sandbox/learnpianochords/src/Tempo.elm b/website/sandbox/learnpianochords/src/Tempo.elm new file mode 100644 index 000000000000..50485c4c0aba --- /dev/null +++ b/website/sandbox/learnpianochords/src/Tempo.elm @@ -0,0 +1,24 @@ +module Tempo exposing (render) + +import Html exposing (..) +import Html.Attributes exposing (..) +import Html.Events exposing (..) +import UI + + +type alias Props msg = + { tempo : Int + , handleInput : String -> msg + } + + +render : Props msg -> Html msg +render { tempo, handleInput } = + div [ class "text-center" ] + [ p [ class "text-5xl py-10" ] [ text (String.fromInt tempo ++ " BPM") ] + , UI.textField + { placeholderText = "Set tempo..." + , handleInput = handleInput + , classes = [] + } + ] -- cgit 1.4.1