From 50eb6f808b92a6786912b672e6bf9678866628b5 Mon Sep 17 00:00:00 2001 From: Swrup Date: Fri, 18 Apr 2025 18:46:48 +0200 Subject: [PATCH] rm home-left-navigation-div --- src/client/html.ml | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/src/client/html.ml b/src/client/html.ml index 7ea6151..cf547c1 100644 --- a/src/client/html.ml +++ b/src/client/html.ml @@ -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