diff --git a/src/client/html.ml b/src/client/html.ml index ef46661..7ea6151 100644 --- a/src/client/html.ml +++ b/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 diff --git a/src/client/html_thread.ml b/src/client/html_thread.ml index d104938..9be0ce0 100644 --- a/src/client/html_thread.ml +++ b/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