haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #59 from dbuenzli/master 

Support for React 1.0.0.
This commit is contained in:
Jérémie Dimino 2014-04-04 14:55:21 +01:00
parent d316ebe421 089aed899a
commit 34c65a4a03
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/uTop.ml
View File

@ -44,6 +44,7 @@ let get_ui () = S.value UTop_private.ui
type profile = Dark | Light type profile = Dark | Light
let profile, set_profile = S.create Dark let profile, set_profile = S.create Dark
let set_profile p = set_profile p
let size = UTop_private.size let size = UTop_private.size
@ -57,6 +58,7 @@ let () = at_new_command (fun () -> time := Unix.time ())
let make_variable ?eq x = let make_variable ?eq x =
let signal, set = S.create ?eq x in let signal, set = S.create ?eq x in
let set v = set v in
(signal, (fun () -> S.value signal), set) (signal, (fun () -> S.value signal), set)
type syntax = type syntax =

6
src/lib/uTop_private.ml
View File

@ -11,11 +11,13 @@ open Lwt_react
let size, set_size = let size, set_size =
let ev, set_size = E.create () in 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 key_sequence, set_key_sequence =
let ev, set_key_sequence = E.create () in 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) let count, set_count = S.create (-1)