From d3fa62510a44f2fa9c29d0c057337dd0a75f0350 Mon Sep 17 00:00:00 2001
From: Sayo <75541866+SaySayo@users.noreply.github.com>
Date: Sat, 21 Oct 2023 13:02:50 +0100
Subject: [PATCH] Collapse tabs into breadcrumb for mobile view on learn area
(#1541)
---
.../components/learn_components.eml | 2 +-
src/ocamlorg_frontend/css/styles.css | 1 -
.../layouts/learn_layout.eml | 45 ++++++++++++++++++-
3 files changed, 45 insertions(+), 3 deletions(-)
diff --git a/src/ocamlorg_frontend/components/learn_components.eml b/src/ocamlorg_frontend/components/learn_components.eml
index f0d703871d..a1b3fb6389 100644
--- a/src/ocamlorg_frontend/components/learn_components.eml
+++ b/src/ocamlorg_frontend/components/learn_components.eml
@@ -192,5 +192,5 @@ let lang_manual_banner =
Take Me There
+ let url_of_current
+ (current : section) = match current with
+ | Overview -> Url.learn
+ | GetStarted -> Url.learn_get_started
+ | Language -> Url.learn_language
+ | Platform -> Url.platform
+ | Guides -> Url.learn_guides
+ | Exercises -> Url.exercises
+ | Books -> Url.books
+ in
+ let section_to_string = function
+ | Overview -> "Overview"
+ | GetStarted -> "Get Started"
+ | Language -> "Language"
+ | Platform -> "Platform"
+ | Guides -> "Guides"
+ | Exercises -> "Exercises"
+ | Books -> "Books"
+ in
+ let breadcrumb_options current =
+ let (sections : section list) = [Overview; GetStarted; Language; Platform; Guides; Exercises; Books] in
+ let selected_option section = if section = current then "selected" else "" in
+ let options_list option =
+
+ in
+
+ in
+ <%s! breadcrumb_options current %>
+