Font Playground

Just playing around with fonts...

Code sample - Cascadia Mono

let extractDimensionKeyValuePairs (dim : string) =
    let tokens = dim.Split([| ',' |])
    tokens
    |> Array.map (fun x -> 
        let loc = x.IndexOf("=")
        if loc > -1 then
            (x.Substring(0, loc)), (x.Substring(loc + 1))
        else
            "MethodName", x.TrimStart('[').TrimEnd(']')
    )

Code sample - Cascadia Code

let extractDimensionKeyValuePairs (dim : string) =
    let tokens = dim.Split([| ',' |])
    tokens
    |> Array.map (fun x -> 
        let loc = x.IndexOf("=")
        if loc > -1 then
            (x.Substring(0, loc)), (x.Substring(loc + 1))
        else
            "MethodName", x.TrimStart('[').TrimEnd(']')
    )

Code sample - Consolas

let extractDimensionKeyValuePairs (dim : string) =
    let tokens = dim.Split([| ',' |])
    tokens
    |> Array.map (fun x -> 
        let loc = x.IndexOf("=")
        if loc > -1 then
            (x.Substring(0, loc)), (x.Substring(loc + 1))
        else
            "MethodName", x.TrimStart('[').TrimEnd(']')
    )

Code sample - Courier

let extractDimensionKeyValuePairs (dim : string) =
    let tokens = dim.Split([| ',' |])
    tokens
    |> Array.map (fun x -> 
        let loc = x.IndexOf("=")
        if loc > -1 then
            (x.Substring(0, loc)), (x.Substring(loc + 1))
        else
            "MethodName", x.TrimStart('[').TrimEnd(']')
    )

Code sample - Fira Code

let extractDimensionKeyValuePairs (dim : string) =
    let tokens = dim.Split([| ',' |])
    tokens
    |> Array.map (fun x -> 
        let loc = x.IndexOf("=")
        if loc > -1 then
            (x.Substring(0, loc)), (x.Substring(loc + 1))
        else
            "MethodName", x.TrimStart('[').TrimEnd(']')
    )

Code sample - Comic Sans

let extractDimensionKeyValuePairs (dim : string) =
    let tokens = dim.Split([| ',' |])
    tokens
    |> Array.map (fun x -> 
        let loc = x.IndexOf("=")
        if loc > -1 then
            (x.Substring(0, loc)), (x.Substring(loc + 1))
        else
            "MethodName", x.TrimStart('[').TrimEnd(']')
    )

Code sample - Lucida Calligraphy

let extractDimensionKeyValuePairs (dim : string) =
    let tokens = dim.Split([| ',' |])
    tokens
    |> Array.map (fun x -> 
        let loc = x.IndexOf("=")
        if loc > -1 then
            (x.Substring(0, loc)), (x.Substring(loc + 1))
        else
            "MethodName", x.TrimStart('[').TrimEnd(']')
    )