Fable/F# -如何将枚举或区分的联合保存到浏览器？

open Fable.Core.JsInterop

// 定义一个枚举类型
type Color =
    | Red
    | Green
    | Blue

// 将枚举类型转换为JavaScript对象
let colorToJs (color: Color) =
    match color with
    | Color.Red -> box "red"
    | Color.Green -> box "green"
    | Color.Blue -> box "blue"

// 将JavaScript对象转换为枚举类型
let colorFromJs (jsObj: obj) =
    match unbox<string> jsObj with
    | "red" -> Color.Red
    | "green" -> Color.Green
    | "blue" -> Color.Blue
    | _ -> failwith "Invalid color"

// 在JavaScript中调用F#函数
let saveColorToBrowser (color: Color) =
    JavaScript.Call("localStorage.setItem", "color", colorToJs color)

// 从JavaScript中读取F#函数
let loadColorFromBrowser () =
    let jsObj = JavaScript.Call("localStorage.getItem", "color")
    colorFromJs jsObj