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

macro_recorder -> macro 

Ignore-this: 659d56e3d7c966c687965c052553b390

darcs-hash:20110802080112-c41ad-f3d0b8b6bf365528f9bdc6b6624101abf7c9d2db
This commit is contained in:
Jeremie Dimino 2011-08-02 10:01:12 +02:00
parent c6827f1ba3
commit 3eb669e327
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/uTop.ml
View File

@ -88,7 +88,7 @@ let make_prompt profile count size recording macro_count =
] ]
) [|(UChar.of_char '#', { none with foreground = Some (color lgreen green) }); (UChar.of_char ' ', none)|] ) [|(UChar.of_char '#', { none with foreground = Some (color lgreen green) }); (UChar.of_char ' ', none)|]
let prompt = ref (S.l5 make_prompt profile count size (Zed_macro.recording LTerm_read_line.macro_recorder) (Zed_macro.count LTerm_read_line.macro_recorder)) let prompt = ref (S.l5 make_prompt profile count size (Zed_macro.recording LTerm_read_line.macro) (Zed_macro.count LTerm_read_line.macro))
let prompt_continue = ref (S.map (fun profile -> [|(UChar.of_char '>', { none with foreground = Some (if profile = Dark then lgreen else green) }); (UChar.of_char ' ', LTerm_style.none)|]) profile) let prompt_continue = ref (S.map (fun profile -> [|(UChar.of_char '>', { none with foreground = Some (if profile = Dark then lgreen else green) }); (UChar.of_char ' ', LTerm_style.none)|]) profile)
let prompt_comment = ref (S.map (fun profile -> [|(UChar.of_char '*', { none with foreground = Some (if profile = Dark then lgreen else green) }); (UChar.of_char ' ', LTerm_style.none)|]) profile) let prompt_comment = ref (S.map (fun profile -> [|(UChar.of_char '*', { none with foreground = Some (if profile = Dark then lgreen else green) }); (UChar.of_char ' ', LTerm_style.none)|]) profile)
@ -177,7 +177,7 @@ You can use the following commands to get more help:
Hashtbl.add Toploop.directive_table "utop_macro" Hashtbl.add Toploop.directive_table "utop_macro"
(Toploop.Directive_none (Toploop.Directive_none
(fun () -> (fun () ->
let macro = Zed_macro.contents LTerm_read_line.macro_recorder in let macro = Zed_macro.contents LTerm_read_line.macro in
List.iter List.iter
(fun action -> (fun action ->
output_string stdout (LTerm_read_line.name_of_action action); output_string stdout (LTerm_read_line.name_of_action action);