FocusInput.elm

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Html.App exposing (..)
import Dom
import Task

type Msg
  = Click
  | NoOp

main =
  program
    { init = "" ! []
    , view = view
    , update = update
    , subscriptions = \_ -> Sub.none
    }


view model =
  div []
    [ input [ id "focus-me" ] []
    , button [ onClick Click ] [ text "Focus" ]
    ]


update msg model =
  case msg of
    Click ->
      model ! [Task.perform (always NoOp) (always NoOp) (Dom.focus "focus-me")]

    _ ->
      model ! []