Documentation

Trigger an action for an arbitrary HyperView

instance HyperView Controls es where
  type Require Controls = '[Targeted]

  data Action Controls = TriggerMessage
    deriving (Generic, ViewAction)

  update TriggerMessage = do
    trigger Targeted $ SetMessage "Triggered!"
    pure controlView

Dispatch a custom javascript event. This is emitted on the current hyper view and bubbles up to the document

instance HyperView Message es where
  data Action Message = AlertMe
    deriving (Generic, ViewAction)

  update AlertMe = do
    pushEvent "server-message" ("hello" :: Text)
    pure "Sent 'server-message' event"

function listenServerEvents() {
  // you can listen on document instead, the event will bubble
  Hyperbole.hyperView(Message).addEventListener("server-message", function(e) {
    alert("Server Message: " + e.detail)
  })
}

Set the document title

page :: (Hyperbole :> es) => Page es '[]
page = do
  pageTitle "My Page Title"
  pure $ el "Hello World"