put #top #bottom on sub-nav ellement

src/client/html.ml

@@ -36,7 +36,7 @@ module Header = struct
       El.div ~at:[ class' "nav-right" ] l
     in
     let children = S.map (fun t -> [ left; right t.session ]) t_s in
-    let el = El.nav ~at:[ id "top" ] [] in
+    let el = El.nav [] in
     Elr.def_children el children;
     el
 

src/client/html_thread.ml

@@ -105,13 +105,7 @@ let nav_el kind t_s w =
   let update_el =
     El.a ~at:[ href (Page.to_path (Thread w)) ] [ el_txt "Update" ]
   in
-  let at =
-    match kind with
-    | `Top ->
-      (* id="top" is set on nav bar instead *)
-      [ class' "sub-nav" ]
-    | `Bottom -> [ class' "sub-nav"; id str ]
-  in
+  let at = [ class' "sub-nav"; id str ] in
   let el =
     El.div ~at
       [ Html_util.new_thread_link_el t_s