support Underline element in Pandoc AST (solves #73) (#74)

* support Underline element in Pandoc AST (solves #73) * update NEWS * build documents
atusy · Apr 18, 2022 · f3776a0 · f3776a0
1 parent 4c1a7d4
commit f3776a0
Show file tree

Hide file tree

Showing 27 changed files with 1,872 additions and 2,874 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -47,5 +47,5 @@ VignetteBuilder:
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
 SystemRequirements: pandoc (>= 2.0.6) - http://pandoc.org
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,7 @@
 # ftExtra 0.3.0.9999
 
 * `as_paragraph_md` supports empty string, `""`, as an input (#68).
+* Improved support for the underline syntax in Pandoc's Markdown (#73).
 
 # ftExtra 0.3.0
 

diff --git a/R/as-paragraph-md.R b/R/as-paragraph-md.R
@@ -52,7 +52,7 @@ construct_chunk <- function(x, auto_color_link = "blue") {
     width = image_size(x$Image, "width"),
     height = image_size(x$Image, "height"),
     vertical.align = vertical_align(x$Superscript, x$Subscript),
-    underlined = x$underlined %||% NA,
+    underlined = x$Underline %||% NA,
     color = x$color %||% NA_character_,
     shading.color = x$shading.color %||% NA_character_,
     font.family = x$font.family %||% NA_character_

diff --git a/R/md2df.R b/R/md2df.R
@@ -112,7 +112,7 @@ format_by_attr <- function(x) {
 
   if(length(a) == 0L) return(x)
 
-  x$underlined = any(a$class == "underline")
+  x$Underline = any(x$Underline, a$class == "underline")
   x$color = last(a$color) %||% NA_character_
   x$shading.color = last(a$shading.color) %||% NA_character_
   x$font.family = last(a$font.family) %||% NA_character_

diff --git a/docs/404.html b/docs/404.html