ts pandoc codegen - pandocNativeStr

Author: cscheid

src/core/pandoc/codegen.ts

@@ -232,6 +232,23 @@ export function pandocBlock(delimiterCharacter: ":" | "`") {
   };
 }
 
+export function pandocNativeStr(content: string): PandocNode {
+  return {
+    ...basePandocNode,
+    emit: (ls: EitherString[]) => {
+      const maxBackticks = content.match(/`+/g)?.[0].length || 0;
+      const backticks = "`".repeat(maxBackticks + 1);
+      const escapedContent = content.replaceAll(
+        '"',
+        '\\"',
+      );
+      ls.push(
+        `${backticks}${'Str "'}${escapedContent}${'"'}${backticks}{=pandoc-native}`,
+      );
+    },
+  };
+}
+
 export const pandocDiv = pandocBlock(":");
 export const pandocCode = pandocBlock("`");
 export const pandocFigure = pandocHtmlBlock("figure");

tests/unit/pandoc-codegen/native-string.test.ts

@@ -0,0 +1,19 @@
+/*
+* native-string.test.ts
+*
+* Copyright (C) 2021-2022 Posit Software, PBC
+*
+*/
+
+import bounds from "binary-search-bounds";
+
+import { unitTest } from "../../test.ts";
+import { assert } from "testing/asserts.ts";
+import { pandocNativeStr } from "../../../src/core/pandoc/codegen.ts";
+
+// deno-lint-ignore require-await
+unitTest("native-string - basics", async () => {
+  assert(pandocNativeStr("hello").mappedString().value === '`Str "hello"`{=pandoc-native}');
+  assert(pandocNativeStr('"hello"').mappedString().value === '`Str "\\"hello\\""`{=pandoc-native}');
+  assert(pandocNativeStr('"hel`lo"').mappedString().value === '``Str "\\"hel`lo\\""``{=pandoc-native}');
+})