about summary refs log blame commit diff
path: root/website/sandbox/learnpianochords/src/Tempo.elm
blob: 041313614f53ef64738f8f69ce049315d54b5642 (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 Tailwind
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
              ]
                |> Tailwind.use
                |> class
            ]
            [ text (String.fromInt tempo ++ " BPM") ]
        , UI.textField
            { placeholderText = "Set tempo..."
            , handleInput = handleInput
            , classes = []
            }
        ]