package memtrace_viewer

  1. Overview
  2. Docs
package memtrace_viewer
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file window_size.ml

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
open! Core
open! Bonsai_web

type t =
  { width : int
  ; height : int
  }
[@@deriving equal, sexp]

let get () =
  let open Js_of_ocaml in
  let width = Dom_html.window##.innerWidth in
  let height = Dom_html.window##.innerHeight in
  { width; height }
;;

let window_size = Bonsai.Var.create (get ())
let update_window_size () = Bonsai.Var.set window_size (get ())

let component =
  let open Bonsai.Let_syntax in
  let%sub () =
    Bonsai.Edge.after_display (Value.return (Effect.of_sync_fun update_window_size ()))
  in
  return (Bonsai.Var.value window_size |> Bonsai.Value.cutoff ~equal)
;;