-- Publish from an Elm app
 
 
update msg model =
  case msg of
    SendSomeMessage ->
      (model, Ports.PubSub.broadcast ("someEventHappened", Json.Encode.string "This is the payload")

-- Receive message in another Elm app
 
 
type Msg
  = ReceiveBroadcast (String, Json.Encode.Value)
 
 
subscriptions model =
  Ports.PubSub.receiveBroadcast ReceiveBroadcast
 
 
update msg model =
  case msg of
    ReceiveBroadcast ("someEventHappened", payload) ->
      case Json.Decode.decodeValue Json.Decode.string payload of
        Ok payload_ -> -- payload_ == "This is the payload"
          -- Do something with payload_