package sexp_diff_kernel

You can search for identifiers within the package.

in-package search v0.2.0

sexp_diff_kernel
- Sexp_diff_kernel
  - Algo
    
    Cache
  - Diff
  - Display
    
    Display_options
    
    Layout
  - Display_util_internal
    
    Color
    
    Display_options
    
    Hideable_line_pair
    
    Line
    
    Fields
    
    Direct
    
    Line_pair

Legend:
Library
Module
Module type
Parameter
Class
Class type

module Display_options : sig ... end

val display_as_plain_string : Display_options.t -> Diff.t -> string

display_as_plain_string displays the diff as a string. Here is a possible output of this function:

               (                         (
              - (apple 123)             + (apricot 321)
                (banana 1000)             (banana 1000)
                (banana 1000)             (banana 1000)
                (banana 1000)             (banana 1000)
                          ...6 unchanged lines...
                (banana 1000)             (banana 1000)
                (banana 1000)             (banana 1000)
                (banana 1000)             (banana 1000)
                                        + (durian 1234)
                (carrot                   (carrot
              -  -1                     +  42
                ))                        ))

As you can see, deletions are marked by '-' and additions are marked by '+'.

val display_as_string_with_custom_formatting : 
  Display_options.t ->
  Diff.t ->
  green:(string -> string) ->
  red:(string -> string) ->
  plain:(string -> string) ->
  string

val display_with_ansi_colors : Display_options.t -> Diff.t -> string

display_with_ansi_colors displays the same string as display_as_plain_string, but deletions and additions are marked by red and green text rather than '-' and '+'.

val two_column_display_as_list : 
  ?display_options:Display_util_internal.Display_options.t ->
  Diff.t ->
  on_full_width_message:(string -> width:int -> 'a) ->
  on_line_pair:
    (left:Display_util_internal.Line.t ->
      right:Display_util_internal.Line.t ->
      left_padding:string ->
      right_padding:string ->
      'a) ->
  'a list