Porting to Js

embed.js

var app = Elm.Main.fullscreen()

app.ports.set.subscribe(function(keyValue) {
    var [key, value] = keyValue
    window.localStorage.setItem(key,
        JSON.stringify(value)
    )
})

app.ports.remove.subscribe(function(key) {
    localStorage.removeItem(key)
})

app.ports.clear.subscribe(function(i) {
    localStorage.clear()
})

Ports.elm

port module Ports exposing (..)

import Json.Encode


type alias Key =
    String


type alias Value =
    Json.Encode.Value


port set : ( Key, Value ) -> Cmd msg


port remove : Key -> Cmd msg


port clear : () -> Cmd msg