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 de8509ab87
commit 26b9765305
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
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