about summary refs log blame commit diff
path: root/website/sandbox/learnpianochords/src/Tempo.elm
blob: a1afd776acb406b125fbc6bcae45e440c64e7242 (plain) (tree)
1
2
3
4
5
6
7
8
9




                                    
                 
         
 
 
                      
                 


                                 

                              

                               







                                                     




                                              
         
module Tempo exposing (render)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Responsive
import UI


type alias Props msg =
    { tempo : Int
    , handleInput : String -> msg
    }


render : Props msg -> Html msg
render { tempo, handleInput } =
    div [ class "text-center" ]
        [ p
            [ [ "py-10"
              , Responsive.h2
              ]
                |> UI.tw
                |> class
            ]
            [ text (String.fromInt tempo ++ " BPM") ]
        , UI.textField
            { placeholderText = "Set tempo..."
            , handleInput = handleInput
            , classes = []
            }
        ]