From 26b97653056d3476df29f41f4757c4261e978b5a Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Fri, 18 Apr 2025 17:44:34 +0200
Subject: [PATCH] put #top #bottom on sub-nav ellement

---
 src/client/html.ml        | 2 +-
 src/client/html_thread.ml | 8 +-------
 2 files changed, 2 insertions(+), 8 deletions(-)

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