package sexp_pretty

  1. Overview
  2. Docs
type color =
  1. | Black
  2. | Red
  3. | Green
  4. | Yellow
  5. | Blue
  6. | Magenta
  7. | Cyan
  8. | White
  9. | Default
val color_of_sexp : Sexplib.Sexp.t -> color
val sexp_of_color : color -> Sexplib.Sexp.t
type atom_threshold =
  1. | 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 =
  1. | 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 =
  1. | 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 =
  1. | 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 =
  1. | Data_not_aligned
  2. | 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 =
  1. | Color_first of Import.int
  2. | Color_all
  3. | 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 =
  1. | Auto_indent_comment
  2. | 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 =
  1. | Pretty_print
  2. | 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 =
  1. | Drop
  2. | 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 =
  1. | Escaped
  2. | Interpreted
val atom_printing_of_sexp : Sexplib.Sexp.t -> atom_printing
val sexp_of_atom_printing : atom_printing -> Sexplib.Sexp.t
type singleton_limit =
  1. | 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 =
  1. | No_separator
  2. | Empty_line
val separator_of_sexp : Sexplib.Sexp.t -> separator
val sexp_of_separator : separator -> Sexplib.Sexp.t
type parens =
  1. | Same_line
  2. | New_line
val parens_of_sexp : Sexplib.Sexp.t -> parens
val sexp_of_parens : parens -> Sexplib.Sexp.t
type t = {
  1. indent : Import.int;
  2. data_alignment : data_alignment;
  3. color_scheme : color Import.array;
  4. atom_coloring : atom_coloring;
  5. atom_printing : atom_printing;
  6. paren_coloring : paren_coloring;
  7. opening_parens : parens;
  8. closing_parens : parens;
  9. comments : comments;
  10. singleton_limit : singleton_limit;
  11. leading_threshold : atom_threshold * char_threshold;
  12. separator : separator;
  13. sticky_comments : Import.bool;
}
val sexp_of_t : t -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> t
val color : color -> int