forked from
anil.recoil.org/monopam-myspace
My aggregated monorepo of OCaml code, automaintained
Merge commit '38bf51badbd46cf3a8b6f73a5e6cc03fa8d62899' as 'mime_printer'
+92
+25
mime_printer/dune-project
+25
mime_printer/dune-project
···
1
+
(lang dune 2.0)
2
+
(name mime_printer)
3
+
4
+
(source
5
+
(github jonludlam/mime_printer))
6
+
7
+
(license ISC)
8
+
9
+
(authors "Jon Ludlam <jon@recoil.org>")
10
+
11
+
(maintainers "Jon Ludlam <jon@recoil.org>")
12
+
13
+
(generate_opam_files true)
14
+
15
+
(package
16
+
(name mime_printer)
17
+
(synopsis "Mime printer for rich toplevels")
18
+
(description "Mime printer for rich toplevels")
19
+
(depends
20
+
(ocaml
21
+
(>= 4.08.0))
22
+
(dune
23
+
(>= 3.0.0))))
24
+
25
+
+15
mime_printer/mime_printer.install
+15
mime_printer/mime_printer.install
···
1
+
lib: [
2
+
"_build/install/default/lib/mime_printer/META"
3
+
"_build/install/default/lib/mime_printer/dune-package"
4
+
"_build/install/default/lib/mime_printer/mime_printer.a"
5
+
"_build/install/default/lib/mime_printer/mime_printer.cma"
6
+
"_build/install/default/lib/mime_printer/mime_printer.cmi"
7
+
"_build/install/default/lib/mime_printer/mime_printer.cmt"
8
+
"_build/install/default/lib/mime_printer/mime_printer.cmx"
9
+
"_build/install/default/lib/mime_printer/mime_printer.cmxa"
10
+
"_build/install/default/lib/mime_printer/mime_printer.ml"
11
+
"_build/install/default/lib/mime_printer/opam"
12
+
]
13
+
libexec: [
14
+
"_build/install/default/lib/mime_printer/mime_printer.cmxs"
15
+
]
+20
mime_printer/mime_printer.ml
+20
mime_printer/mime_printer.ml
···
1
+
type encoding = Noencoding | Base64
2
+
type t = { mime_type : string; encoding : encoding; data : string }
3
+
4
+
let dummy = { mime_type="text/odoc"; encoding=Noencoding; data="hello"}
5
+
let outputs : t list ref = ref []
6
+
7
+
let push ?(encoding = Noencoding) mime_type data =
8
+
outputs := { mime_type; encoding; data } :: !outputs
9
+
10
+
let get () =
11
+
let result = !outputs in
12
+
outputs := [];
13
+
result
14
+
15
+
let to_odoc x =
16
+
match String.split_on_char '/' x.mime_type, x.encoding with
17
+
| ["image"; "svg"], Noencoding -> Printf.sprintf "{%%html: %s %%}" x.data
18
+
| "image"::_, Base64 -> Printf.sprintf "{%%html: <img src=\"data:%s;base64,%s\" /> %%}" x.mime_type x.data
19
+
| "text"::"odoc"::[], Noencoding -> x.data
20
+
| _ -> ""
+28
mime_printer/mime_printer.opam
+28
mime_printer/mime_printer.opam
···
1
+
# This file is generated by dune, edit dune-project instead
2
+
opam-version: "2.0"
3
+
synopsis: "Mime printer for rich toplevels"
4
+
description: "Mime printer for rich toplevels"
5
+
maintainer: ["Jon Ludlam <jon@recoil.org>"]
6
+
authors: ["Jon Ludlam <jon@recoil.org>"]
7
+
license: "ISC"
8
+
homepage: "https://github.com/jonludlam/mime_printer"
9
+
bug-reports: "https://github.com/jonludlam/mime_printer/issues"
10
+
depends: [
11
+
"ocaml" {>= "4.08.0"}
12
+
"dune" {>= "3.0.0"}
13
+
]
14
+
build: [
15
+
["dune" "subst"] {pinned}
16
+
[
17
+
"dune"
18
+
"build"
19
+
"-p"
20
+
name
21
+
"-j"
22
+
jobs
23
+
"@install"
24
+
"@runtest" {with-test}
25
+
"@doc" {with-doc}
26
+
]
27
+
]
28
+
dev-repo: "git+https://github.com/jonludlam/mime_printer.git"