From 2920e56dbc8bc03b7365ff1eaa21dfdf48cbb935 Mon Sep 17 00:00:00 2001
From: Jon Harmon <jonthegeek@gmail.com>
Date: Wed, 6 Nov 2024 07:21:23 -0600
Subject: [PATCH] Respect DESCRIPTION language.

If the package authors have specified a Language in DESCRIPTION, default to that, rather than "en".
---
 R/package.R | 22 +++++++++++++++++-----
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/R/package.R b/R/package.R
index 7b0068722..68a1cdf8c 100644
--- a/R/package.R
+++ b/R/package.R
@@ -75,7 +75,7 @@ as_pkgdown <- function(pkg = ".", override = list()) {
   if (!is.null(pkg$meta$url)) {
     pkg$meta$url <- sub("/$", "", pkg$meta$url)
   }
-  
+
   pkg$development <- meta_development(pkg)
   pkg$prefix <- pkg$development$prefix
 
@@ -85,7 +85,7 @@ as_pkgdown <- function(pkg = ".", override = list()) {
     pkg$dst_path <- path(pkg$dst_path, pkg$development$destination)
   }
 
-  pkg$lang <- pkg$meta$lang %||% "en"
+  pkg$lang <- get_pkg_lang(pkg)
   pkg$install_metadata <- config_pluck_bool(pkg, "deploy.install_metadata", FALSE)
   pkg$figures <- meta_figures(pkg)
   pkg$repo <- package_repo(pkg)
@@ -106,6 +106,18 @@ read_desc <- function(path = ".") {
   desc::description$new(path)
 }
 
+get_pkg_lang <- function(pkg) {
+  if (!is.null(pkg$meta$lang)) {
+    return(pkg$meta$lang)
+  }
+
+  if (pkg$desc$has_fields("Language")) {
+    return(pkg$desc$get_field("Language"))
+  }
+
+  return("en")
+}
+
 get_bootstrap_version <- function(pkg,
                                   template,
                                   template_package = NULL,
@@ -270,7 +282,7 @@ extract_lifecycle <- function(x) {
   fig <- extract_figure(desc)
 
   if (!is.null(fig) && length(fig) > 0 && length(fig[[1]]) > 0) {
-    path <- as.character(fig[[1]][[1]])  
+    path <- as.character(fig[[1]][[1]])
     if (grepl("lifecycle", path)) {
       name <- gsub("lifecycle-", "", path)
       name <- path_ext_remove(name)
@@ -351,12 +363,12 @@ article_metadata <- function(path) {
   if (path_ext(path) == "qmd") {
     inspect <- quarto::quarto_inspect(path)
     meta <- inspect$formats[[1]]$metadata
-  
+
     out <- list(
       title = meta$title %||% "UNKNOWN TITLE",
       desc = meta$description %||% NA_character_,
       ext = path_ext(inspect$formats[[1]]$pandoc$`output-file`) %||% "html"
-    )  
+    )
   } else {
     yaml <- rmarkdown::yaml_front_matter(path)
     out <- list(