demo: 使用者側のホーム画面 とりあえず Lunacy で作成した WF の分だけ実装。

Changes

1 changed files (+54/-0)

• demo/src/Main.elm
  • @@ -52,9 +52,15 @@ type Editability
    | ReadWrite + type EmployerRole + = RegularEmployer + | Admin + + type Route = DemoIndex | WorkerHome Editability + | EmployerHome EmployerRole | NotFound
  • @@ -64,6 +70,8 @@ routeParser =
    [ Url.Parser.map DemoIndex Url.Parser.top , Url.Parser.map (WorkerHome Readonly) (Url.Parser.s "worker") , Url.Parser.map (WorkerHome ReadWrite) (Url.Parser.s "worker-mutable") + , Url.Parser.map (EmployerHome RegularEmployer) (Url.Parser.s "employer") + , Url.Parser.map (EmployerHome Admin) (Url.Parser.s "admin") ]
  • @@ -162,12 +170,58 @@ view model =
    ] } + EmployerHome role -> + { title = + (case role of + RegularEmployer -> + "使用者" + + Admin -> + "管理者" + ) + ++ "ホーム | Yamori デモ" + , body = + let + baseMenus : List (Html.Html msg) + baseMenus = + [ Html.dt [] + [ Html.a [ href "#" ] [ text "労働者の一覧を見る" ] ] + , Html.dd [] + [ text "システムに登録されている労働者の閲覧や変更を行う画面に移動します。" ] + , Html.dt [] + [ Html.a [ href "#" ] [ text "全体の予定と実績を確認する" ] ] + , Html.dd [] + [ text "すべての労働者の予定と実績をまとめて確認できる画面に移動します。" ] + ] + + adminMenus : List (Html.Html msg) + adminMenus = + [ Html.dt [] + [ Html.a [ href "#" ] [ text "カレンダーを読み込む" ] ] + , Html.dd [] + [ text "スプレッドシート形式の勤怠データをシステムに反映します。" ] + ] + in + [ Html.h1 [] [ text "株式会社XXX 有給休暇管理システム" ] + , Html.dl [] + (case role of + Admin -> + baseMenus ++ adminMenus + + _ -> + baseMenus + ) + ] + } + DemoIndex -> { title = "Yamori デモ 画面選択" , body = [ Html.ul [] [ Html.li [] [ Html.a [ href "/worker" ] [ text "労働者ホーム" ] ] , Html.li [] [ Html.a [ href "/worker-mutable" ] [ text "労働者ホーム (編集権限あり)" ] ] + , Html.li [] [ Html.a [ href "/employer" ] [ text "使用者ホーム" ] ] + , Html.li [] [ Html.a [ href "/admin" ] [ text "管理者ホーム" ] ] ] ] }