swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add form-box css

Browse source
This commit is contained in:
Swrup 2025-04-20 16:43:29 +02:00
parent 50eb6f808b
commit 87a9806056
4 changed files with 85 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/client/html_form.ml
View file

@ -79,18 +79,22 @@ let mk_logout () =
in
mk Logout ~btn []
let mk_box title l = El.div ~at:[ class' "form-box" ] (h2 title :: l)
let mk_register () =
let nick = mk_field `Text ~name:"nick" ~label:"Nickname" ~at:[] in
let email = mk_field `Text ~name:"email" ~label:"Email" ~at:[] in
let password = mk_field `Password ~name:"password" ~label:"Password" ~at:[] in
let btn = mk_btn_submit () in
mk Register ~btn [ nick; email; password ]
let el = mk Register ~btn [ nick; email; password ] in
mk_box "Register" [ el ]
let mk_login () =
let nick = mk_field `Text ~name:"login" ~label:"Nickname or email" ~at:[] in
let password = mk_field `Password ~name:"password" ~label:"Password" ~at:[] in
let btn = mk_btn_submit () in
mk Login ~btn [ nick; password ]
let el = mk Login ~btn [ nick; password ] in
mk_box "Login" [ el ]
let mk_subject_field_unwraped () =
mk_field_unwraped `Text ~name:"subject" ~label:"Subject" ~at:[]
@ -226,7 +230,7 @@ let new_thread_el t_s =
mk Home ~btn [ subject; comment; image; lat; lng ]
let profile user =
let mk = mk Profile in
let mk ~btn l = mk Profile ~btn l in
let nickname =
let nick =
mk_field `Text ~name:"nick" ~label:"Change nickname"
@ -234,7 +238,7 @@ let profile user =
in
let btn = mk_btn_save () in
let form = mk ~btn [ nick ] in
[ h2 "Nickname"; form ]
mk_box "Nickname" [ form ]
in
let bio =
let bio =
@ -243,7 +247,7 @@ let profile user =
in
let btn = mk_btn_save () in
let form = mk ~btn [ bio ] in
[ h2 "Biography"; form ]
mk_box "Biography" [ form ]
in
let avatar =
(* TODO
@ -281,12 +285,12 @@ let profile user =
let btn = mk_btn_save () in
[ mk ~btn [ file_el; alt_el ] ]
in
(h2 "Avatar" :: delete) @ upload
mk_box "Avatar" (delete @ upload)
in
nickname @ bio @ avatar
[ nickname; bio; avatar ]
let account user_private =
let mk = mk Account in
let mk ~btn l = mk Account ~btn l in
let email =
let email =
mk_field `Text ~name:"email" ~label:"Email"
@ -294,7 +298,7 @@ let account user_private =
in
let btn = mk_btn_save () in
let form = mk ~btn [ email ] in
[ h2 "Change email"; form ]
mk_box "Change email" [ form ]
in
let password =
let pw1 =
@ -306,7 +310,7 @@ let account user_private =
in
let btn = mk_btn_save () in
let form = mk ~btn [ pw1; pw2 ] in
[ h2 "Change password"; form ]
mk_box "Change password" [ form ]
in
let big_delete =
let btn = mk_btn ~at:[ class' "delete-account-btn" ] "DELETE ACCOUNT" in
@ -314,9 +318,9 @@ let account user_private =
mk ~btn
[ El.input ~at:[ type' "hidden"; name "delete-account"; value "" ] () ]
in
[ h2 "Delete account"; form ]
mk_box "Delete account" [ form ]
in
email @ password @ big_delete
[ email; password; big_delete ]
let delete post =
let btn = mk_btn "DELETE" in