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

module Context =

    let WithSettings (settings: seq<string * string>) (ctx: Context<'T>) : Context<'T> =
        let settings = dict settings
        let getSetting k =
            match settings.TryGetValue(k) with
            | true, x -> Some x
            | false, _ -> ctx.ResourceContext.GetSetting k
        { ctx with ResourceContext = { ctx.ResourceContext with GetSetting = getSetting } }

module Sitelet =

    let MapContext (f: Context<'T> -> Context<'T>) (sitelet: Sitelet<'T>) : Sitelet<'T> =
        { sitelet with
            Controller = { Handle = fun action ->
                Content.CustomContentAsync <| fun ctx ->
                    Content.ToResponse (sitelet.Controller.Handle action) (f ctx)
            }
        }

    let WithSettings (settings: seq<string * string>) (sitelet: Sitelet<'T>) : Sitelet<'T> =
        MapContext (Context.WithSettings settings) sitelet

// Example use:
[<Website>]
let Main =
    Application.MultiPage (fun ctx endpoint -> (* your application... *))
    |> Sitelet.WithSettings [
        "WebSharper.JQuery.Resources.JQuery", "https://code.jquery.com/jquery-1.11.0.min.js"
    ]