[MINOR: some whitespace issues.
argot@x9c.fr**20111102160700
Ignore-this: f7a09dccfe7e8815a1f6754c97615115
] hunk ./src/definitions.mli 31
-(** [add defs name value] adds a binding from [name] to [value] to the set of
- definitions [defs]. *)
+(** [add defs name value] adds a binding from [name] to [value] to the set
+ of definitions [defs]. *)
hunk ./src/definitions.mli 35
-(** [add_from_file defs filename] adds the bindings read from the file named
- [filename] to the set of definitions [defs]. *)
+(** [add_from_file defs filename] adds the bindings read from the file
+ named [filename] to the set of definitions [defs]. *)
hunk ./src/main.ml 112
- | "image" ->
- let filename = self#trimmed_string_of_text text in
- let basename = Filename.basename filename in
- let contents = Base64.encode_file filename in
- add ""
- | "fold" ->
- let id = string_of_int next_fold_id in
- next_fold_id <- succ next_fold_id;
- let text = Printf.sprintf "%S" (self#trimmed_string_of_text text) in
- add "\n";
- add ("...\n");
- add ("