Fable JS tagged templates

test.fs

open System
open System.Text.RegularExpressions
open Fable.Core

let getJsTemplate (s: FormattableString) =
    let str = s.Format
    let mutable prevIndex = 0
    let matches = Regex.Matches(str, @"{\d+}")
    Array.init (matches.Count + 1) (fun i ->
        if i < matches.Count then
            let m = matches.[i]
            let idx = prevIndex
            prevIndex <- m.Index + m.Length
            str.Substring(idx, m.Index - idx)
        else
            str.Substring(prevIndex)), s.GetArguments()

type LitComponent = interface end

type Lit =
    [<ImportMember("lit-html")>]
    static member html(strs: string[], [<ParamArray>] args: obj[]): LitComponent = jsNative

let test() =
    let name = "Angel"
    let strs, args = getJsTemplate $"<div>Hello {name}</div>"
    Lit.html(strs, args)