escape <> in Typst

vincentarelbundock · Feb 11, 2024 · 9730aaf · 9730aaf
1 parent 2a9f3c5
commit 9730aaf
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: tinytable
 Type: Package
 Title: Simple and Configurable Tables in 'HTML', 'LaTeX', 'Markdown', 'Word', 'PNG', 'PDF', and 'Typst' Formats
 Description: Create highly customized tables with this simple and dependency-free package. Data frames can be converted to 'HTML', 'LaTeX', 'Markdown', 'Word', 'PNG', 'PDF', or 'Typst' tables. The user interface is minimalist and easy to learn. The syntax concise. 'HTML' tables can be customized using the flexible 'Bootstrap' framework, and 'LaTeX' code with the 'tabularray' package.
-Version: 0.0.4
+Version: 0.0.4.9000
 Depends: 
     R (>= 4.1.0)
 Enhances:

diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,9 @@
 # News
 
+## Development
+
+* `format_tt()` escapes <> tags in Typst.
+
 ## 0.0.4
 
 New:

diff --git a/R/escape.R b/R/escape.R
@@ -30,8 +30,13 @@ escape_text <- function(x, output = "latex") {
             latex_special_chars[x]
         })
         regmatches(out[!na_out], m) <- escaped_chars
+
     } else if (isTRUE(output == "html")) {
         out <- htmlEscape(out)
+
+    } else if (isTRUE(output == "typst")) {
+        out <- gsub("<", "\\<", out, fixed = TRUE)
+        out <- gsub(">", "\\>", out, fixed = TRUE)
     }
 
     return(out)

diff --git a/R/format_tt.R b/R/format_tt.R
@@ -215,6 +215,8 @@ format_tt_lazy <- function(x,
       o <- "latex"
     } else if (isTRUE(escape == "html")) {
       o <- "html"
+    } else if (isTRUE(escape == "typst")) {
+      o <- "typst"
     } else {
       o <- meta(out)$output
     }