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