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