swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

put #top #bottom on sub-nav ellement

Browse source
This commit is contained in:
Swrup 2025-04-18 17:44:34 +02:00
parent 0074e19d42
commit 1093e3ee22
2 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/client/html.ml
View file

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

8
src/client/html_thread.ml
View file

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