src/FundLab.Web/App.fs


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
31
32
33
34
35
36
37
38
39
40
41

module FundLab.Web

open Elmish
open Elmish.React
open Feliz

type Model =
    {
        hasFund: bool
    }

type Msg =
    | CreateFundRequested

let init () =
    { hasFund = false }

let update message model =
    match message with
    | CreateFundRequested -> model

let view model dispatch =
    Html.main [
        prop.className "empty-state"
        prop.children [
            Html.p [ prop.className "eyebrow"; prop.text "FUND LAB" ]
            Html.h1 "尚未创建基金"
            Html.p "先创建一支人民币模拟基金，再选择基金代码和持仓金额。"
            Html.p (if model.hasFund then "已创建基金" else "尚未选择投资")
            Html.button [
                prop.className "primary-action"
                prop.text "创建基金"
                prop.onClick (fun _ -> dispatch CreateFundRequested)
            ]
        ]
    ]

let start () =
    Program.mkSimple init update view
    |> Program.withReactSynchronous "fund-lab-root"
    |> Program.run