Add text in Line Block in search data for bs4_book (#1193)

cderv · web-flow · commit 28b11a489b84 · 2021-07-02T15:08:25.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: bookdown
 Type: Package
 Title: Authoring Books and Technical Documents with R Markdown
-Version: 0.22.8
+Version: 0.22.9
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),
     person("JJ", "Allaire", role = "ctb"),
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # CHANGES IN bookdown VERSION 0.23
 
+- Fix an issue with `bs4_book()` where text written using [Line Block](https://bookdown.org/yihui/rmarkdown-cookbook/indent-text.html) was not found in search (thanks, @dmklotz, #1141).
+
 - `bs4_book()` has now some `<meta>` tags that allows sharing a published book on social media. `cover-image`, `url`, `title` and `description` set in YAML will be used in `index.html` and then modified to be adapted per HTML page (#1034). 
 
 - Style change in `bs4_book()` where code block inside callout blocks will have their background fill the whole width of the bordered block (#1175).
diff --git a/R/bs4_book.R b/R/bs4_book.R
@@ -712,7 +712,7 @@ bs4_index_data <- function(node, chapter, path) {
   }
 
   all <- function(...) paste0("descendant-or-self::", c(...), collapse = "|")
-  text_path <- all("p", "li", "caption", "figcaption", "dt", "dd")
+  text_path <- all("p", "li", "caption", "figcaption", "dt", "dd", "div[contains(@class, 'line-block')]")
   code_path <- all("pre")
 
   code <- xml2::xml_find_all(children, code_path)

Original file line number	Diff line number	Diff line change
`@@ -712,7 +712,7 @@ bs4_index_data <- function(node, chapter, path) {`
`712`	`712`	`}`
`713`	`713`
`714`	`714`	`all <- function(...) paste0("descendant-or-self::", c(...), collapse = "\|")`
`715`		`- text_path <- all("p", "li", "caption", "figcaption", "dt", "dd")`
	`715`	`+ text_path <- all("p", "li", "caption", "figcaption", "dt", "dd", "div[contains(@class, 'line-block')]")`
`716`	`716`	`code_path <- all("pre")`
`717`	`717`
`718`	`718`	`code <- xml2::xml_find_all(children, code_path)`