Compile a quotation with WebSharper.Compiler

gistfile1.fs

// NuGet reference: WebSharper.Compiler

open WebSharper
type AR = IntelliFactory.Core.AssemblyResolution.AssemblyResolver
module FE = WebSharper.Compiler.FrontEnd

let compile (expr: Microsoft.FSharp.Quotations.Expr) : string option =
    let loader = FE.Loader.Create (AR.Create()) (eprintfn "%O")
    let options =
        { FE.Options.Default with
            References =
                [
                    // Needed for the example belowe because it contains the proxy for (+)
                    "WebSharper.Main.dll"
                    // Add any other assemblies you need...
                ]
                |> List.map loader.LoadFile }
    let compiler = FE.Prepare options (eprintfn "%O")
    compiler.Compile expr
    |> Option.map (fun e -> e.ReadableJavaScript)

// Example call
printfn "%s" (defaultArg (compile <@ 1 + 1 @>) "Compilation failed.")

// The output is actually a full WebSharper source file that needs the WebSharper runtime
// and defines a global field WebSharper.EntryPoint.Example.