reactquerybuilder.fs

module ReactQueryBuilder

open Fable.Core
open Fable.Import
open Fable.Import.React
open Fable.Core.JsInterop
open Fable.Helpers.React.Props
open System

// TODO
// * Can we have Pojo properties be uppercase, but lowercase in JS generation?  Cosmetic.

type Name = string
type Label = string

[<Pojo>]
type Field = {
    name : Name
    label : Label }

[<StringEnum>]
type CombinatorName = And | Or

[<Pojo>]
type Combinator = {
    name : CombinatorName
    label : Label }

type internal IQueryBuilderProp =
    inherit IHTMLProp

type QueryBuilderProps =
    | Fields of Field array
    | Combinators of Combinator array 
    interface IQueryBuilderProp

let QueryBuilder = importDefault<ComponentClass<obj>> "react-querybuilder"
let inline queryBuilder (htmlProps: IHTMLProp list) = Fable.Helpers.React.from QueryBuilder (keyValueList CaseRules.LowerFirst htmlProps) []