mdeck 3.4.0 → 3.5.0

package/docs/site/content/appearance.md

@@ -5,7 +5,7 @@ A **theme** chooses the fonts and the style of the slides. A **palette** chooses
 Ask your assistant by name or by description:
 
 ```prompt
-Use the aurora theme, dark. Or suggest a look that suits a talk for
+Use the glass theme, light. Or suggest a look that suits a talk for
 a design conference.
 ```
 
@@ -26,9 +26,11 @@ If you already have a settings block there, change the existing lines rather tha
 | Name to use | What it looks like |
 |---|---|
 | `neue` | Swiss style: large type, clear lines, red on white |
-| `aurora` | Northern lights: curtains of light, night-sky chapters and glass |
+| `plain` | Black on white and lots of room, the heading beside the content |
 | `minimal` | Nothing but the content: system fonts, calm type, no decoration; works offline |
 | `academic` | A lecture: compact slides, theorem and definition boxes, tables like in a paper |
+| `work` | An everyday company template: a coloured band, your logo, numbered sections, a footer |
+| `glass` | Liquid glass: soft light behind frosted panes; it starts dark |
 
 Each theme comes with colours that suit it, so you do not have to choose any. More themes are in the theme repository (see “Themes that moved to the repository” below).
 
@@ -42,11 +44,11 @@ Each theme in its own colours, on the title slide of the tour example. Click a p
 
 Default colours: `swiss`.
 
-### Aurora
+### Plain
 
