sexp_pretty v0.9.0 · OCaml Package

type color =

| Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
| Default

val color_of_sexp : Sexplib.Sexp.t -> color

val sexp_of_color : color -> Sexplib.Sexp.t

type atom_threshold =

| Atom_threshold of Import.int

val sexp_of_atom_threshold : atom_threshold -> Sexplib.Sexp.t

val atom_threshold_of_sexp : Sexplib.Sexp.t -> atom_threshold

type char_threshold =

| Character_threshold of Import.int

val sexp_of_char_threshold : char_threshold -> Sexplib.Sexp.t

val char_threshold_of_sexp : Sexplib.Sexp.t -> char_threshold

type depth_threshold =

| Depth_threshold of Import.int

val sexp_of_depth_threshold : depth_threshold -> Sexplib.Sexp.t

val depth_threshold_of_sexp : Sexplib.Sexp.t -> depth_threshold

type aligned_parens =

| Parens_alignment of Import.bool

val aligned_parens_of_sexp : Sexplib.Sexp.t -> aligned_parens

val sexp_of_aligned_parens : aligned_parens -> Sexplib.Sexp.t

type data_alignment =

| Data_not_aligned
| Data_aligned of aligned_parens * atom_threshold * char_threshold * depth_threshold

val data_alignment_of_sexp : Sexplib.Sexp.t -> data_alignment

val sexp_of_data_alignment : data_alignment -> Sexplib.Sexp.t

type atom_coloring =

| Color_first of Import.int
| Color_all
| Color_none

val sexp_of_atom_coloring : atom_coloring -> Sexplib.Sexp.t

val atom_coloring_of_sexp : Sexplib.Sexp.t -> atom_coloring

type comment_indent =

| Auto_indent_comment
| Indent_comment of Import.int

val sexp_of_comment_indent : comment_indent -> Sexplib.Sexp.t

val comment_indent_of_sexp : Sexplib.Sexp.t -> comment_indent

type comment_print_style =

| Pretty_print
| Conservative_print

val comment_print_style_of_sexp : Sexplib.Sexp.t -> comment_print_style

val sexp_of_comment_print_style : comment_print_style -> Sexplib.Sexp.t

type comments =

| Drop
| Print of comment_indent * color Import.option * comment_print_style

val comments_of_sexp : Sexplib.Sexp.t -> comments

val sexp_of_comments : comments -> Sexplib.Sexp.t

type atom_printing =

| Escaped
| Interpreted

val atom_printing_of_sexp : Sexplib.Sexp.t -> atom_printing

val sexp_of_atom_printing : atom_printing -> Sexplib.Sexp.t

type singleton_limit =

| Singleton_limit of atom_threshold * char_threshold

val singleton_limit_of_sexp : Sexplib.Sexp.t -> singleton_limit

val sexp_of_singleton_limit : singleton_limit -> Sexplib.Sexp.t

type paren_coloring = Import.bool

val paren_coloring_of_sexp : Sexplib.Sexp.t -> paren_coloring

val sexp_of_paren_coloring : paren_coloring -> Sexplib.Sexp.t

type separator =

| No_separator
| Empty_line

val separator_of_sexp : Sexplib.Sexp.t -> separator

val sexp_of_separator : separator -> Sexplib.Sexp.t

type parens =

| Same_line
| New_line

val parens_of_sexp : Sexplib.Sexp.t -> parens

val sexp_of_parens : parens -> Sexplib.Sexp.t

type t = {

indent : Import.int;
data_alignment : data_alignment;
color_scheme : color Import.array;
atom_coloring : atom_coloring;
atom_printing : atom_printing;
paren_coloring : paren_coloring;
opening_parens : parens;
closing_parens : parens;
comments : comments;
singleton_limit : singleton_limit;
leading_threshold : atom_threshold * char_threshold;
separator : separator;
sticky_comments : Import.bool;

}

val sexp_of_t : t -> Sexplib.Sexp.t

val t_of_sexp : Sexplib.Sexp.t -> t

val color : color -> int

package sexp_pretty