BrokenElmPortsExample.elm

import Html exposing (div, button, text)
import Html.Events exposing (onClick)
import Signal exposing (Mailbox, mailbox, send)
import StartApp.Simple as StartApp

main =
  StartApp.start { model = model, view = view, update = update }

model = "hi"

port getURL : Signal (String)

view address model =
  div []
    [ div [] [ text model ]
    , button [ onClick address SetURL ] [ text "SET" ]
    ]

type Action = SetURL | ResetURL

update action model =
  case action of
    SetURL -> "Set URL"
    ResetURL -> "Reset"

{-
In Javascript: 

$(document).ready(function(){
    $("#search-form").submit(function(event){
        elm.ports.getURL.send(this.baseURI);
        event.preventDefault();
    });

    var div = document.getElementById('testelm');
    // embed our Elm program in that <div>
    let elm = Elm.embed(Elm.Test, div, {
        getURL: 'URL not set'
    });
});
-}