12b: the inline directive forms read and spell the !adf: prefix

src/markdown/opaque-carry.ts

@@ -6,23 +6,24 @@ import { isAdfNode } from '../adf/document.ts'
 import { isJsonValue, overNested } from '../json-value.ts'
 import { fencedCodeBlock } from './backtick-runs.ts'
 import { largestNesting } from '../nesting.ts'
-import { malformedDirective, readSoleStringAttribute, spellAttributes, spellStringAttribute, unsupportedNodeShape } from './directive-syntax.ts'
+import { malformedDirective, readSoleStringAttribute, spellAttributes, spellLeafDirective, spellStringAttribute, unsupportedNodeShape } from './directive-syntax.ts'
 import { serializeCanonicalJson } from '../canonical-json.ts'
 
-export const carryName = 'adf'
+export const carryFence = 'adf'
+export const carryName = 'carry'
 
 const jsonAttribute = 'json'
 
 export function carriedBlock(node: AdfNode, path: ConvertErrorPath, depth: number): Result<string> {
   const json = carriedJson(node, 'two-space', path, largestNesting - depth)
   if (!json.ok) return json
-  return success(fencedCodeBlock(carryName, json.value))
+  return success(fencedCodeBlock(carryFence, json.value))
 }
 
 export function carriedInline(node: AdfNode, path: ConvertErrorPath): Result<string> {
   const json = carriedJson(node, 'compact', path, largestNesting)
   if (!json.ok) return json
-  return success(`:${carryName}${spellAttributes([[jsonAttribute, spellStringAttribute(json.value)]])}`)
+  return success(spellLeafDirective(carryName, spellAttributes([[jsonAttribute, spellStringAttribute(json.value)]])))
 }
 
 export function readCarriedBlock(body: string, depth: number): Read<AdfNode> {