feat: improve language button

R/render.R

@@ -481,6 +481,11 @@
         "//div[contains(@class,'sidebar-menu-container')]"
       )
 
+      # case where the page is just a redirection
+      if (inherits(sidebar_menu, "xml_missing")) {
+        return()
+      }
+
       xml2::xml_add_sibling(
         sidebar_menu,
         "div",
@@ -502,10 +507,17 @@
       id = "languages-button"
     )
 
+    button <- xml2::xml_find_first(html, "//button[@id='languages-button']")
+
     xml2::xml_add_child(
-      xml2::xml_find_first(html, "//button[@id='languages-button']"),
+      button,
       "i",
-      class = "bi bi-globe2"
+      class = config[["babelquarto"]][["icon"]] %||% "bi bi-globe2"
+    )
+
+    xml2::xml_text(button) <- sprintf(
+      " %s",
+      find_language_name(path_language, config)
     )
 
     xml2::xml_add_child(
@@ -595,3 +607,21 @@
     fs::path_rel(path, start = file.path(output_folder, lang))
   }
 }
+
+find_language_name <- function(language_code, config) {
+  codes <- config[["babelquarto"]][["languagecodes"]]
+
+  if (is.null(codes)) {
+    return(toupper(language_code))
+  }
+
+  language_names <- purrr::map_chr(codes, "name")
+  language_texts <- purrr::map_chr(codes, "text")
+
+  if (!language_code %in% language_names) {
+    return(toupper(language_code))
+  }
+
+  language_texts[language_names == language_code][1]
+
+}

tests/testthat/_snaps/register/_quarto.yml

@@ -16,7 +16,9 @@ bibliography: references.bib
 
 format:
   html:
-    theme: cosmo
+    theme:
+      - cosmo
+      - brand
 
 babelquarto:
   languagelinks: sidebar

tests/testthat/_snaps/register/_quarto2.yml

@@ -16,7 +16,9 @@ bibliography: references.bib
 
 format:
   html:
-    theme: cosmo
+    theme:
+      - cosmo
+      - brand
 
 babelquarto:
   languagelinks: sidebar

tests/testthat/_snaps/register/_quarto3.yml

@@ -16,7 +16,9 @@ bibliography: references.bib
 
 format:
   html:
-    theme: cosmo
+    theme:
+      - cosmo
+      - brand
 
 babelquarto:
   languagelinks: sidebar

tests/testthat/test-render.R

@@ -144,7 +144,7 @@ test_that("render_book() works -- partial template", {
   config <- append(
     config,
     c("    template-partials:", "      - metadata.html"),
-    after = grep("theme: cosmo", config, fixed = TRUE)
+    after = grep("html:", config, fixed = TRUE)
   )
   brio::write_lines(config, config_path)
 

vignettes/configuration.qmd

@@ -74,6 +74,17 @@ website:
 
 If you render your multilingual book or website in a CI context, you need will need to set the `BABELQUARTO_CI_URL` environment variable. See `vignette("render-with-ci")` for more information.
 
+## Configure the icon of the language switch button
+
+Any [Bootstrap icon](https://icons.getbootstrap.com/) can be used instead of the globe button.
+For getting a backpack icon you'd use:
+
+```yaml
+babelquarto:
+  icon: "bi bi-backpack"
+
+```
+
 ## Translate parts in multilingual books
 
 In multilingual books, if you use parts to structure your book, you can translate the part titles like so: