From b3792fdaa4b737aa029c888511bc0d023434d1f5 Mon Sep 17 00:00:00 2001 From: "Mathew W. McLean" Date: Mon, 7 Oct 2024 18:33:09 +1100 Subject: [PATCH] Replace more non-ASCII chars in toBiblatex.R file Signed-off-by: Mathew W. McLean --- R/toBiblatex.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/R/toBiblatex.R b/R/toBiblatex.R index da536d4..5db7f01 100644 --- a/R/toBiblatex.R +++ b/R/toBiblatex.R @@ -142,13 +142,16 @@ latexify <- function(x, substitutions <- c(substitutions, list(c("\\u0132", "\\\\IJ{}"), c("\\u0133", "\\\\ij{}"), c("\\u01f1", "DZ"), c("\\u01f2", "Dz"), - c("\\u01f3", "dz"), c("\\u01c4", "DŽ"), - c("\\u01c5", "Dž"), c("\\u01c6", "dž"), + c("\\u01f3", "dz"), c("\\u01c4", "DZ\\u033c"), + c("\\u01c5", "Dz\\u030c"), + c("\\u01c6", "dz\\u030c"), c("\\u01c7", "LJ"), c("\\u01c8", "Lj"), c("\\u01c9", "lj"), c("\\u01ca", "NJ"), c("\\u01cb", "Nj"), c("\\u01cc", "nj"), c("\\ufb00", "ff"), c("\\ufb01", "fi"), - c("\\ufb02", "ſt"), c("\\ufb06", "st"))) + c("\\ufb02", "fl"), c("\\ufb03", "ffi"), + c("\\ufb04", "ffl"), c("\\ufb05", "\\u017ft"), + c("\\ufb06", "st"))) above <- list(diaeresis = c("\\u0308", "\""), acute = c("\\u0301", "'"), dotabove = c("\\u0307", "."), macron = c("\\u0304", "="), circumflex = c("\\u0302", "^"), grave = c("\\u0300", "`"),