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

rm home-left-navigation-div

Browse source
This commit is contained in:
Swrup 2025-04-18 18:46:48 +02:00
parent 550afcdd50
commit 50eb6f808b
1 changed files with 1 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/client/html.ml
View file

@ -64,23 +64,12 @@ module Home = struct
]
in
let thread_view = Html_thread.f t_s in
let new_thread_link = Html_util.new_thread_link_el t_s in
let return_link = El.a ~at:[ href (to_path Home) ] [ el_txt "Return" ] in
let navigation_div =
El.div
~at:[ class' "home-left-navigation-div" ]
[ new_thread_link; return_link ]
in
def_visibility_when_page [ New_thread ] `On new_thread_view t_s;
def_visibility_when_page [ Thread ] `Off navigation_div t_s;
def_visibility_when_page [ Thread ] `On thread_view t_s;
def_visibility_when_page [ New_thread ] `On return_link t_s;
(* done in new_thread_link_el fun
def_visibility_when_page [ New_thread ] `Off new_thread_link t_s;*)
let el =
El.div
~at:[ class' "home-left" ]
[ navigation_div; new_thread_view; thread_view ]
El.div ~at:[ class' "home-left" ] [ new_thread_view; thread_view ]
in
el