toplevel emits round trip pprint of ast to console.

dune

@@ -4,6 +4,15 @@
    (build_runtime_flags :standard --no-inline --debug-info)
    (link_flags :standard))))
 
+(library
+ (name log_js)
+  (modes byte)
+ (preprocess (pps js_of_ocaml-ppx))
+ (flags (:standard -rectypes -linkall))
+ (modules log_js)
+ (libraries
+   logs))
+
 (executable
  (name boot_js)
  (modes byte js)
@@ -12,7 +21,6 @@
  (modules boot_js human)
  (libraries
    fmt
-   logs
    graphv_webgl
    js_of_ocaml-lwt
    js_of_ocaml-compiler
@@ -27,12 +35,12 @@
    uri
    gg
    lwd
+   log_js
 ))
 
 (executables
  (names toplevel)
- (modules
-  (:standard \ human boot_js test_dynlink examples))
+ (modules toplevel ppx_graph)
  (libraries
   js_of_ocaml-compiler
   js_of_ocaml-tyxml
@@ -42,29 +50,13 @@
   ;; not used directly
   graphics
   js_of_ocaml.deriving
+  js_of_ocaml-lwt.graphics
+  js_of_ocaml-ppx.as-lib
+  ocp-indent.lib
   react
   reactiveData
   str
-  (select
-   ocp_indent.ml
-   from
-   (ocp-indent.lib -> ocp_indent.ok.ml)
-   (-> ocp_indent.fake.ml))
-  (select
-   colorize.ml
-   from
-   (higlo -> colorize.higlo.ml)
-   (!higlo -> colorize.fake.ml))
-  (select
-   graphics_support.ml
-   from
-   (js_of_ocaml-lwt.graphics -> graphics_support.enabled.ml)
-   (-> graphics_support.disabled.ml))
-  (select
-   ppx_support.ml
-   from
-   (js_of_ocaml-ppx -> ppx_support.enabled.ml)
-   (-> ppx_support.disabled.ml)))
+  log_js)
  (flags
   (:standard -rectypes -linkall))
  (modes byte)