-[![The tour's title slide in the Aurora theme](images/themes/aurora.webp)](images/themes/aurora.webp)
+[![The tour's title slide in the Plain theme](images/themes/plain.webp)](images/themes/plain.webp)
 
-Default colours: `neon`.
+Default colours: `greyscale`. In the dark it is the same, inverted.
 
 ### Academic
 
@@ -60,6 +62,18 @@ Default colours: `nordic`.
 
 Default colours: `paper`. It uses the fonts already on the computer, so it needs no internet connection and looks plain on purpose.
 
+### Work
+
+[![The tour's title slide in the Work theme](images/themes/work.webp)](images/themes/work.webp)
+
+Default colours: `cobalt`. Set `meta.logo` and it shows top left; any palette makes it your company's colours.
+
+### Glass
+
+[![The tour's title slide in the Glass theme](images/themes/glass.webp)](images/themes/glass.webp)
+
+Default colours: `nordic`, dark.
+
 ## Choose colours
 
 To use other colours, set `palette` to one of these:
@@ -67,8 +81,9 @@ To use other colours, set `palette` to one of these:
 | Name to use | Colours |
 |---|---|
 | `swiss` | White, black and signal red (neue's own) |
-| `nordic` | Ice grey, deep navy and a cool steel blue (academic's own) |
-| `neon` | Violet and magenta, loud (aurora's own) |
+| `nordic` | Ice grey, deep navy and a cool steel blue (academic's and glass's own) |
+| `cobalt` | Strong ultramarine on white with vivid orange (work's own) |
+| `greyscale` | Black, white and greys only, good for printing (plain's own) |
 | `lagoon` | Teal on warm stone |
 | `paper` | Off-white and near-black with one orange accent (minimal's own) |
 
@@ -97,8 +112,6 @@ Some slides use the other version on purpose: neue's statement slides are dark i
 
 The first chapter slide of the tour in each palette a theme offers. Choose a theme above the pictures; click a sheet to see it larger. A theme that offers only its own colours is not shown here.
 
-Some themes turn their chapter slides around on purpose: aurora's are a night sky in a light talk, and light in a dark one.
-
 ### Light
 
 <!-- theme-sheets light -->
@@ -127,7 +140,8 @@ Earlier versions of mdeck came with more themes and palettes. They are now in th
 
 | Theme | What it looks like (its palette) |
 |---|---|
-| `duet` | Two accent colours that take turns, slab headings (`cobalt`) |
+| `aurora` | Northern lights: curtains of light, night-sky chapters (`neon`) |
+| `duet` | Two accent colours that take turns, slab headings (`cobalt`, which comes with mdeck) |
 | `editorial` | A magazine spread with serif headlines and pull quotes (`terra`) |
 | `fhnw` | The FHNW visual identity, with its own `brand` palette only |
 | `terminal` | Headings typed at a prompt, a status bar; it starts dark (`phosphor`) |

package/docs/site/content/audience.md

@@ -44,6 +44,20 @@ The question and the options may contain formatting and formulas, written as on
 
 Both the slide and the phones show the formulas. A `|` inside a formula stays in it, so `$|x|$` is one option; to put a `|` in plain text, write `\|`.
 
+When the options get long, write them as a list inside the tag instead, one option per line, and tick the right one with `[x]`:
+
+```markdown
+<poll room="derivative" question="What is $\frac{d}{dx}\, x^2$?">
+
+- [x] $2x$
+- [ ] $x^2$
+- [ ] $\frac{x^3}{3}$
+
+</poll>
+```
+
+Nothing needs escaping there, and the right answer is marked where it stands.
+
 Options can also be pictures. Show only letters on the phones then:
 
 ```markdown

package/docs/site/content/theme-repository.md

@@ -1,6 +1,6 @@
 # Install, remove or share a theme
 
-mdeck comes with four themes, `neue`, `academic`, `aurora` and `minimal`, and five palettes, `swiss`, `nordic`, `neon`, `paper` and `lagoon`. They work right away, also without an internet connection. More themes and palettes are in the **theme repository**; try every one on a sample deck, light and dark, at <https://gh.tschieber.de/mdeck-themes/>.
+mdeck comes with six themes, `neue`, `plain`, `academic`, `minimal`, `work` and `glass`, and six palettes, `swiss`, `nordic`, `cobalt`, `greyscale`, `paper` and `lagoon`. They work right away, also without an internet connection. More themes and palettes are in the **theme repository**; try every one on a sample deck, light and dark, at <https://gh.tschieber.de/mdeck-themes/>.
 
 ## Find and install one
 
@@ -15,16 +15,16 @@ mdeck palettes search
 Install a theme:
 
 ```sh
-mdeck themes install duet
+mdeck themes install terminal
 ```
 
-A theme comes with its default palette, so this installs the palette `cobalt` too. A palette installs on its own:
+A theme comes with its default palette, so this installs the palette `phosphor` too. A palette installs on its own:
 
 ```sh
 mdeck palettes install solarized
 ```
 
-They are installed for every deck on this computer, in a folder in your home folder (`~/.mdeck/extensions`). Then choose one at the top of a slide file (`theme: duet`, `palette: solarized`) or in the editor's **Deck** tab.
+They are installed for every deck on this computer, in a folder in your home folder (`~/.mdeck/extensions`). Then choose one at the top of a slide file (`theme: terminal`, `palette: solarized`) or in the editor's **Deck** tab.
 
 The design page has the same: open it with `mdeck design`, choose **Show what you can install**, and press **Install** beside a theme or palette.
 
@@ -44,15 +44,15 @@ The slide folder then carries the theme and its palette, so it works on a comput
 mdeck themes list                  # what comes with mdeck, and what is installed
 mdeck themes update                # newer versions of the installed themes
 mdeck palettes update
-mdeck themes remove duet
-mdeck palettes remove cobalt
+mdeck themes remove terminal
+mdeck palettes remove phosphor
 ```
 
 Add a slide file, or `--local`, to work beside that deck. If you changed an installed file by hand, `update` and `remove` stop and tell you which one, so your change is not lost; add `--force` to go ahead anyway.
 
 A palette that an installed theme uses by default stays until that theme is removed. A palette made for one theme only (like FHNW's `brand`) comes and goes with that theme.
 
-The themes and palettes that come with mdeck can be removed too: `mdeck themes remove aurora` hides it from every deck and from the lists, and `mdeck themes install aurora` brings it back, without the internet. The last theme always stays. A deck without a `theme:` setting uses `neue`; if you removed it, `mdeck check` tells you.
+The themes and palettes that come with mdeck can be removed too: `mdeck themes remove glass` hides it from every deck and from the lists, and `mdeck themes install glass` brings it back, without the internet. The last theme always stays. A deck without a `theme:` setting uses `neue`; if you removed it, `mdeck check` tells you.
 
 ## What may be in one
 

package/examples/showcase/slides.md

@@ -1,5 +1,5 @@
 ---
-theme: aurora
+theme: glass
 meta:
   title: "A tour of mdeck"
   author: "Tilman Schieber"
@@ -380,7 +380,7 @@ layout: split
 :::slot left
 ```markdown
 ---
-theme: aurora
+theme: work
 palette: lagoon
 ---
 ```

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "mdeck",
-  "version": "3.4.0",
+  "version": "3.5.0",
   "type": "module",
   "description": "Write slides as a plain text file, present them in the browser, share them as one HTML file or PDF.",
   "license": "MIT",
@@ -75,5 +75,8 @@
     "vite": "^8.3.1",
     "vite-plugin-singlefile": "^2.3.3",
     "ws": "^8.22.0"
+  },
+  "devDependencies": {
+    "parse5": "^8.0.1"
   }
 }

package/skills/write-slides/SKILL.md

@@ -34,7 +34,7 @@ If `mdeck` is not installed, rely on the quick reference below.
 ```markdown
 ---
 theme: neue            # theme id from `mdeck list themes`
-palette: nordic         # optional: swiss, nordic, neon, lagoon, paper, or one installed from the theme repository (`mdeck themes search`)
+palette: nordic         # optional: swiss, nordic, cobalt, greyscale, lagoon, paper, or one installed from the theme repository (`mdeck themes search`)
 appearance: light       # optional: light or dark
 meta:
   title: "Talk title"
@@ -94,7 +94,7 @@ Right column
 - Named areas use `:::slot name … :::`; the layout's regions and settings come from `mdeck list layouts --json`.
 - `:::notes … :::` holds speaker notes. `:::steps … :::` reveals list items one at a time. `:::note`, `:::tip`, `:::important`, `:::warning` and `:::caution` are callouts (`mdeck check` warns about other names); for lectures, `:::definition`, `:::theorem`, `:::lemma`, `:::proof`, `:::example` and `:::remark`, numbered in the title (`::: theorem Theorem 2.4 (Lagrange)`). `:::columns … +++ … :::` makes columns inside a slide.
 - Code fences get syntax highlighting; `$…$` and `$$…$$` render math.
-- `<poll room="lunch" options="Mensa|Thai|Pizza" />` lets the audience vote on their phones through a QR code on the slide; each poll needs its own `room`. `question` and `options` may use Markdown and `$…$` maths (`options="$2x$|$x^2$"`); `answer` repeats the right option's text. `multiple` allows several picks; `buttons="letters"` shows only A, B, C on the phones, for options that are pictures or long formulas. `<numeric room="lim" question="…" answer="1/2" tolerance="0.01" />` asks for a number. `<scale room="pace" min="1" max="5" low="Too slow" high="Too fast" />`, `<wordcloud room="mood" />` and `<question room="ask" />` ask for a rating, short words or open answers the same way. With several of them, put `<qrcode join />` (the deck's join code) on an early slide to show the QR code once, and add `qr="false"` to the questions. It works when the deck is presented with `mdeck run <deck>.md --network` or with a server set as `server:` in the deck settings.
+- `<poll room="lunch" options="Mensa|Thai|Pizza" />` lets the audience vote on their phones through a QR code on the slide; each poll needs its own `room`. `question` and `options` may use Markdown and `$…$` maths (`options="$2x$|$x^2$"`); `answer` repeats the right option's text. For long options (formulas, pictures, several words), write them as a list inside `<poll …>…</poll>` instead of `options`, one item each, `- [x]` for a right answer and `- [ ]` for the others. `multiple` allows several picks; `buttons="letters"` shows only A, B, C on the phones, for options that are pictures or long formulas. `<numeric room="lim" question="…" answer="1/2" tolerance="0.01" />` asks for a number. `<scale room="pace" min="1" max="5" low="Too slow" high="Too fast" />`, `<wordcloud room="mood" />` and `<question room="ask" />` ask for a rating, short words or open answers the same way. With several of them, put `<qrcode join />` (the deck's join code) on an early slide to show the QR code once, and add `qr="false"` to the questions. It works when the deck is presented with `mdeck run <deck>.md --network` or with a server set as `server:` in the deck settings.
 
 ## 3. Write the deck
 

package/src/build/slidesPlugin.js

@@ -13,6 +13,7 @@ import { isOwnWrite } from './ownWrites.js'
 import { fileURLToPath } from 'node:url'
 import { assertDrawings } from './drawings.js'
 import { marked } from 'marked'
+import { scanTags, replaceTagsIn, withAttribute } from '../core/tags.js'
 import { resolveBibliography, sampleBibliography } from './bibliography.js'
 
 const VIRTUAL_ID = 'virtual:slides'
@@ -97,21 +98,19 @@ function inlineMarkdownImages(markdown, baseDir) {
   })
 }
 
-function inlineHtmlImgSources(markdown, baseDir) {
-  return markdown.replace(/(<img\b[^>]*\bsrc=)(["'])([^"']+)(\2)/gi, (m, pre, quote, src, endQuote) => {
-    const dataUrl = toDataUrl(src, baseDir)
-    if (!dataUrl) return m
-    return `${pre}${quote}${dataUrl}${endQuote}`
+// The `src` of the named tags, as data: URLs where the file is local.
+function inlineTagSources(markdown, baseDir, names) {
+  return replaceTagsIn(markdown, tag => {
+    if (tag.closing || !names.has(tag.name) || !tag.attrs.src) return
+    const dataUrl = toDataUrl(tag.attrs.src, baseDir)
+    return dataUrl ? withAttribute(tag, 'src', dataUrl) : undefined
   })
 }
 
-function inlineHtmlMediaSources(markdown, baseDir) {
-  return markdown.replace(/(<(?:video|audio|source|videoplayer)\b[^>]*\bsrc=)(["'])([^"']+)(\2)/gi, (m, pre, quote, src, endQuote) => {
-    const dataUrl = toDataUrl(src, baseDir)
-    if (!dataUrl) return m
-    return `${pre}${quote}${dataUrl}${endQuote}`
-  })
-}
+const PICTURE_TAGS = new Set(['img'])
+const MEDIA_TAGS = new Set(['video', 'audio', 'source', 'videoplayer'])
+const inlineHtmlImgSources = (markdown, baseDir) => inlineTagSources(markdown, baseDir, PICTURE_TAGS)
+const inlineHtmlMediaSources = (markdown, baseDir) => inlineTagSources(markdown, baseDir, MEDIA_TAGS)
 
 function inlineYamlImageFields(markdown, baseDir) {
   return markdown.replace(/^(\s*)(image|logo):\s*(["']?)([^"'\n]+)\3\s*$/gm, (m, indent, key, quote, value) => {
@@ -141,9 +140,11 @@ export function collectLocalAssetRefs(markdown) {
       marked.walkTokens(marked.lexer(body), token => {
         if (token.type === 'image') add(token.href)
         if (token.type === 'html') {
-          for (const match of token.text.matchAll(/<(?:img|video|audio|source|videoplayer)\b[^>]*\bsrc=(["'])([^"']+)\1/gi)) add(match[2])
-          // Markdown pictures in a tag's attributes, such as a poll's options.
-          for (const match of token.text.matchAll(/!\[[^\]]*\]\(([^)\s]+)/g)) add(match[1])
+          for (const tag of scanTags(token.text)) {
+            if (PICTURE_TAGS.has(tag.name) || MEDIA_TAGS.has(tag.name)) add(tag.attrs.src)
+            // Markdown pictures in a tag's attributes, such as a poll's options.
+            for (const value of Object.values(tag.attrs)) for (const match of value.matchAll(/!\[[^\]]*\]\(([^)\s]+)/g)) add(match[1])
+          }
         }
       })
     }

package/src/components/Poll.jsx

@@ -3,6 +3,7 @@ import { useRoom, latestByDevice } from '../live/client.js'
 import { t } from '../core/labels.js'
 import { JoinCode, ActivityFooter, ActivityQuestion, ActivityControls, useControls, wantsQr, isSet } from './activity.jsx'
 import { choicesOf, slideHtml, phoneHtml, phoneQuestion } from './inlineText.js'
+import { pollChoices } from '../core/pollList.js'
 import './poll.css'
 
 // <poll room="lunch" question="Where do we eat?" options="Mensa|Thai|Pizza" />
@@ -32,6 +33,18 @@ import './poll.css'
 // The question and the options are Markdown with $…$ maths, as on a slide:
 // options="$x^2$|$2x$|$\frac{x^3}{3}$". A bar inside a formula stays in it
 // ($|x|$); \| is a bar in the text. Votes and `answer` use the source text.
+//
+// Options may instead be a list inside the tag, one item each, `[x]` for a
+// right one (src/core/pollList.js). They arrive here as `data-choices`.
+
+// The options and the right ones, from the list or from `options` and `answer`.
+function choicesFrom({ options, answer, 'data-choices': listed }) {
+  const fromList = listed != null && pollChoices(listed)
+  const choices = fromList ? fromList.map(choice => choice.text) : choicesOf(options)
+  const marked = fromList ? fromList.filter(choice => choice.right).map(choice => choice.text) : []
+  const correct = marked.length ? marked : choicesOf(answer).filter(choice => choices.includes(choice))
+  return { choices, correct }
+}
 
 const LETTERS = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
 /** What `buttons` puts before each option: letters, numbers, or nothing. */
@@ -46,11 +59,10 @@ export const keysFor = (buttons, count) => {
 // from before `multiple` sends one option; it counts as a list of one.
 const picksOf = (value, multiple) => multiple ? (Array.isArray(value) ? value : [value]) : (Array.isArray(value) ? [] : [value])
 
-export default function Poll({ room = 'poll', question = '', options = '', qr, answer = '', results = '', multiple, buttons }) {
-  const choices = choicesOf(options)
+export default function Poll({ room = 'poll', question = '', qr, results = '', multiple, buttons, ...attributes }) {
+  const { choices, correct } = choicesFrom(attributes)
   const several = isSet(multiple)
   const keys = keysFor(buttons, choices.length)
-  const correct = choicesOf(answer).filter(choice => choices.includes(choice))
   const live = useRoom(room)
   const controls = useControls(room, live, { results: results !== 'hidden', solution: correct.length ? correct : null })
   const votes = latestByDevice(controls.counted(live.messages))
@@ -82,8 +94,8 @@ export default function Poll({ room = 'poll', question = '', options = '', qr, a
 // What the phones show while this poll is on screen. `optionsHtml` are the
 // options drawn, with maths as MathML; with `buttons`, phones show `keys`
 // instead. An answer page from before them shows `question` and `options`.
-Poll.phone = ({ question, options, multiple, buttons }, { slideTitle = '' } = {}) => {
-  const choices = choicesOf(options)
+Poll.phone = ({ question, multiple, buttons, ...attributes }, { slideTitle = '' } = {}) => {
+  const { choices } = choicesFrom(attributes)
   const keys = keysFor(buttons, choices.length)
   return {
     type: 'choice', ...phoneQuestion(question, slideTitle), options: choices,

package/src/components/inlineText.js

@@ -18,23 +18,46 @@ export const phoneQuestion = (question, slideTitle) => question ? { question, qu
 // with a space, and ending before a space, punctuation, a bar or the end.
 const MATH = /^(\${1,2})(?!\$|\s)(?:\\.|[^\\\n$])*?\1(?=[\s?!.,:|]|$)/
 
+// Reads options as Markdown, with formulas as one piece each, to find the
+// bars between them.
+const splitter = new Marked().use({ extensions: [{
+  name: 'math',
+  level: 'inline',
+  start: src => src.indexOf('$') < 0 ? undefined : src.indexOf('$'),
+  tokenizer: src => { const math = MATH.exec(src); if (math) return { type: 'math', raw: math[0] } },
+}] })
+
+// Text, emphasis and strikethrough are split at their bars; code, formulas,
+// links, pictures and tags are whole, and `\|` is a bar in the text.
+const SPLIT = new Set(['text', 'em', 'strong', 'del'])
+function splitTokens(tokens, parts) {
+  for (const token of tokens) {
+    if (token.type === 'escape' && token.text === '|') parts[parts.length - 1] += '|'
+    else if (SPLIT.has(token.type) && token.tokens?.length) {
+      const inner = token.tokens.map(child => child.raw).join('')
+      const at = token.raw.indexOf(inner)
+      if (at < 0) { splitText(token.raw, parts); continue }
+      parts[parts.length - 1] += token.raw.slice(0, at)
+      splitTokens(token.tokens, parts)
+      parts[parts.length - 1] += token.raw.slice(at + inner.length)
+    } else if (SPLIT.has(token.type)) splitText(token.raw, parts)
+    else parts[parts.length - 1] += token.raw
+  }
+}
+function splitText(text, parts) {
+  const [first, ...rest] = text.split('|')
+  parts[parts.length - 1] += first
+  parts.push(...rest)
+}
+
 /**
- * "A|B|C" as ["A", "B", "C"]. A bar in a formula belongs to it ($|x|$,
- * $\{x \mid x > 0\}$), and \| is a bar in the text. "$5|$10" is two
- * options: neither $ starts a formula.
+ * "A|B|C" as ["A", "B", "C"], each as written. A bar in a formula belongs to
+ * it ($|x|$, $\{x \mid x > 0\}$), as does one in `code`, a [link](…) or a
+ * picture; \| is a bar in the text. "$5|$10" is two options: neither $
+ * starts a formula. Emphasis does not hold a bar: "2*3|4*5" is two options.
  */
 export function choicesOf(options) {
-  const text = String(options ?? '')
-  const parts = []
-  let part = ''
-  for (let i = 0; i < text.length; i++) {
-    const math = text[i] === '$' && text.slice(i).match(MATH)
-    if (math) { part += math[0]; i += math[0].length - 1 }
-    else if (text[i] === '\\' && text[i + 1] === '|') { part += '|'; i++ }
-    else if (text[i] === '\\' && i + 1 < text.length) { part += text[i] + text[i + 1]; i++ }
-    else if (text[i] === '|') { parts.push(part); part = '' }
-    else part += text[i]
-  }
-  parts.push(part)
+  const parts = ['']
+  splitTokens(splitter.Lexer.lexInline(String(options ?? ''), splitter.defaults), parts)
   return parts.map(choice => choice.trim()).filter(Boolean)
 }

package/src/components/poll.css

@@ -1,4 +1,7 @@
 /* ── Poll on the slide ─────────────────────────────────────────────────── */
+/* What follows an activity (or a join code) on the slide has room above it,
+   as after a list: the component's wrapper has no margin of its own. */
+:is(.slide-body, [data-region]) div:has(> .poll, > .poll-join-slide) + * { margin-top: var(--gap-item, 32px); }
 .poll { display: flex; gap: 72px; align-items: center; width: 100%; font-size: var(--fs-body, 36px); color: var(--ink, #111); }
 .poll-main { flex: 1; min-width: 0; }
 .poll .poll-question { margin: 0 0 32px; font-weight: 600; }

package/src/core/editDeck.js

@@ -4,7 +4,7 @@
 // identical; callers reparse the result.
 import { parseSlides, SLIDE_KEYS, DECK_KEYS } from './parseSlides.js'
 import { applySourceEdits, replaceRegion, normalizeBlock, detectNewline, patchYamlMapping, firstYamlKey } from './source.js'
-import { maskCode } from '../live/roomTag.js'
+import { openTagsIn } from './tags.js'
 
 const REGION_RE = /^[a-z][a-z0-9-]*$/
 
@@ -233,12 +233,11 @@ export function stripNotes(source) {
 // The live activities, and the code to join them (<qrcode join />): a slide
 // with one of them is left out of shared builds. <qrcode follow /> and other
 // QR codes stay.
-const ACTIVITY_RE = /<(poll|question|wordcloud|scale|numeric)\b/i
-const JOIN_RE = /<qrcode\b[^>]*?\sjoin(?:\s*=\s*(?:"([^"]*)"|'([^']*)'|\{?([^\s/>}]*)\}?))?(?=[\s/>])/i
-const joins = text => { const m = JOIN_RE.exec(text); return !!m && !/^(false|no|off|0)$/i.test(m[1] ?? m[2] ?? m[3] ?? '') }
+const ACTIVITIES = new Set(['poll', 'question', 'wordcloud', 'scale', 'numeric'])
+const joins = tag => tag.name === 'qrcode' && 'join' in tag.attrs && !/^\{?(false|no|off|0)\}?$/i.test(tag.attrs.join.trim())
 export function hasActivity(slide) {
   return [slide.content ?? '', ...Object.values(slide.regions ?? {}).map(region => region.content ?? '')]
-    .some(text => { const masked = maskCode(text); return ACTIVITY_RE.test(masked) || joins(masked) })
+    .some(text => openTagsIn(text).some(tag => ACTIVITIES.has(tag.name) || joins(tag)))
 }
 
 // Removes every slide with a live activity (<poll>, <question>, <wordcloud>,

package/src/core/pollList.js

@@ -0,0 +1,66 @@
+import { Marked } from 'marked'
+import { tagsIn, closingTagOf } from './tags.js'
+
+// A poll's options as a Markdown list inside the tag, for options that are
+// more than a word: pictures, long formulas, text with bars in it.
+//
+//   <poll room="deriv" question="What is $\frac{d}{dx} x^2$?">
+//   - [x] $2x$
+//   - [ ] $x^2$
+//   </poll>
+//
+// Each item is one option, as written; `[x]` marks a right answer. Before a
+// slide is drawn, and before the phones read the tag, such a poll becomes
+// `<poll … data-choices="[…]">` with the options as JSON, so Poll needs no
+// Markdown of its own to find them. A poll whose content is not a list
+// stays as it is.
+
+const lexer = new Marked()
+
+const attributeText = text => text.replace(/&/g, '&amp;').replace(/"/g, '&quot;')
+
+/**
+ * The options of a list, [{ text, right }], or null when `markdown` is not
+ * a list. A change of bullet (`-` to `*`) starts a new list in Markdown;
+ * here it goes on with the same options.
+ */
+export function listChoices(markdown) {
+  const blocks = lexer.lexer(markdown).filter(token => token.type !== 'space')
+  if (!blocks.length || blocks.some(block => block.type !== 'list')) return null
+  const choices = blocks.flatMap(block => block.items)
+    .map(item => ({ text: item.text.replace(/\s*\n\s*/g, ' ').trim(), right: !!(item.task && item.checked) }))
+    // An empty `- [ ]` is no task to marked, but no option either.
+    .filter(choice => choice.text && !/^\[[ xX]\]$/.test(choice.text))
+  return choices.length ? choices : null
+}
+
+/** `markdown` with every poll that holds a list given its options as `data-choices`. */
+export function expandPollLists(markdown) {
+  const source = String(markdown ?? '')
+  if (!/<poll\b/i.test(source)) return source
+  const text = source.replace(/\r\n?/g, '\n')
+  const tags = tagsIn(text)
+  let out = ''
+  let last = 0
+  tags.forEach((open, at) => {
+    if (open.name !== 'poll' || open.closing || open.start == null || open.start < last) return
+    const close = closingTagOf(tags, at)
+    if (close?.start == null) return
+    const choices = listChoices(text.slice(open.end, close.start))
+    if (!choices) return
+    // The closing tag on a line of its own keeps the tag one block of HTML,
+    // as `<poll … />` on its line is, rather than a paragraph.
+    out += text.slice(last, open.start) + `${open.raw.slice(0, -1).trimEnd()} data-choices="${attributeText(JSON.stringify(choices))}">\n</poll>`
+    last = close.end
+  })
+  return last ? out + text.slice(last) : source
+}
+
+/** The options of a poll from its attributes: the list's, else `options`. */
+export function pollChoices(listed) {
+  try {
+    const choices = JSON.parse(listed)
+    if (Array.isArray(choices)) return choices.filter(choice => typeof choice?.text === 'string').map(choice => ({ text: choice.text, right: choice.right === true }))
+  } catch {}
+  return null
+}