os_template/project_name_container.eliom at master · ocsigen/os_template · GitHub

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
(* This file was generated by Ocsigen Start.
   Feel free to use it, modify it, and redistribute it as you wish. *)

let%shared os_header ?user () =
  let open Eliom.Content.Html.F in
  let%lwt user_box =
    Os.User_view.user_box ~a_placeholder_email:[%i18n S.your_email]
      ~a_placeholder_pwd:[%i18n S.your_password]
      ~text_keep_me_logged_in:[%i18n S.keep_logged_in]
      ~content_popup_forgotpwd:[%i18n S.recover_password ~capitalize:true]
      ~text_button_forgotpwd:[%i18n S.forgot_your_password_q ~capitalize:true]
      ~text_sign_in:[%i18n S.sign_in ~capitalize:true]
      ~text_sign_up:[%i18n S.sign_up ~capitalize:true]
      ~text_send_button:[%i18n S.send ~capitalize:true] ?user ()
  in
  Lwt.return
    (header
       ~a:[a_class ["os-page-header"]]
       [ a
           ~a:[a_class ["os-page-header-app-name"]]
           ~service:Os.Services.main_service
           [txt Project_name_base.displayed_app_name]
           ()
       ; user_box ])

let%shared os_footer () =
  let open Eliom.Content.Html.F in
  footer
    ~a:[a_class ["os-page-footer"]]
    [ p
        [ txt [%i18n S.footer_generated]
        ; a ~service:Project_name_services.os_github_service
            [txt " Ocsigen Start "]
            ()
        ; txt [%i18n S.footer_eliom_distillery]
        ; a ~service:Project_name_services.ocsigen_service [txt " Ocsigen "] ()
        ; txt [%i18n S.footer_technology] ] ]

let%rpc get_wrong_pdata () :
  ((string * string) * (string * string)) option Lwt.t
  =
  Lwt.return @@ Eliom.Reference.Volatile.get Os.Msg.wrong_pdata

let%shared connected_welcome_box () =
  let open Eliom.Content.Html.F in
  let%lwt wrong_pdata = get_wrong_pdata () in
  let info, ((fn, ln), (p1, p2)) =
    match wrong_pdata with
    | None ->
        ( p
            [ txt [%i18n S.personal_information_not_set]
            ; br ()
            ; txt [%i18n S.take_time_enter_name_password] ]
        , (("", ""), ("", "")) )
    | Some wpd -> p [txt [%i18n S.wrong_data_fix]], wpd
  in
  Lwt.return
  @@ div
       ~a:[a_class ["os-welcome-box"]]
       [ div [h2 [%i18n welcome ~capitalize:true]; info]
       ; Os.User_view.information_form
           ~a_placeholder_password:[%i18n S.password]
           ~a_placeholder_retype_password:[%i18n S.retype_password]
           ~a_placeholder_firstname:[%i18n S.your_first_name]
           ~a_placeholder_lastname:[%i18n S.your_last_name]
           ~text_submit:[%i18n S.submit] ~firstname:fn ~lastname:ln
           ~password1:p1 ~password2:p2 () ]

let%shared get_user_data = function
  | None -> Lwt.return_none
  | Some myid ->
      let%lwt u = Os.User_proxy.get_data myid in
      Lwt.return_some u

let%shared page ?html_a ?a ?title ?head myid_o content =
  let%lwt me = get_user_data myid_o in
  let%lwt content =
    match me with
    | Some me when not (Os.User.is_complete me) ->
        let%lwt cwb = connected_welcome_box () in
        Lwt.return @@ (cwb :: content)
    | _ -> Lwt.return @@ content
  in
  let%lwt h = os_header ?user:me () in
  Lwt.return
    (Os.Page.content ?html_a ?a ?title ?head
       [ h
       ; Eliom.Content.Html.F.(div ~a:[a_class ["os-body"]] content)
       ; os_footer ()
       ; Project_name_drawer.make ?user:me () ])