Hazel go brr

hazelgrove · Aug 16, 2024 · fa8503f · fa8503f
1 parent 4b3d9fb
commit fa8503f
Show file tree

Hide file tree

Showing 6 changed files with 13 additions and 3 deletions.
diff --git a/dune-project b/dune-project
@@ -21,6 +21,7 @@
  ; (tags
  ; (topics "to describe" your project))
  (depends
+  brr
   (ocaml
    (>= 5.2.0))
   (menhir

diff --git a/hazel.opam b/hazel.opam
diff --git a/hazel.opam.locked b/hazel.opam.locked
diff --git a/src/haz3lcore/dune b/src/haz3lcore/dune
@@ -15,7 +15,7 @@
 (env
  (dev
   (js_of_ocaml
-   (flags :standard --debuginfo --noinline --dynlink --linkall --sourcemap)))
+   (flags :standard --toplevel --debuginfo --noinline --dynlink --linkall --sourcemap)))
  (release
   (js_of_ocaml
    (flags :standard))))
diff --git a/src/haz3lweb/Main.re b/src/haz3lweb/Main.re
@@ -2,7 +2,6 @@ open Util;
 open Js_of_ocaml;
 open Incr_dom;
 open Haz3lweb;
-
 let scroll_to_caret = ref(true);
 let edit_action_applied = ref(true);
 let last_edit_action = ref(JsUtil.timestamp());
@@ -76,6 +75,7 @@ module App = {
   module State = State;
 
   let on_startup = (~schedule_action, m: Model.t) => {
+    Brr_poke.define();
     let _ =
       observe_font_specimen("font-specimen", fm =>
         schedule_action(Haz3lweb.Update.SetMeta(FontMetrics(fm)))

diff --git a/src/haz3lweb/dune b/src/haz3lweb/dune
@@ -9,6 +9,9 @@
  (name workerServer)
  (modules WorkerServer)
  (libraries
+  brr
+  brr.poke
+  str
   incr_dom
   virtual_dom.input_widgets
   util
@@ -59,7 +62,9 @@
  (name main)
  (modules Main)
  (libraries ppx_yojson_conv.expander haz3lweb)
+ (link_flags -linkall)
  (modes js)
+
  (preprocess
   (pps
    ppx_yojson_conv
@@ -73,13 +78,14 @@
  (modules Worker)
  (libraries workerServer)
  (modes js)
+ (link_flags -linkall)
  (preprocess
   (pps js_of_ocaml-ppx)))
 
 (env
  (dev
   (js_of_ocaml
-   (flags :standard --debuginfo --noinline --dynlink --linkall --sourcemap)))
+   (flags :standard --toplevel --debuginfo --noinline --dynlink --linkall --sourcemap)))
  (release
   (js_of_ocaml
    (flags (:standard)))))
-Original file line number
+Diff line change
@@ Expand Up / @@ -21,6 +21,7 @@ @@
      ; (tags
      ; (topics "to describe" your project))
      (depends
+      brr
       (ocaml
        (>= 5.2.0))
       (menhir
@@ Expand Down @@