Rescript Fields

Elaborate form validation for Rescript

Fields is a module for managing the update and validation of complex input.
The singular module type Field.T describes the requirements for
creating, modifying and validating an input to produce either an output value or an error.
Using Rescript "Module Functors" Fields can be built that compose other Fields (producing a tree of Fields)
allowing validation and change reduction at each level.
An attempt was made to implement common Fields and Field Patterns, and those are a large body of the library.
see FieldArray or FieldProduct.
Each field is represented by a Field module that declares the storage, validation, and update of a value type.

Installation

* Add @nobleai/rescript-fields to your project as you like
* Add @nobleai/rescript-fields to bs-dev-dependenciesin bsconfig.json
* build -with-deps

Provided Fields

* FieldIdentity
* FieldParse
* FieldArray
* FieldSum (FieldEither)
* FieldProduct (FieldVector)
* FieldOpt

Live example

yarn install; yarn rescript build; yarn run examples:everything

Login Form Example

``{rescript}

module FieldPassword = FieldParse.String.Field module FieldUsername = FieldParse.String.Field

module InputString = { // Render a single input controlled by the form @react.component let make = (~label, ~form: Fields.Form.t>) => {


      {label->React.string}
              // input comes from the form.field
        value={form.field->FieldParse.String.Field.input}
        // Changes are made by calling form.actions functions
        onChange={e => {
          let target = e->ReactEvent.Form.target
          target["value"]->form.actions.set
        }}
      />
      // Errors are taken from form.field
      {form.field->FieldParse.String.Field.printError->Option.map(React.string)->Option.or(React.null)}


  }
}
// Declare the structure of your desired output type
// This is outside of Generic to make accessors more easily available
@deriving(accessors)
type structure<'a, 'b> = {
  username: 'b,
  password: 'a,
}
// Give fields a map from your output type to a generic container (tuple)
module Generic = {
  type structure<'a, 'b> = structure<'a, 'b>
  let order = (password, username)
  let fromTuple = ((password, username)) => {username, password}
}
// Combine the Generic and child Fields to create a product field
module Field = FieldProduct.Product2.Make(
  Generic,
  FieldUsername,
  FieldPassword,
)
// Create a runtime context that includes validations
let contextValidate: Field.context = {
  validate: ({username, password}) => {
    Ok()
    ->Result.guard(_ => username != password, "Username and password must be different")
    ->Promise.return
    // Simulate async
    ->Promise.delay(~ms=1000)
  },
  inner: {
    username: {validate: FieldParse.String.length(~min=2, ())},
    password: {validate: FieldParse.String.length(~min=6, ())},
  }
}
// Create a hook for running this field
module Form = UseField.Make(Field)
module Input = {
  // Render the inputs for a longin
  @react.component
  let make = (~form: Fields.Form.t>) => {
    // All composite fields will provide "split" to traverse into their children
    // These children will boe Form.t for each child field respectively
    let {username, password} = form->Field.split
    

      
      
    

  }
}
@react.component
let make = (~onSubmit) => {
  let form = Form.use(. 
    ~context=contextValidate,
    ~init=None,
    ~validateInit=false,
  )
  let handleSubmit = React.useMemo1( () => {
    (_) => form.field->Field.output->Option.map(onSubmit)->Option.void
  }, [form.field->Field.output])
  

    
      {"Login"->React.string}
 
      
      
    

  

}

TODO

- debounced asyc validation
- graphql async validation based on hook provided function
- optimistic update chaging form twice?
- Realign Polyvariant #A, #B, etc with sum 'a, 'b etc.

Rescript Fields

Elaborate form validation for Rescript

``{rescript}

module FieldPassword = FieldParse.String.Field
module FieldUsername = FieldParse.String.Field

module InputString = {
  // Render a single input controlled by the form
  @react.component
  let make = (~label, ~form: Fields.Form.t>) => {


      {label->React.string}
              // input comes from the form.field
        value={form.field->FieldParse.String.Field.input}
        // Changes are made by calling form.actions functions
        onChange={e => {
          let target = e->ReactEvent.Form.target
          target["value"]->form.actions.set
        }}
      />
      // Errors are taken from form.field
      {form.field->FieldParse.String.Field.printError->Option.map(React.string)->Option.or(React.null)}

}
}

// Declare the structure of your desired output type
// This is outside of Generic to make accessors more easily available
@deriving(accessors)
type structure<'a, 'b> = {
username: 'b,
password: 'a,
}

// Give fields a map from your output type to a generic container (tuple)
module Generic = {
type structure<'a, 'b> = structure<'a, 'b>

let order = (password, username)
let fromTuple = ((password, username)) => {username, password}
}

// Combine the Generic and child Fields to create a product field
module Field = FieldProduct.Product2.Make(
Generic,
FieldUsername,
FieldPassword,
)

// Create a runtime context that includes validations
let contextValidate: Field.context = {
validate: ({username, password}) => {
Ok()
->Result.guard(_ => username != password, "Username and password must be different")
->Promise.return
// Simulate async
->Promise.delay(~ms=1000)
},
inner: {
username: {validate: FieldParse.String.length(~min=2, ())},
password: {validate: FieldParse.String.length(~min=6, ())},
}
}

// Create a hook for running this field
module Form = UseField.Make(Field)

module Input = {
// Render the inputs for a longin
@react.component
let make = (~form: Fields.Form.t>) => {
// All composite fields will provide "split" to traverse into their children
// These children will boe Form.t for each child field respectively
let {username, password} = form->Field.split

}
}

@react.component
let make = (~onSubmit) => {
let form = Form.use(.
~context=contextValidate,
~init=None,
~validateInit=false,
)

let handleSubmit = React.useMemo1( () => {
(_) => form.field->Field.output->Option.map(onSubmit)->Option.void
}, [form.field->Field.output])

}