@f1studio/form-spec 5.0.0-alpha.149 → 5.0.0-alpha.152

package/FormSpec.TS/fable_modules/Fable.Form.Simple.Bulma.5.0.1/FormList.fs

@@ -1,361 +0,0 @@
-namespace Fable.Form.Simple.Bulma.Fields
-
-open Fable.Form
-open Feliz
-open Feliz.Bulma
-open Fable.Form.Simple
-open Fable.Form.Simple.Bulma
-open Fable.Form.Extensions
-
-module FormList =
-
-    [<NoComparison; NoEquality>]
-    type Form<'Values, 'Field> =
-        {
-            Fields: Base.FilledField<'Field> list
-            Delete: unit -> 'Values
-        }
-
-    type Attributes =
-        {
-            FieldId: string
-            Label: string
-            Add: string option
-            Delete: string option
-        }
-
-    [<NoComparison; NoEquality>]
-    type InnerField<'Values, 'Field> =
-        {
-            Forms: Form<'Values, 'Field> list
-            Add: unit -> 'Values
-            Attributes: Attributes
-        }
-
-    [<NoComparison; NoEquality>]
-    type Config<'Values, 'ElementValues> =
-        {
-            Value: 'Values -> 'ElementValues list
-            Update: 'ElementValues list -> 'Values -> 'Values
-            Default: 'ElementValues
-            Attributes: Attributes
-        }
-
-    type ElementContext =
-        {
-            FieldIdPrefix: string
-            Index: int
-        }
-
-    [<NoComparison; NoEquality>]
-    type ElementState<'Values, 'ElementValues> =
-        {
-            FieldIdPrefix: string
-            Index: int
-            Update: 'ElementValues -> 'Values -> 'Values
-            Values: 'Values
-            ElementValues: 'ElementValues
-        }
-
-    let form<'Values, 'Field, 'ElementValues, 'Output>
-        (tagger: InnerField<'Values, 'Field> -> 'Field)
-        (formConfig: Config<'Values, 'ElementValues>)
-        (buildElement: ElementState<'Values, 'ElementValues> -> Base.FilledForm<'Output, 'Field>)
-        : Base.Form<'Values, 'Output list, 'Field>
-        =
-
-        Base.custom (fun values ->
-            let listOfElementValues = formConfig.Value values
-
-            let elementForIndex index elementValues =
-                buildElement
-                    {
-                        FieldIdPrefix = formConfig.Attributes.FieldId + "-" + string index
-                        Update =
-                            fun newElementValues values ->
-                                let newList = List.setAt index newElementValues listOfElementValues
-
-                                formConfig.Update newList values
-                        Index = index
-                        Values = values
-                        ElementValues = elementValues
-                    }
-
-            let filledElements = List.mapi elementForIndex listOfElementValues
-
-            let toForm (index: int) (form: Base.FilledForm<'Output, 'Field>) =
-                {
-                    Fields = form.Fields
-                    Delete =
-                        fun () ->
-                            let previousForms = List.take index listOfElementValues
-
-                            let nextForms = List.drop (index + 1) listOfElementValues
-
-                            formConfig.Update (previousForms @ nextForms) values
-                }
-
-            let gatherResults
-                (next: Base.FilledForm<'Output, 'Field>)
-                (current: Result<'Output list, Error.Error * Error.Error list>)
-                : Result<'Output list, Error.Error * Error.Error list>
-                =
-
-                match next.Result with
-                | Ok output -> Result.map (fun x -> output :: x) current
-
-                | Error(head, errors) ->
-                    match current with
-                    | Ok _ -> Error(head, errors)
-
-                    | Error(currentHead, currentErrors) ->
-                        Error(head, errors @ (currentHead :: currentErrors))
-
-            let result = List.foldBack gatherResults filledElements (Ok [])
-
-            let isEmpty =
-                List.fold
-                    (fun state (element: Base.FilledForm<'Output, 'Field>) ->
-                        element.IsEmpty && state
-                    )
-                    false
-                    filledElements
-
-            {
-                State =
-                    tagger
-                        {
-                            Forms = List.mapi toForm filledElements
-                            Add =
-                                fun _ ->
-                                    formConfig.Update
-                                        (listOfElementValues
-                                         @ [
-                                             formConfig.Default
-                                         ])
-                                        values
-                            Attributes = formConfig.Attributes
-                        }
-                Result = result
-                IsEmpty = isEmpty
-            }
-        )
-
-    module View =
-
-        [<NoComparison; NoEquality>]
-        type FormListConfig =
-            {
-                Forms: ReactElement list
-                Label: string
-                Add:
-                    {|
-                        Action: unit -> unit
-                        Label: string
-                    |} option
-                Disabled: bool
-            }
-
-        [<NoComparison; NoEquality>]
-        type FormListItemConfig =
-            {
-                Fields: ReactElement list
-                Delete:
-                    {|
-                        Action: unit -> unit
-                        Label: string
-                    |} option
-                Disabled: bool
-            }
-
-        let formList
-            ({
-                 Forms = forms
-                 Label = label
-                 Add = add
-                 Disabled = disabled
-             }: FormListConfig)
-            =
-
-            let addButton =
-                match disabled, add with
-                | (false, Some add) ->
-                    Bulma.button.a [
-                        prop.onClick (fun _ -> add.Action())
-
-                        prop.children [
-                            Bulma.icon [
-                                icon.isSmall
-
-                                prop.children [
-                                    Html.i [
-                                        prop.className "fas fa-plus"
-                                    ]
-                                ]
-                            ]
-
-                            Html.span add.Label
-                        ]
-                    ]
-
-                | _ -> Html.none
-
-            Bulma.field.div [
-                Bulma.control.div [
-                    Html.View.fieldLabel label
-
-                    yield! forms
-
-                    addButton
-                ]
-            ]
-
-        let formListItem
-            ({
-                 Fields = fields
-                 Delete = delete
-                 Disabled = disabled
-             }: FormListItemConfig)
-            =
-
-            let removeButton =
-                match disabled, delete with
-                | (false, Some delete) ->
-                    Bulma.button.a [
-                        prop.onClick (fun _ -> delete.Action())
-
-                        prop.children [
-                            Bulma.icon [
-                                icon.isSmall
-
-                                prop.children [
-                                    Html.i [
-                                        prop.className "fas fa-times"
-                                    ]
-                                ]
-                            ]
-
-                            if delete.Label <> "" then
-                                Html.span delete.Label
-                        ]
-                    ]
-
-                | _ -> Html.none
-
-            Html.div [
-                prop.className "form-list"
-
-                prop.children [
-                    yield! fields
-
-                    Bulma.field.div [
-                        field.isGrouped
-                        field.isGroupedRight
-
-                        prop.children [
-                            Bulma.control.div [
-                                removeButton
-                            ]
-                        ]
-                    ]
-                ]
-            ]
-
-    type Field<'Values, 'Field, 'Output, 'Value>(innerField: InnerField<'Values, IField<'Values>>) =
-
-        inherit IGenericField<'Values>()
-
-        interface IField<'Values> with
-
-            member _.MapFieldValues(update: 'Values -> 'NewValues) : IField<'NewValues> =
-                Field
-                    {
-                        Forms =
-                            List.map
-                                (fun (form: Form<'Values, IField<'Values>>) ->
-                                    {
-                                        Fields =
-                                            List.map
-                                                (fun
-                                                    (filledField: Base.FilledField<IField<'Values>>) ->
-                                                    {
-                                                        State =
-                                                            filledField.State.MapFieldValues
-                                                                update
-                                                        Error = filledField.Error
-                                                        IsDisabled = filledField.IsDisabled
-                                                        IsReadOnly = filledField.IsReadOnly
-                                                    }
-                                                )
-                                                form.Fields
-                                        Delete = fun _ -> update (form.Delete())
-                                    }
-                                )
-                                innerField.Forms
-                        Add = fun _ -> update (innerField.Add())
-                        Attributes = innerField.Attributes
-                    }
-
-        override _.RenderField
-            (fieldConfig: Form.View.FieldConfig<'Values, 'Msg>)
-            (filledField: FilledField<'Values>)
-            =
-            View.formList
-                {
-                    Forms =
-                        innerField.Forms
-                        |> List.map (fun
-                                         {
-                                             Fields = fields
-                                             Delete = delete
-                                         } ->
-                            View.formListItem
-                                {
-                                    Fields = List.map (Html.View.renderField fieldConfig) fields
-                                    Delete =
-                                        innerField.Attributes.Delete
-                                        |> Option.map (fun deleteLabel ->
-                                            {|
-                                                Action = delete >> fieldConfig.OnChange
-                                                Label = deleteLabel
-                                            |}
-                                        )
-                                    Disabled = filledField.IsDisabled || fieldConfig.Disabled
-                                }
-                        )
-                    Label = innerField.Attributes.Label
-                    Add =
-                        innerField.Attributes.Add
-                        |> Option.map (fun addLabel ->
-                            {|
-                                Action = innerField.Add >> fieldConfig.OnChange
-                                Label = addLabel
-                            |}
-                        )
-                    Disabled = filledField.IsDisabled || fieldConfig.Disabled
-                }
-
-type FormList =
-
-    static member create(fieldId: string) : FormList.Attributes =
-        {
-            FieldId = fieldId
-            Label = ""
-            Add = None
-            Delete = None
-        }
-
-    static member withLabel (label: string) (attributes: FormList.Attributes) =
-        { attributes with
-            Label = label
-        }
-
-    static member withAdd (add: string) (attributes: FormList.Attributes) =
-        { attributes with
-            Add = Some add
-        }
-
-    static member withDelete (delete: string) (attributes: FormList.Attributes) =
-        { attributes with
-            Delete = Some delete
-        }

package/FormSpec.TS/fable_modules/Fable.Form.Simple.Bulma.5.0.1/FormList.fs.ts.map

@@ -1 +0,0 @@
-{"version":3,"sources":["./FormList.fs","../Feliz.2.8.0/Properties.fs","../Feliz.Bulma.3.0.0/ElementBuilders.fs","../Feliz.2.8.0/Interop.fs","../Feliz.2.8.0/Html.fs","../Feliz.Bulma.3.0.0/Bulma.fs","../Feliz.Bulma.3.0.0/PropertyBuilders.fs","../Feliz.Bulma.3.0.0/Modifiers.fs"],"names":["listOfElementValues","formConfig","values","filledElements","buildElement","index","newElementValues","elementValues","result","matchValue","next","head","errors","current","output","x","isEmpty","element","state","tagger","form","elems","children","add","_arg1","addButton","delete","removeButton","innerField","_","formList","formListItem","fieldConfig","field","_arg3","deleteLabel","filledField","addLabel","\u0060\u0060.ctor\u0060\u0060","update","fieldId","attributes","label"],"mappings":";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;WAkEQ;AACQA,\u002BDAAsB,AAAAC,iBAAiBC;AAgBvCC,wEAAiB,oIAbjB,AAAAC,aACI,kCACoB,CAAA,AAAAH,gCAAgC,qBAAaI,QAMrDA,sEADA,AAAAJ,kBAFc,0BAAWI,OAAMC,kBAAiBN,sBAEtBE,WAEzBA,QACOK,iBAGmBP;AA8B3CQ,8GAAS;AAVHC,0GAAA,AAAAC;AAAA,gBAAA,AAAAD;AAGEE,4CACE,AAAAF;AADIG,0DACJ,AAAAH;AAAA,oBAAA,AAAAI;iHAIIF,MAAM,OAAAC,QAAU,KAAtB,AAAAC,sBAAA,AAAAA;;;iHAHYF,MAAMC;;;;AAJrBE,uCAAU,AAAAL;AAAA,uBAAA,8IAAqB,KAAAK,QAAUC,IAAGF;;WASZV,kGAAmB;AAExDa,iCACA,\u002BGAEQ,AAAAC,mBAAmBC,QAEvB,OACAf;AAER,eAAA,kBAEQ,AAAAgB,OACI,gCACY,4KAzCpB,0BACa,AAAAC,2BAOD,AAAAnB,kBAAmB,OAJC,oBAAUI,SAAML,sBAEpB,yBAAW,AAAAK,UAAQ,GAAGL,uBAEQE,WAiCrBC,\u002BBAGjB,AAAAF,kBACK,OAAAD,qBACE,UACE,AAAAC,sBAELC,SACC,AAAAD,yBAEhBO,QACCQ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;QCsSSK,iCAAAA,\u002BBCpZEC;AFiJdC,iEAHV,AAAAC;AAQGC;;AACM,QATT,AAAAD;;;SASS,IAAA,AAAUD;;;;;;;;AACDA,4EADCA;AG3KoC,AH0KpDE,wBG1KoD,mBCAd,eFqKc,uBG0VL,ULlV5B,UCg5B6C;AD/4BjC,AAAAF;kCC0PZF,WExaiC,mBCipBX,kBF5kBc,uBG2LN,QL/E1B,UMtLY,aCy/CS,\u002BBN5kCzBA,SExaiC,mBC2Yd;2BJrNC;kBCkPkC,YAAY,qCAA\u002BCA,iCExahF,mBCqpBU;2BJ1dxC,AAAAE;kBC6OmD,YAAY,qCAA\u002BCF;;;;AG4E/F,AJ1UrCI,wBI0UqC;;AFhehBH,iDAAAA,WF8KH,qBACd,kDAAA,uBAAA,0BAAA,WAjCP,AAAAE,cAmCO,kDAAA,uBAnCP,AAAAA,YAqCO,kDAAA,0BAAAC,kBGvMgD,mBCuLZ;mBCkbkC;kBJjMW,qCCpZUH;;ACpB3C,WAAA,mBCuLZ;mBC4bkC;kBJ3MW,qCCpZUA;;;;;QDoZ5ED,iCAAAA;AD1NTK,qEAFb,AAAAF;AAOGG;;AACM,QART,AAAAH;;;SAQS,IAAA,AAAUE;;;;;;;;AACDA,gFADCA;AGpNoC,AHmNpDC,2BGnNoD,mBCAd,eFqKc,uBG0VL,ULzS5B,UCu2B6C;ADt2BjC,AAAAD;kCCiNZL,UD/MG,qBACV;oBC8MOA;uBD9MP,uBAAA,0BG1NwC,mBCipBX,kBF5kBc,uBG2LN,QLtC1B,UM/NY,aCy/CS,\u002BBN5kCzBA,SExaiC,mBC2Yd;\u002BBJ5KC;sBCyMkC,YAAY,qCAA\u002BCA,kCDpMxH,mDAAA,CAAG,AAAAK,oBAAgB,MACf,0BGrOoC,mBCqpBU;\u002BBJhbpC,AAAAA;sBADd;kBCoM6D,YAAY,qCAA\u002BCL;;;;AG4E/F,AJjSrCM,2BIiSqC;;ADpfe,WAAA,mBCuLZ,iBJoDnC,UCoM\u002BC,aDnMrC,gCC4LIN,UD1LL,qBACV,kDAAA,uBAnCP,AAAAG,aAqCO;YCuLeH,iCCpZEC;eF6NjB,0BGjPgD,mBCuLZ,iBFpKc,uBG\u002BlBH,SLjY/B,UMtPe,aC8\u002BCW,iCD9\u002BCX,aC\u002B\u002BCgB,uCNlkChCD,YCpZEC,YFmOLK,eGvPoC,mBCuLZ;uBCkbkC;sBJjMW,qCCpZUL;eDoZtB,YAAY,qCAA\u002BCD;YAA3D,YAAY,qCAA\u002BCA;;;;;;;AD1KnG,0BAAAO;;;AAmChCC,wEAAAA;AAIL,eAAA,AAAAC,6BACI,uCAGW,4IAKC,AAAAC,iCACI,2CACa,6GAAU,qCAAAC,aAAAC,QANd,AAAAC,cASE;;AAEc,AAAU,AAAAF,qCAX1B,AAAAE;;mBAYeC;YAJhB,AAAAN,iCAOO,AAAAO,yBAAA,OAA0B,AAAAJ,wBAjBjD,AAAAH,qBAoBI,AAAAA,\u002BBAGD;;AAEc,AAAkB,AAAAG,qCAAlB,AAAAH;;mBACDQ;YAJhB,AAAAR,8BAOO,AAAAO,yBAAA,OAA0B,AAAAJ;;;AAjEtCH,wEAAAA;AACH,eAAA,AAAAS,0DACI,gCAEQ,uMAEQ,0BAEQ,kJAGQ,kBAEQ,AAAAF,qCACIG,SACA,AAAAH,mBACK,AAAAA,wBACA,AAAAA,0BAGrB,AAAAhB,wBACU,AAAAmB,OAAQ,AAAAnB,kBAGlC,AAAAS,mCACO,AAAAU,OAAQ,AAAAV,qBACV,AAAAA;;;;;;;;;;;;;;;;;;;;;;WA6C7B,8BACcW,SACF,IACF,WACG;;;;WAIb,8BAAA,AAAAC,oBACYC,OADZ,AAAAD,gBAAA,AAAAA;;;;WAKA,8BAAA,AAAAA,oBAAA,AAAAA,kBACelB,KADf,AAAAkB;;;;WAKA,8BAAA,AAAAA,oBAAA,AAAAA,kBAAA,AAAAA,gBACkBf","file":null,"sourcesContent":null,"sourceRoot":null}

package/FormSpec.TS/fable_modules/Fable.Form.Simple.Bulma.5.0.1/Group.fs

@@ -1,52 +0,0 @@
-namespace Fable.Form.Simple.Bulma.Fields
-
-open Feliz
-open Feliz.Bulma
-open Fable.Form.Simple
-open Fable.Form.Simple.Bulma
-
-module Group =
-
-    type Field<'Values>(fields: FilledField<'Values> list) =
-
-        inherit IGenericField<'Values>()
-
-        interface IField<'Values> with
-
-            member _.MapFieldValues(update: 'Values -> 'NewValues) : IField<'NewValues> =
-
-                fields
-                |> List.map (fun filledField ->
-                    {
-                        State = filledField.State.MapFieldValues update
-                        Error = filledField.Error
-                        IsDisabled = filledField.IsDisabled
-                        IsReadOnly = filledField.IsReadOnly
-                    }
-                    : FilledField<'NewValues>
-                )
-                |> Field
-                :> IField<'NewValues>
-
-        override _.RenderField
-            (fieldConfig: Form.View.FieldConfig<'Values, 'Msg>)
-            (_filledField: FilledField<'Values>)
-            =
-
-            let renderedFields =
-                fields
-                |> List.map (fun field ->
-                    let f1 = Html.View.ignoreChildError field.Error field
-
-                    Html.View.renderField
-                        { fieldConfig with
-                            Disabled = field.IsDisabled || fieldConfig.Disabled
-                        }
-                        f1
-                )
-
-            Bulma.field.div [
-                Bulma.columns [
-                    renderedFields |> List.map Bulma.column |> prop.children
-                ]
-            ]

package/FormSpec.TS/fable_modules/Fable.Form.Simple.Bulma.5.0.1/Group.fs.ts.map

@@ -1 +0,0 @@
-{"version":3,"sources":["./Group.fs","../Feliz.2.8.0/Properties.fs","../Feliz.Bulma.3.0.0/ElementBuilders.fs","../Feliz.2.8.0/Interop.fs","../Feliz.2.8.0/Html.fs","../Feliz.Bulma.3.0.0/Bulma.fs"],"names":["fields","elems","_","children","i","fieldConfig","field","\u0060\u0060.ctor\u0060\u0060","filledField","update"],"mappings":";;;;;;;;;;;;;;;;;AASwB,sBAAAA;;;YCwaWC;ADnZlBC,mCAAAA;AEDoBC,oDCpB\u002BB,mBCuLZ,iBFpKc,uBGiNH,WL7LrC,WCiYKF,UDhYG;AEpBDE,wDFoBUC;AGxCqB,mBAAA,mBCuLZ;2BCqDW;0BJ4LkC,qCCpZUD;;WFQ5F,6GAGC,qCACI,kBAAA,AAAAE,sBAAA,AAAAA,oBACe,AAAAC,mBAAA,OAAoB,AAAAD,sBADnC,AAAAA,wBAAA,AAAAA,wBAHK,yBAA2B,AAAAC,aAAYA,SAFpD,AAAAJ,aC6YyE,YAAY,qCAA\u002BCD;AExahF,eAAA,mBCuLZ;uBC4bkC;sBJ3MW,qCCpZUE;;;;AFd5FD,mCAAAA;AAYA,eAAA,AAAAK,2BATA,sJACC,kBACY,AAAAC,qCAAiCC,SACjC,AAAAD,mBACK,AAAAA,wBACA,AAAAA,0BANrB,AAAAN","file":null,"sourcesContent":null,"sourceRoot":null}

package/FormSpec.TS/fable_modules/Fable.Form.Simple.Bulma.5.0.1/Html.View.fs

@@ -1,246 +0,0 @@
-namespace Fable.Form.Simple.Bulma.Html
-
-open Feliz
-open Feliz.Bulma
-open Fable.Form
-open Fable.Form.Simple
-open Fable.Form.Simple.Form.View
-open Fable.Form.Simple.Bulma
-
-module View =
-
-    let fieldLabel (label: string) =
-        Bulma.label [
-            prop.text label
-        ]
-
-    let errorMessage (message: string) =
-        Bulma.help [
-            color.isDanger
-            prop.text message
-        ]
-
-    let errorMessageAsHtml (showError: bool) (error: Error.Error option) =
-        match error with
-        | Some(Error.External externalError) -> errorMessage externalError
-
-        | _ ->
-            if showError then
-                error
-                |> Option.map errorToString
-                |> Option.map errorMessage
-                |> Option.defaultValue (Bulma.help [])
-
-            else
-                Bulma.help []
-
-    let wrapInFieldContainer (children: ReactElement list) =
-        Bulma.field.div [
-            prop.children children
-        ]
-
-    let withLabelAndError
-        (label: string)
-        (showError: bool)
-        (error: Error.Error option)
-        (fieldAsHtml: ReactElement)
-        : ReactElement
-        =
-        [
-            fieldLabel label
-            Bulma.control.div [
-                fieldAsHtml
-            ]
-            errorMessageAsHtml showError error
-        ]
-        |> wrapInFieldContainer
-
-    let form
-        ({
-             OnSubmit = onSubmit
-             State = state
-             Action = action
-             Fields = fields
-         }: FormConfig<'Output, ReactElement>)
-        =
-
-        Html.form [
-            prop.onSubmit (fun ev ->
-                ev.stopPropagation ()
-                ev.preventDefault ()
-
-                match onSubmit with
-                | None -> ()
-                | Some(OnSubmit onSubmit) -> onSubmit ()
-            )
-
-            prop.children [
-                yield! fields
-
-                match state with
-                | Error error -> errorMessage error
-
-                | Success success ->
-                    Bulma.field.div [
-                        Bulma.control.div [
-                            text.hasTextCentered
-                            color.hasTextSuccess
-                            text.hasTextWeightBold
-
-                            prop.text success
-                        ]
-                    ]
-
-                | Loading
-                | ReadOnly
-                | Idle -> Html.none
-
-                match action with
-                | Action.SubmitOnly submitLabel ->
-                    Bulma.field.div [
-                        field.isGrouped
-                        field.isGroupedRight
-
-                        prop.children [
-                            Bulma.control.div [
-                                Bulma.button.button [
-                                    prop.type'.submit
-                                    color.isPrimary
-                                    prop.text submitLabel
-                                    // If the form is loading animate the submit button with the loading animation
-                                    if state = Loading then
-                                        button.isLoading
-                                ]
-                            ]
-
-                        ]
-                    ]
-
-                | Action.Custom func -> func state
-            ]
-        ]
-
-    let rec renderField<'Value, 'Attributes, 'Values when 'Attributes :> Field.IAttributes>
-        (fieldConfig: Form.View.FieldConfig<'Values, 'Value>)
-        (field: FilledField<'Values>)
-        : ReactElement
-        =
-
-        (***
-
-            It would be cleaner to use a match expression here.
-
-            ```fsharp
-            match field.State with
-            | :? IRendererField as rendererField ->
-            ```
-
-            However, by not using a match expression we make it easier to use TypeScript for creating fields.
-
-            ```typescript
-            export function renderField(dispatch, fieldConfig, field) {
-                let f1, copyOfStruct_1, value;
-                const matchValue = field.State;
-                if (matchValue instanceof IRendererField) {
-                    const rendererField = matchValue;
-                    const matchValue_1 = IRendererField__get_FieldRendererType(rendererField);
-                    if (matchValue_1.tag === 1) {
-                        // This is generic field
-                    }
-                    else {
-                        // This is standard field
-                    }
-                }
-                else {
-                    // This is an invalid field
-                }
-            }
-            ```
-
-            This is because, the match with test the instance of the object, which means that we
-            need to expose the domain to TypeScript (not easy to do, and outside of what I would
-            like to maintain).
-
-            However, by using a dynamic cast we by pass that and only work based on the shape of the object.
-
-            ```typescript
-            export function renderField(dispatch, fieldConfig, field) {
-                let value, f1, copyOfStruct_1;
-                try {
-                    const rendererField = field.State;
-                    const matchValue = IRendererField__get_FieldRendererType(rendererField);
-                    if (matchValue.tag === 1) {
-                        // This is generic field
-                    }
-                    else {
-                        // This is standard field
-                    }
-                }
-                catch (matchValue_1) {
-                    // This is an invalid field
-                }
-            }
-            ```
-
-            See how, we don't have a test against the instance of the object.
-
-            This means we could create an NPM package, to share the shape of the domain and then use that in TypeScript.
-            *)
-
-        try
-            let rendererField = field.State :?> IRendererField
-
-            match rendererField.FieldRendererType with
-            | FieldRendererType.Standard ->
-
-                let standardField = field.State :?> IStandardField<'Values, 'Value, 'Attributes>
-
-                let attributes = standardField.InnerField.Attributes
-
-                let config =
-                    {
-                        OnChange = standardField.InnerField.Update >> fieldConfig.OnChange
-                        OnBlur =
-                            fieldConfig.OnBlur
-                            |> Option.map (fun onBlurEvent ->
-                                fun () -> onBlurEvent (attributes.GetFieldId())
-                            )
-                        Disabled = field.IsDisabled || fieldConfig.Disabled
-                        IsReadOnly = field.IsReadOnly || fieldConfig.IsReadOnly
-                        Value = standardField.InnerField.Value
-                        Error = field.Error
-                        ShowError = fieldConfig.ShowError(attributes.GetFieldId())
-                        Attributes = attributes
-                    }
-
-                standardField.RenderField config
-
-            | FieldRendererType.Generic ->
-                let genericField = field.State :?> IGenericField<'Values>
-
-                genericField.RenderField fieldConfig field
-
-        with error ->
-            Fable.Core.JS.console.error error
-#if DEBUG
-            Html.div [
-                prop.text
-                    "Field not implemented, please implement the field `IStandardField<'Values>` or `IGenericField<'Values>`"
-            ]
-#else
-            Html.none
-#endif
-
-    let ignoreChildError
-        (parentError: Error.Error option)
-        (field: FilledField<'Values>)
-        : FilledField<'Values>
-        =
-
-        match parentError with
-        | Some _ -> field
-
-        | None ->
-            { field with
-                Error = None
-            }

package/FormSpec.TS/fable_modules/Fable.Form.Simple.Bulma.5.0.1/Html.View.fs.ts.map

@@ -1 +0,0 @@
-{"version":3,"sources":["../Feliz.2.8.0/Interop.fs","../Feliz.2.8.0/Html.fs","../Feliz.Bulma.3.0.0/ElementBuilders.fs","../Feliz.Bulma.3.0.0/Bulma.fs","./Html.View.fs","../Feliz.2.8.0/Properties.fs","../Feliz.Bulma.3.0.0/PropertyBuilders.fs","../Feliz.Bulma.3.0.0/Modifiers.fs"],"names":["label","message","externalError","error","errorMessage","showError","elems","children","wrapInFieldContainer","fieldLabel","fieldAsHtml","errorMessageAsHtml","state","_arg1","onSubmit","ev","matchValue","submitLabel","copyOfStruct","field","genericField","fieldConfig","standardField","attributes","config","onBlurEvent","parentError"],"mappings":";;;;;;;;;;;;;;;;;WASoE,mBC0aV,mBC5Xc,uBCkML,SC7O/C,WC2uD2C,YD1uDzCA;;;;WJJ8C,mBCmhBd,eCpYc,uBCoVN,QC3d3C,UEbgC,aCgrCU,gCFmkBE,YDpuDzCC;;;;4BAKQC;AADhB,QAAA,AAAAC;AAAA,YAAA,SACJA;;AAAoBD,4BADhB,UACJC;;;;;;;;;;;AAAsC,mBAAA,AAAAC,aAAaF;;AAGjD,gBAAGG;AAII,uBAAA,WADA,0BAAWD,cADX,0CADHD,SJnBoD,mBCmhBd,eCpYc,uBCoVN,QC7cX;;;AJtBiB,uBAAA,mBCmhBd,eCpYc,uBCoVN,QC1cnC;;;;;;QC\u002BYQG;WLxaiC,mBCuLZ,iBCpKc,uBC\u002BlBH,SCtlB3C,WC4YWA,QD3YTC,WC2Y\u002BD,YAAY,qCAA\u002BCD;;;;QHpZ/GC;WE0B1B,AAAAC,qBAPH,SACI,AAAAC,WAAWT,SFpBcO,YEsBrBG,cJ1CoD,mBCuLZ;mBEkbkC;kBEjMW,qCHpZUH;SEwBnG,AAAAI,mBAAmBN,WAAUF;;;;QC4XNG;ADrXdM,gCAFZ,AAAAC;AACeC,uCADf,AAAAD;AJjD2D,WAAA,mBC6UX,kBGpRvC,UC2tC0D;ADztC5D,AAAAE;AACA,AAAAA;AAEM,YAAA,AAAAD;AAEuB,qBAAAA;;0BCwWVR,UDrWT,qBACV,kDAAA,qBAnBP,AAAAO,aAqBO;YAAMG,0BFlDeT;eEkDrB,sBAAMS,aAAAJ,OAAA,CAAA,AAAAI,sCAIF,2BFtDiBT,YFpB\u002BB,mBCuLZ,iBCpKc,uBCqlBH,WC7hBzB,UEhFS,aCmnCiB,wCDnnCjB,aC\u002BrCgB,uCD/rChB,aCinCmB,2CFkoBP,YDpqD3C,AAAAS,8CJ1EgD,mBCuLZ;uBE4bkC;sBE3MW,qCHpZUT;gBEkDzF,CAAA,AAAAS,sCAgBI,0BH8Z2B,gBG9a/B,CAAA,AAAAA,uCAgBI,0BH8Z2B,gBG9a/B,CAAA,AAAAA,mCAgBI,0BH8Z2B,eG7apB,0BAAA,AAAAZ,aAAA,AAAAY,4BAiBX;gBCgVaV,iCHpZEC;AEoEfS,gEAvCb,AAAAH;AAuCa,gBAAA,AAAAG;AAqBkB,uBAAA,0BAAA,AAAAA,uBAAKJ;;;AApBTK,4CAChB,AAAAD;AAAA,uBAAA,0BJ1FgD,mBCuLZ,iBCpKc,uBC\u002BlBH,SCxhB/B,UE/Fe,aC8\u002BCW,iCD9\u002BCX,aC\u002B\u002BCgB,uCFlkChCV,YHpZEC,cFpB\u002BB,mBC8ET,oBChBc,uBC2bA,UCzZrB,uBAChB,sDAAA,uBAAA,6BCi1HiB,QAAO,6BDh1HxB,sDAAA,uBAAA,6BEvGe,aC2qCW,iCHnkC1B,sDAAA,uBAAA,6BC2oD2B,YD3oDjBU,gCAEV,uDAAA,AAAG,OAAAL,0BACC,6BE3GW,aCi8CW,kCHv1C1B,wCJrGgC,mBCuLZ;\u002BBEkbkC;8BEjMW,qCHpZUL;uBGoZtB,YAAY,qCAA\u002BCD;;;YAA3D,YAAY,qCAA\u002BCA;;;;uCD9N1FY;AAtBlD;AAGUF,8CAAA,sCAFc,AAAAG;AAEd,YAAA,AAAAH;AA0BEI,iCAAe,AAAAD;AAEnB,mBAAA,AAAAC,2EAAyBC,aAAYF;;;AAzBjCG,kCAAgB,AAAAH;AAEhBI,2CAAa,4DAAAD;AAEbE,2EACA,sCACe,4DAAAF;AAAA,AAAmC,AAAAD;gBAGvC;oBACwBH;AAAb,AAAAO,6BAAaP,eAAAK,YAAA,AAAAL;gBAF3B,AAAAG,qBAIO,AAAAF,mBAAA,OAAoB,AAAAE,sBAClB,AAAAF,mBAAA,OAAoB,AAAAE,wBACzB,4DAAAC,sBACA,AAAAH,aACI,AAAAE,uBAAsBH,iBAAAK,YAAA,AAAAL,\u002BBACrBK;AAGrB,mBAAA,AAAAD,\u002BEAA0BE;;;;AAQ9B,sBAA4B,KAAArB;AH8Ra,eAAA;;;;;AG9QvC,QAAA,AAAAuB;AAIF,eAAA,kBAAA,AAAAP,aACY,WADZ,AAAAA,kBAAA,AAAAA;;;eAHQA","file":null,"sourcesContent":null,"sourceRoot":null}