forked from
anil.recoil.org/monopam-myspace
My aggregated monorepo of OCaml code, automaintained
Remove mime_printer to re-add as proper subtree
The directory was never added via git subtree, causing monopam sync failures.
-51
-20
mime_printer/mime_printer.ml
-20
mime_printer/mime_printer.ml
···
1
-
(** Minimal MIME printer for producing rich output (HTML, SVG, images)
2
-
from OCaml toplevel code. *)
3
-
4
-
type encoding = Noencoding | Base64
5
-
6
-
type t = {
7
-
mime_type : string;
8
-
encoding : encoding;
9
-
data : string;
10
-
}
11
-
12
-
let store : t list ref = ref []
13
-
14
-
let push ?(encoding = Noencoding) mime_type data =
15
-
store := { mime_type; encoding; data } :: !store
16
-
17
-
let get () =
18
-
let result = List.rev !store in
19
-
store := [];
20
-
result
-15
mime_printer/mime_printer.mli
-15
mime_printer/mime_printer.mli
···
1
-
(** Minimal MIME printer for producing rich output from OCaml toplevel code. *)
2
-
3
-
type encoding = Noencoding | Base64
4
-
5
-
type t = {
6
-
mime_type : string;
7
-
encoding : encoding;
8
-
data : string;
9
-
}
10
-
11
-
val push : ?encoding:encoding -> string -> string -> unit
12
-
(** [push ?encoding mime_type data] pushes a MIME value. *)
13
-
14
-
val get : unit -> t list
15
-
(** [get ()] returns and clears all accumulated MIME values. *)