typst duplicate cells fix. Still very borkened

R/group_typst.R

@@ -40,7 +40,7 @@ group_typst_row <- function(x, i, indent, ...) {
   idx_new <- i + seq_along(i) - 1
   idx_all <- seq_len(nrow(x) + length(i))
   idx <- setdiff(idx_all, idx_new)
-  x <- style_tt(x, idx, indent = indent)
+  # x <- style_tt(x, idx, indent = indent)
   return(x)
 }
 

R/style_typst.R

@@ -100,7 +100,7 @@ style_apply_typst <- function(x) {
     css <- sub("^,", "", trimws(css))
     css <- gsub(",+", ",", trimws(css))
     rec$css <- css
-    rec <- rec[rec$css != "", ]
+
     # TODO: spans before styles, as in bootstrap
 
     # Unique style arrays

inst/templates/typst.typ

@@ -19,21 +19,19 @@ block[ // start block
     if style-array.len() == 0 {
       it 
     } else {
+      let tmp = it
       for style in style-array {
-        let tmp = it
         let m = style.pairs.find(k => k.at(0) == it.x and k.at(1) == it.y)
-        if m != none {
-          if ("fontsize" in style) { tmp = text(size: style.fontsize, tmp) }
-          if ("color" in style) { tmp = text(fill: style.color, tmp) }
-          if ("indent" in style) { tmp = pad(left: style.indent, tmp) }
-          if ("underline" in style) { tmp = underline(tmp) }
-          if ("italic" in style) { tmp = emph(tmp) }
-          if ("bold" in style) { tmp = strong(tmp) }
-          if ("mono" in style) { tmp = math.mono(tmp) }
-          if ("strikeout" in style) { tmp = strike(tmp) }
-        }
-        tmp
+        if ("fontsize" in style) { tmp = text(size: style.fontsize, tmp) }
+        if ("color" in style) { tmp = text(fill: style.color, tmp) }
+        if ("indent" in style) { tmp = pad(left: style.indent, tmp) }
+        if ("underline" in style) { tmp = underline(tmp) }
+        if ("italic" in style) { tmp = emph(tmp) }
+        if ("bold" in style) { tmp = strong(tmp) }
+        if ("mono" in style) { tmp = math.mono(tmp) }
+        if ("strikeout" in style) { tmp = strike(tmp) }
       }
+      tmp
     }
   }