feat: improve language button

Author: maelle

R/render.R

@@ -481,6 +481,11 @@ add_links <- function(path, main_language, # nolint: cyclocomp_linter
         "//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 @@ add_links <- function(path, main_language, # nolint: cyclocomp_linter
       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 @@ path_rel <- function(path, output_folder, lang, main_language) {
     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]
+
+}

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: