Back to Questions
2.6k
views2
comments
Autoreset formlet for WebSharper
websharperf#

I created the following combinator for a scenario where the formlet took two different path depending on the input value. In one of the path I would end up with a submit button that should reset the entire formlet while in the other path I would only display data and no button.

1
2
3
4
5
6
7

module Enhance =
    let withAutoReset formlet =
        let rec autoReset() : Formlet<unit> =
            formlet
            |> Formlet.Replace <| autoReset

        autoReset()

Obviously the data-display path should never produce a value otherwise it'll reset right away so I had to do the following:

1
2

Formlet.OfElement(fun () -> content)
|> Formlet.Bind <| Formlet.Never

Hopefully someone will find this useful or have a better way of doing it :D

Here's how I use it:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

type Kind =
    | Guid of string
    | Ids of string

let page2() =
    let batchInput =
        Controls.Input ""
        |> Enhance.WithTextLabel "Guid or Ids"
        |> Validator.Is (fun input -> Validator.isGuid input || Validator.isIntList input) "Requires a Guid or list of ids"
        |> Formlet.Map (fun input ->
                match Validator.isGuid input with
                | true -> Guid input
                | _ -> Ids input
            )
        |> Enhance.WithSubmitButton

    let form =
        Formlet.Do {
            let! request = batchInput
            do!
                match request with
                | Guid guid ->
                    Formlet.OfElement(fun () -> gridForGuid guid)
                    |> Enhance.WithSubmitButton
                    |> Formlet.Map (fun _ -> process guid)
                | Ids ids ->
                    Formlet.OfElement(fun () -> gridForIds ids)
                    |> Formlet.Bind <| Formlet.Never
        }
        |> Enhance.withAutoReset

    Div [form]
.

Where is autoReset in your example?

By on 6/26/2013 3:39 AM ()

I didn't display code for our business rule implementation but I'll wrap up a simple example once I get to work.

By on 6/27/2013 4:58 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper