zapashcanon/jb
1
0
Fork 1
Code Issues 10 Pull Requests Actions Projects Releases Wiki Activity

better lang switchign rendering in the menu

Browse Source
This commit is contained in:
zapashcanon 2024-01-03 18:17:56 +01:00
parent 471360ea15
commit 76859b49d3
Signed by: zapashcanon
GPG Key ID: 8981C3C62D1D28F1
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/template.ml
View File

@ -86,9 +86,19 @@ let generic request ~title:title_txt ~scripts ~styles ~h1 content =
; txt_anylang " | "
; a ~a:[ a_href Sitemap.contact ] [ txt ~fr:"Contact" ~en:"Contact" ]
; txt_anylang " | "
; a ~a:[ a_href @@ Sitemap.set_english current_page ] [ txt_anylang "en" ]
; ( match Lang.of_request request with
| English -> txt_anylang "en"
| French ->
a
~a:[ a_href @@ Sitemap.set_english current_page ]
[ txt_anylang "en" ] )
; txt_anylang " / "
; a ~a:[ a_href @@ Sitemap.set_french current_page ] [ txt_anylang "fr" ]
; ( match Lang.of_request request with
| English ->
a
~a:[ a_href @@ Sitemap.set_french current_page ]
[ txt_anylang "fr" ]
| French -> txt_anylang "fr" )
]
in