aboutsummaryrefslogtreecommitdiff
path: root/examples/server_demo/src/demo/web.gleam
blob: b8c17e2367500b1e62e5752ff5e0905d2fce4e94 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
// IMPORTS ---------------------------------------------------------------------

import gleam/http/request.{type Request as HttpRequest}
import gleam/http/response.{type Response as HttpResponse}
import gleam/result
import gleam/string_builder
import lustre/attribute.{attribute}
import lustre/element
import lustre/element/html.{html}
import lustre/server
import lustre/ui/styles
import mist.{type Connection, type ResponseData}
import wisp.{type Request, type Response}

//

pub fn handle(req: HttpRequest(Connection)) -> HttpResponse(ResponseData) {
  wisp.mist_handler(handler, "")(req)
}

fn handler(req: Request) -> Response {
  use req <- wisp.handle_head(req)
  use <- wisp.serve_static(req, under: "/static", from: static_directory())

  html([attribute("lang", "en")], [
    html.head([], [
      html.meta([attribute("charset", "utf-8")]),
      html.meta([
        attribute("name", "viewport"),
        attribute("content", "width=device-width, initial-scale=1"),
      ]),
      styles.elements(),
      html.script(
        [attribute("type", "module")],
        "
        import '/static/lustre-server-component.mjs'

        document.addEventListener('DOMContentLoaded', () => {
          document
            .querySelector('lustre-server-component')
            .addEventListener('alert', event => {
              console.log(`The server count says: ${event.detail}`)
            })
        })
        ",
      ),
    ]),
    html.body([], [server.component([server.route("/ws")])]),
  ])
  |> element.to_string_builder
  |> string_builder.prepend("<!DOCTYPE html>\n")
  |> wisp.html_response(200)
}

fn static_directory() -> String {
  wisp.priv_directory("lustre")
  |> result.unwrap("")
}