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

don't wrap new-thread-link in a div

Browse source
This commit is contained in:
Swrup 2025-04-22 16:33:50 +02:00
parent 583d653405
commit 6a49c8fe08
1 changed files with 17 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/client/html_util.ml
View file

@ -86,18 +86,25 @@ let mk_dropdown_menu ~class_prefix ~label ~at_title ~placeholder mk_content =
El.div ~at l
let new_thread_link_el t_s =
let mk user =
match user with
| None ->
(* TODO redirect *)
mk_page_link ~label:"Login to post a thread!" Login
| Some _user ->
El.a ~at:[ href (Page.to_path New_thread) ] [ el_txt "New thread" ]
let is_logged_in = S.map get_user t_s |> S.map Option.is_some in
let href_s =
let open Page in
is_logged_in
|> S.map (function false -> Login | true -> New_thread)
|> S.map (fun p -> Some (Jstr.of_string (to_path p)))
in
let el = El.div ~at:[ class' "new-thread-link-div" ] [] in
let content_s =
is_logged_in
|> S.map (function
| false ->
(* TODO redirect after login *)
[ el_txt "Login to post a thread!" ]
| true -> [ el_txt "New thread" ] )
in
let el = El.a [] in
Elr.def_at At.Name.href href_s el;
Elr.def_children el content_s;
def_visibility_when_page [ New_thread ] `Off el t_s;
let children = S.map get_user t_s |> S.map (fun u -> [ mk u ]) in
Elr.def_children el children;
el
let mk_image ~is_small img_info =