long-format back to narration to contrast with new tag names

Author: willgearty

web_and_slides.lua

@@ -1,6 +1,6 @@
 -- web_and_slides.lua
 -- Combined filter for dual html + revealjs Quarto modules:
---   * Div    : `::: {.long-format}` -> speaker notes on revealjs, plain prose elsewhere.
+--   * Div    : `::: {.narration}`   -> speaker notes on revealjs, plain prose elsewhere.
 --              `::: {.slides-only}` -> revealjs slides only: dropped elsewhere
 --              (equivalent to `::: {.content-visible when-format="revealjs"}`)
 --              `::: {.html-only}`   -> html only: dropped on revealjs slides
@@ -33,11 +33,11 @@ function Div(el)
     end
     return el.content
   end
-  if not el.classes:includes("long-format") then
+  if not el.classes:includes("narration") then
     return nil                                   -- leave every other div alone
   end
   if quarto.doc.is_format("revealjs") then
-    el.classes = el.classes:filter(function(c) return c ~= "long-format" end)
+    el.classes = el.classes:filter(function(c) return c ~= "narration" end)
     el.classes:insert("notes")                   -- Pandoc emits <aside class="notes">
     return el
   end

web_and_slides.r

@@ -2,8 +2,8 @@
 
 # Prepare a long-form Quarto module for dual html + revealjs rendering:
 #   1. Wrap each run of consecutive prose paragraphs in a single
-#      `::: {.long-format}` block (speaker notes on slides via
-#      web_and_slides.lua, normal prose on the website).
+#      `::: {.narration}` block (speaker notes on slides via Lua filter,
+#      plain prose elsewhere).
 #   2. Register the Lua filter (defaults to "web_and_slides_autogenerated.lua")
 #      in the front matter if it isn't there.
 #   3. Ensure slide-friendly YAML: execute.echo and execute.output-location
@@ -48,7 +48,7 @@ if (length(lines) > 0 && str_detect(lines[[1]], "^---\\s*$")) {
 }
 fm_len_orig <- length(yaml)   # original front-matter length, before any edits below
 
-# --- wrap prose paragraphs in .long-format -------------------------------------
+# --- wrap prose paragraphs in .narration -------------------------------------
 out     <- character()
 para    <- character()
 in_code <- FALSE
@@ -61,7 +61,7 @@ flush <- function() {
   gap <<- FALSE
   if (length(para) == 0) return(invisible())
   if (!last_blank()) out[[length(out) + 1]] <<- ""
-  out  <<- c(out, "::: {.long-format}", para, ":::", "")
+  out  <<- c(out, "::: {.narration}", para, ":::", "")
   para <<- character()
 }