From 089aed899ad4cafbddbb0e6d34ceb5cad02db992 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20B=C3=BCnzli?= Date: Thu, 27 Mar 2014 13:58:45 +0100 Subject: [PATCH] Support for React 1.0.0. --- src/lib/uTop.ml | 2 ++ src/lib/uTop_private.ml | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/lib/uTop.ml b/src/lib/uTop.ml index 7ee5bf4..28a034f 100644 --- a/src/lib/uTop.ml +++ b/src/lib/uTop.ml @@ -44,6 +44,7 @@ let get_ui () = S.value UTop_private.ui type profile = Dark | Light let profile, set_profile = S.create Dark +let set_profile p = set_profile p let size = UTop_private.size @@ -57,6 +58,7 @@ let () = at_new_command (fun () -> time := Unix.time ()) let make_variable ?eq x = let signal, set = S.create ?eq x in + let set v = set v in (signal, (fun () -> S.value signal), set) type syntax = diff --git a/src/lib/uTop_private.ml b/src/lib/uTop_private.ml index 0f7ebed..8756833 100644 --- a/src/lib/uTop_private.ml +++ b/src/lib/uTop_private.ml @@ -11,11 +11,13 @@ open Lwt_react let size, set_size = let ev, set_size = E.create () in - (S.switch (S.const { LTerm_geom.rows = 25; LTerm_geom.cols = 80 }) ev, set_size) + let init = S.const { LTerm_geom.rows = 25; LTerm_geom.cols = 80 } in + (S.switch (S.hold ~eq:( == ) init ev), set_size) let key_sequence, set_key_sequence = let ev, set_key_sequence = E.create () in - (S.switch (S.const ([] : LTerm_key.t list)) ev, set_key_sequence) + let init = (S.const ([] : LTerm_key.t list)) in + (S.switch (S.hold ~eq:( == ) init ev), set_key_sequence) let count, set_count = S.create (-1)