Pretty_print_config (sexp_pretty.Sexp_pretty.Pretty_print

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 atom_threshold_of_sexp : Sexplib.Sexp.t ‑> atom_threshold

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 char_threshold_of_sexp : Sexplib.Sexp.t ‑> char_threshold

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 depth_threshold_of_sexp : Sexplib.Sexp.t ‑> depth_threshold

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 atom_coloring_of_sexp : Sexplib.Sexp.t ‑> atom_coloring

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 comment_indent_of_sexp : Sexplib.Sexp.t ‑> comment_indent

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;

}