package incr_dom_widgets

element_name is used for buttons. If you provide ~element_name:"foo", then the button will say "Add foo" instead of "Add".

gated_deletion means that the user must check a checkbox to enable the delete buttons. This is not strictly necessary, since the list maintains a "deleted stack" internally so that if you delete an element, the next time you press "add" it will add back the deleted element. However, users might not be aware of this functionality.

order indicates whether the order of the list elements is important. If it's not important, we only need one add button; if it's important, we need an add button between every pair of elements.

Building a record works like this: let's say you have a record 'r which has n fields of types 'f1, ..., 'fn.

First you call record ~create, supplying a create function of type 'f1 -> ... -> 'fn -> 'r. In most cases, your create function can delegate to Fields.create as in the usage example below.

This gives you a ('r, 'f1 -> ... -> 'fn -> 'r) Record_builder.t. The first type parameter 'r is a phantom type which exists only for additional type safety.

You turn this into a ('r, 'r) Record_builder.t by applying the <.*> operator once for each field, in order. First, you call it with a ('r, 'f1) Record_field.t to get a ('r, 'f2 -> .. -> 'fn -> 'r) Record_builder.t, then with a ('r, 'f2) Record_field.t to get a ('r, 'f3 -> ... -> 'fn -> 'r) Record_builder.t, and so on until you end up with a ('r, 'r) Record_builder.t. You can obtain a Record_field.t using the field function.

Finally you convert your ('r, 'r) Record_field.t into a 'r Sexp_form.t using finish_record.

Usage example:

module Foo = struct
  type t =
    { a : string
    ; b : int
    }
  [@@deriving fields, sexp_of]
end

let foo : Foo.t Sexp_form.t =
  let open Sexp_form.Primitives in
  let module Fields = Foo.Fields in
  record ~create:(fun a b -> Fields.create ~a ~b)
  <.*> field (string ()) Fields.a
  <.*> field int         Fields.b
  |> finish_record

See documentation for record.

See documentation for record.

See documentation for record.

See documentation for record.

This has some special behaviour, namely that if the input string contains no parentheses or quotes then we will treat it as an atom -- so the user can enter foo bar when a direct conversion using Sexp.of_string followed by t_of_sexp would only accept "foo bar". It can also override any error produced by ppx_sexp using on_error, since the errors produced by ppx_sexp are not always easy for the user to understand.

variant takes a list of Case.ts. Case.ts are created by case and case_raw. When you create a case from a variant constructor for variant 'v, say a case with arguments of types 'a1, ..., 'an, you get a ('a1 -> ... -> 'an -> 'v) Case.t. You turn this into a 'v Case.t by applying the <|*> operator once per argument. Then you turn a 'v Case.t list into a 'v Sexp_form.t using variant.

Usage example:

module Foo = struct
  type t =
    | A
    | B of int
    | C of int * string
  [@@deriving variants, sexp_of, compare]
end

let foo : Foo.t Sexp_form.t =
  let open Sexp_form.Primitives in
  variant
    (Variants.fold
       ~init:[]
       ~a:(fun acc a ->  case a                          :: acc)
       ~b:(fun acc b -> (case b <|*> int)                :: acc)
       ~c:(fun acc c -> (case c <|*> int <|*> string ()) :: acc))

By default, the error message lists all the possible variants, as in "Please select an option: Foo | Bar". If there are a lot of variants and you don't want this, you can use don't_state_options_in_error.

Mainly useful for polymorphic variants. For example, the following produces a `Foo of int Case.t:

case_raw ~name:"Foo" ~constructor:(fun x -> `Foo x) <|*> positive_int

See documentation for variant.

See documentation for variant.

Allows the user to choose from a list of 'as, which are displayed using the provided names in the dropdown, or enter their own choice by selecting "Other" in the dropdown.

This function is a wrapper around variant and case_raw. It's useful with ppx_enumerate:

module Foo = struct
  type t =
    | A
    | B
    | C
    | D
  [@@deriving enumerate, variants]
end

let foo : Foo.t Sexp_form.t =
  Sexp_form.Primitives.enumeration Foo.all ~to_string:Foo.Variants.to_name

This is displayed as a dropdown with options A, B, C, and D.

By default, the error message lists all the possible variants, as in "Please select an option: Foo | Bar". If there are a lot of variants and you don't want this, you can use don't_state_options_in_error.

For recursive data types. Note: recursive Fn.id will go into an infinite loop when you call to_interactive on it.

Here's an example of proper usage:

module MyList = struct
  type t =
    | Nil
    | Cons of int * t
  [@@deriving variants]
end
let my_list_editor : MyList.t Sexp_form.t =
  let open Sexp_form.Primitives in
  recursive (fun my_list_editor ->
    variant
      (MyList.Variants.fold
         ~init:[]
         ~nil: (fun acc nil   ->  case nil                                :: acc)
         ~cons:(fun acc const -> (case cons <|*> int <|*> my_list_editor) :: acc)))

This is useful for e.g. specifying default values when the user creates a new element in a list. If you want a default value for the whole form, consider using Init.with_default, which also shows the user a diff summarizing their edits.

These only affect formatting, not functionality.

Hides the form by default, giving the user a checkbox to un-collapse the form if they wish.