[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 ("
\n"); - add "
\n" - | _ -> super#html_of_custom_text buff start text + | "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 ("
\n"); + add "
\n" + | _ -> super#html_of_custom_text buff start text hunk ./src/utils.mli 38 + hunk ./src/utils.mli 42 -(** [write_lines filename lines] writes the lines from [lines] to the file +(** [write_lines filename lines] writes the strings from [lines] to the file hunk ./src/utils.mli 44 +