ElmのPortでJSを使う。 ref: http://qiita.com/jooex/items/5ff2d3b86563cf5dbd84

file0.txt

port hello : String -> Cmd msg
port jsHello : (String -> msg) -> Sub msg

file1.js

const elm = document.getElementById('elm');
const app = Elm.Test.embed(elm);   //Elmアプリケーションを起動

//ElmからJSへはsubscribe
app.ports.hello.subscribe(function(fromElm) {

  console.log(fromElm);
  //JSからElmへはsend
  app.ports.jsHello.send("Hi!");

});

//JSからElmへsend
app.ports.jsHello.send("Elm! hellooooo");

file10.js

app.ports.jsHello.send("hellooooo"); //Elmへ送る

file11.js

$(スクロール対象のセレクタ).animate({"scrollTop": $(スクロール対象のセレクタ)[0].scrollHeight}, スクロール時間);

file12.txt

port scrollDown : () -> Cmd msg

update msg model =
    ...  -> ... ! [scrollDown ()]

consoleView =
    div [id "console"] [ ...]

file13.js

const app = Elm.Main.embed(...);

app.ports.scrollDown.subscribe((_) => {

    $("#console").animate({"scrollTop": $("#console")[0].scrollHeight}, 5);

});

file14.js

const App = Elm.Main.embed(document.getElementById("main"));

document.getElementById('hoge').addEventListener("pointerdown" , (event) => {
        console.log(event);
    });

file15.js

setTimeout(function () {
    document.getElementById('hoge').addEventListener("pointerdown" , (event) => {
        console.log(event);
    });

}, 0);

file2.txt

port module Test exposing (..)

file3.txt

port 関数名 : 送る型 -> Cmd msg

file4.txt

port hello : String -> Cmd msg

file5.txt

init = "" ! [hello "Hello!JS!"]

file6.js

var elm = document.getElementById('elm');
var app = Elm.Test.embed(elm);

//Elmから受け取る！
app.ports.hello.subscribe(function(str) {
  console.log(str);
});

file7.txt

port 関数名 ： (JSからやってくる型-> msg) -> Sub msg

file8.txt

port jsHello : (String -> msg) -> Sub msg

file9.txt

type Msg = GetHello Strign                     --Msgの定義

port jsHello : (String -> msg) -> Sub msg      --JS -> Elm のport

main = program {... , subscriptions = subscriptions} --subscriptions関数に使う。

subscriptions : Model -> Sub Msg
subscriptions model = jsHello GetHello         --例。

update msg model =
  case msg of
    GetHello str -> ...                        --JSからの値はMsgになる。