Merge pull request #98 from atusy/horizontal-rule

fix(ast): avoid error on HorizontalRule with a fallback and a warning
atusy · Feb 26, 2024 · 862c502 · 862c502
2 parents 0df4aaf + ae160d7
commit 862c502
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/R/pandoc.R b/R/pandoc.R
@@ -14,6 +14,7 @@ lua_filters <- function(.sep = "\n\n") {
   c(
     lua("smart.lua"),
     lua("inline-code.lua"),
+    lua("horizontal-rule.lua"),
     if (rmarkdown::pandoc_available("2.7.3")) {
       c(
         lua("math.lua"),

diff --git a/inst/lua/horizontal-rule.lua b/inst/lua/horizontal-rule.lua
@@ -0,0 +1,7 @@
+function HorizontalRule(el)
+	warn(
+		"HorizontalRule is unsupported and fallbacks to three hyphens (---) "
+			.. "regardless of the input string (e.g., `-------`, `***`, and `_ _ _`)"
+	)
+	return pandoc.Para({ pandoc.Str("---") })
+end