let initialize_tooltips () =
    (ignore [%client ((
        Lwt.async (fun () ->
            (* We must initialize all the filter tooltips manually once the contents have loaded. *)
            let jQuery = Js.Unsafe.js_expr "jQuery" in
            let tooltips = [|Js.Unsafe.inject @@ Js.string ("[data-toggle=\"tooltip\"]")|] in

            let tooltip_initialization_function = "tooltip" in
            ignore @@ Js.Unsafe.fun_call jQuery tooltips
            |> (fun o -> Js.Unsafe.meth_call o tooltip_initialization_function [||])
          )
      ) : unit)])

let filters_form ((r, f) : react_pointer) =
    let open Eliom_shared in
    let open Html.D in
    let dropdowns = create_dropdowns (r, f) in
    let toggles = create_toggles (r, f) in
    ignore [%client ((
        Lwt.async (fun () ->
            (* We must initialize all the filter tooltips manually once the contents have loaded. *)
            Js_of_ocaml_lwt.Lwt_js_events.domContentLoaded () >>= (Lwt.return % initialize_tooltips)
          );
      ) : unit)];