egatari 0.0.0-stage → 0.6.4

package/kit/core/llm-fix.mjs

@@ -0,0 +1,162 @@
+// 「AI への修正依頼」の文章を作る（編集アプリの品質チェックの板。app/llm.js）。Node にもブラウザにも依存しない（純粋な ESM）
+// 規格の文章は、AI への指示の共通の本体（kit/core/llm-pack.mjs の commonBody。docs/authoring-with-llms.md と同じ）の「- **R-名前** …」の行から、
+// 部品の説明は、デッキで使っている部品のもの（componentNotes。指示に入っているものと同じ文章）を載せる。
+// 依頼の形は指示の §5（修正依頼）に合わせる：指摘（規格の名前付き）、その規格の文章、今のファイル。返事は 2 つの囲み
+//
+//   guideRules(guide) → Map(R-名前 → 文章)
+//   rulesFor(problem) → ['R-…']           問題（{code} か {msg}）に効く規格
+//   amountOf(problem, lang)  はみ出し・小さい字の量の目安（「本文を 18 px（およそ 1 行）減らす」）
+//   cutOffRequest(err, lang)  返事が切れたときの依頼（閉じていない囲みだけを送り直す／短くして送り直す）
+//   buildFixRequest({problems, deck, narration, lang, limit}) → {text, partial, slides: [id…], rules: [R-…], components: [m-…]}
+//     （前の guide の引数は使わない。渡されても console に知らせて無視する）
+//     problems：[{sev: 'error'|'warn', i: スライドの番号か null, title, text（人に見せる言葉）, code?, rule?, data?, msg?}]（rule・data は kit/check.mjs --json のもの。data は品質チェックの arg でもよい）
+//     deck・narration が合わせて limit（既定 40,000 字）を超えれば、問題のあるスライドだけ（id で）を載せ、そのスライドだけを返してもらう
+import { sectionsOf, narrSections } from './llm-import.mjs';
+import { cleanErrorText } from './error-text.mjs';
+import { commonBody, componentsIn, componentNotes } from './llm-pack.mjs';
+import { DEFAULT_METRICS, limitsOf } from './theme-metrics.mjs';
+
+export function guideRules(guide) {
+  const out = new Map();
+  const lines = String(guide).replace(/\r\n?/g, '\n').split('\n');
+  for (let i = 0; i < lines.length; i++) {
+    const m = lines[i].match(/^- \*\*(R-[a-z-]+)\*\*\s+(.*)$/);
+    if (!m) continue;
+    let t = m[2];
+    for (let j = i + 1; j < lines.length && /^\s{2,}\S/.test(lines[j]); j++) t += ' ' + lines[j].trim();
+    if (!out.has(m[1])) out.set(m[1], t);
+  }
+  return out;
+}
+
+// ブラウザ版の品質チェックの code（app/frame-shim.js・app/llm.js）と、組み立ての知らせ・コマンド版の指摘の言葉から
+const BY_CODE = {
+  titleLong: ['R-title'], titleLongEn: ['R-title'], conclLong: ['R-concl'], conclLongEn: ['R-concl'], conclOverflow: ['R-concl', 'R-fit'],
+  overflowBottom: ['R-fit'], overflowRight: ['R-fit'], smallText: ['R-fit'], katexError: ['R-math'],
+  noNarration: ['R-narr-steps'], orphanNarration: ['R-narr-steps'], readingExpr: ['R-reading', 'R-formula'], readingSeveral: ['R-reading'],
+compData: ['R-components'], consoleError: ['R-components'],
+    contrast: ['R-colors'], formula: ['R-formula'], missingSection: ['R-headings'], narrHeadingDiffers: ['R-headings'], markTarget: ['R-marks'],
+  // 体裁の検査（kit/core/layout-scan.mjs）がブラウザ版にも出すコマンド版の code
+  titleColon: ['R-title'], tateTitle: ['R-title'], tateBodyHead: ['R-fit'], bodyConclCol: ['R-fit'], bodyLeft: ['R-fit'], smallSvgText: ['R-fit'],
+  textClipped: ['R-fit'], svgTextOut: ['R-fit'], svgTextBox: ['R-fit'], outsideBody: ['R-fit'],
+  textOffSlide: ['R-fit'], textOverlap: ['R-fit'], cellWordBreak: ['R-fit'],
+};
+const BY_TEXT = [
+  [/スライドが見つからない|slide not found|no slide/i, ['R-headings']],
+  [/段階の番号|口述原稿の段階|step key/i, ['R-narr-steps']],
+  [/^mark: |目印/, ['R-marks']],
+  [/式は読まず|reads? an equation/i, ['R-formula']],
+  [/読みの指定/, ['R-reading']],
+  [/slide key: |鍵.*重なる/, ['R-headings']],
+  [/です・ます/, ['R-style']],
+  [/句読点/, ['R-style']],
+];
+export function rulesFor(p) {
+  if (p.rule) return [p.rule];   // 品質チェックの JSON（kit/check.mjs --json）の rule
+  if (p.code && BY_CODE[p.code]) return BY_CODE[p.code];
+  const s = p.msg || p.text || '';
+  for (const [re, r] of BY_TEXT) if (re.test(s)) return r;
+  return [];
+}
+
+const L = {
+  en: {
+    head: 'Fix request for an Egatari lesson (deck.html + narration.md). The instructions you followed are the Egatari authoring guide; the standards are quoted below.',
+    ask: 'Fix only the findings listed. Keep everything else as it is, and keep every id="…" and {#…} exactly (R-noids). Do not use Canvas, slide-making or file features: reply in the body of your chat message with exactly two fenced code blocks, ```deck.html and ```narration.md (R-output).',
+    askPartial: (n) => `The deck is long, so only the ${n} slide(s) with problems are included below. Reply with the same two blocks, but put only those <section> elements in the deck.html block (no <html>, keep their ids) and only their sections in the narration.md block (keep the {#id} headings) (R-output).`,
+    problems: 'Findings', rules: 'Standards', components: 'Components used in this deck (from the instructions)', files: 'Current files', partialFiles: 'Current slides with problems',
+    where: (p) => (p.i === null || p.i === undefined ? 'Whole deck' : `Slide ${p.i + 1}${p.id ? ` (id ${p.id})` : ''}${p.title ? ` “${p.title}”` : ''}`),
+    sev: { error: 'error', warn: 'warning' },
+  },
+  ja: {
+    head: 'Egatari の教材（deck.html と narration.md）の修正依頼です。書くときに従った指示は Egatari の書き方の指示（authoring guide）で、規格の文章は下に引いています。',
+    ask: '挙げた指摘だけを直してください。ほかは変えず、id="…" と {#…} はすべてそのまま残してください（R-noids）。Canvas・スライド作成・ファイルの機能は使わず、チャットの返事の本文に、ちょうど 2 つのコードの囲み ```deck.html と ```narration.md を書いてください（R-output）。',
+    askPartial: (n) => `デッキが長いので、問題のあるスライド ${n} 枚だけを下に載せています。返事は同じ 2 つの囲みで、deck.html の囲みにはそのスライドの <section> だけを（<html> なしで、id はそのまま）、narration.md の囲みにはその節だけを（{#id} の見出しのまま）入れてください（R-output）。`,
+    problems: '指摘', rules: '規格', components: 'この教材で使っている部品（指示の説明）', files: '今のファイル', partialFiles: '問題のあるスライド（今のもの）',
+    where: (p) => (p.i === null || p.i === undefined ? 'デッキ全体' : `スライド ${p.i + 1}${p.id ? `（id ${p.id}）` : ''}${p.title ? `「${p.title}」` : ''}`),
+    sev: { error: 'エラー', warn: '警告' },
+  },
+};
+// 量の目安（はみ出した px と行の数・字の大きさ）。p.data は品質チェックのコマンド版の JSON の data（{px, lim}）か、ブラウザ版の arg（"583 > 565"・"1240 > 1188"・"23.2px「…」"）
+// 限り（lim）と 1 行の高さ（line）はテーマの寸法（theme.json の metrics）から。値になければ既定（kit/core/theme-metrics.mjs の DEFAULT_METRICS）
+const DM = DEFAULT_METRICS;
+const LINE = DM.body.line;   // 本文の 1 行（32px × 1.45。kit/layouts.css の .body）
+const num = (x) => { const m = String(x ?? '').match(/-?\d+(?:\.\d+)?/g); return m ? m.map(Number) : []; };
+export function amountOf(p, lang = 'en') {
+  const d = p.data, ja = lang === 'ja';
+  const pick = (k, i) => (d && typeof d === 'object' && Number.isFinite(+d[k]) ? +d[k] : num(d)[i]);
+  if (p.code === 'bodyBottom' || p.code === 'overflowBottom') {
+    const px = pick('px', 0), lim = pick('lim', 1) || limitsOf(DM).conclBottom;
+    const line = d && typeof d === 'object' && Number.isFinite(+d.line) && +d.line > 0 ? +d.line : LINE;
+    if (!Number.isFinite(px)) return '';
+    const over = Math.ceil(px - lim), lines = Math.max(1, Math.ceil(over / line));
+    return ja ? `本文を ${over} px（${line} px の行でおよそ ${lines} 行）減らす（行を削るか、部品を ${over} px 低くするか、次のスライドに移す）`
+      : `cut ${over} px from the body (about ${lines} line${lines > 1 ? 's' : ''} of ${line} px): drop lines, make the component ${over} px lower, or move content to a new slide`;
+  }
+  if (p.code === 'bodyRight' || p.code === 'overflowRight') {
+    const px = pick('px', 0), lim = pick('lim', 1) || limitsOf(DM).right;
+    if (!Number.isFinite(px)) return '';
+    const over = Math.ceil(px - lim);
+    return ja ? `右へ ${over} px はみ出している：幅を ${over} px 減らす` : `${over} px too wide: make it ${over} px narrower`;
+  }
+  if (p.code === 'smallSvgText' || p.code === 'smallText') {
+    const px = pick('px', 0);
+    if (!Number.isFinite(px)) return '';
+    const svg = p.code === 'smallSvgText', min = svg ? 24 : 27;
+    return ja ? `字を ${px}px から ${min}px 以上に上げる${svg ? '（その場の <svg> なら viewBox の幅を表示の幅と同じにするか、font-size を 24 × viewBox の幅 ÷ 表示の幅 以上に）' : '（font-size を書かない。表と図の中は 24px 以上）'}`
+      : `raise the text from ${px}px to at least ${min}px${svg ? ' (for an inline <svg>, make the viewBox width equal to the displayed width, or font-size ≥ 24 × viewBox width ÷ displayed width)' : ' (remove the font-size; 24px is enough in tables and figures)'}`;
+  }
+  return '';
+}
+
+// 返事が途中で切れて取り込めなかったとき（kit/core/llm-import.mjs の unclosed）の依頼
+// 囲みがなかったとき（no-blocks：ファイル・キャンバス・添付で返したなど）も、この関数で送り直しを頼む（err.code === 'no-blocks'）
+export function cutOffRequest(err, lang = 'en') {
+  if (err && err.code === 'no-blocks') {
+    return lang === 'ja'
+      ? '前の返事にはコードの囲みがありませんでした。ファイル・キャンバス・添付では出さず、チャットの返事の本文に、2 つのコードの囲み ```deck.html と ```narration.md を書いて送り直してください。どちらも最後まで書いて閉じてください（R-output）。\n'
+      : 'Your previous reply had no code blocks. Do not output files, a canvas or attachments: write both code blocks, ```deck.html and ```narration.md, in the body of your chat message, complete and closed (R-output).\n';
+  }
+  const file = err.kind === 'deck' ? 'deck.html' : err.kind === 'narration' ? 'narration.md' : null;
+  return lang === 'ja'
+    ? `前の返事は途中で切れていました${file ? `（${file} の囲みが閉じていません）` : ''}。${file === 'narration.md' ? 'narration.md の囲みだけを、最初から最後まで書いて閉じた形で送り直してください（deck.html は受け取りました）。' : '同じ教材を、枚数を減らした短い形で、2 つの囲み ```deck.html と ```narration.md をどちらも閉じて送り直してください。'}囲みの途中で終わらないでください（R-output）。
+`
+    : `Your previous reply was cut off${file ? ` (the ${file} block is not closed)` : ''}. ${file === 'narration.md' ? 'Send only the narration.md block again, complete and closed (the deck.html block arrived).' : 'Send the lesson again in a shorter form (fewer slides), as two closed blocks, ```deck.html and ```narration.md.'} Never stop in the middle of a block (R-output).
+`;
+}
+
+const fence = (name, body) => '````' + name + '\n' + String(body).replace(/\s+$/, '') + '\n````';
+
+let warnedGuide = false;
+export function buildFixRequest({ problems, deck, narration = '', lang = 'en', limit = 40000, ...rest }) {
+  if ('guide' in rest && !warnedGuide) { warnedGuide = true; console.warn('buildFixRequest: the guide argument is no longer used (the rules come from kit/core/llm-pack.mjs); it is ignored'); }
+  const M = L[lang] || L.en;
+  const rules = guideRules(commonBody(lang === 'ja' ? 'ja' : 'en'));
+  const secs = sectionsOf(deck);
+  // 言葉からスタックの行とファイルの場所（一時フォルダ・file://・手元のサーバー）を除く（kit/core/error-text.mjs）
+  const list = problems.map((p) => ({ ...p, text: cleanErrorText(p.text), msg: p.msg === undefined ? undefined : cleanErrorText(p.msg), id: p.i !== null && p.i !== undefined && secs[p.i] ? secs[p.i].id : null, rules: rulesFor(p) }));
+  const used = [...new Set(list.flatMap((p) => p.rules))].filter((r) => rules.has(r));
+  const out = [M.head, '', M.ask, ''];
+  const partial = deck.length + narration.length > limit && list.some((p) => p.id);
+  const slideIds = partial ? [...new Set(list.map((p) => p.id).filter(Boolean))] : [];
+  if (partial) out.push(M.askPartial(slideIds.length), '');
+  out.push(`## ${M.problems}`, '');
+  list.forEach((p, n) => { const a = amountOf(p, lang); out.push(`${n + 1}. [${M.sev[p.sev] || p.sev}] ${M.where(p)}: ${p.text}${a ? ' → ' + a : ''}${p.rules.length ? ' — ' + p.rules.join(', ') : ''}`); });
+  if (used.length) {
+    out.push('', `## ${M.rules}`, '');
+    for (const r of used) out.push(`- **${r}** ${rules.get(r)}`);
+  }
+  const want = new Set(slideIds);
+  const deckPart = partial ? secs.filter((s) => want.has(s.id)).map((s) => deck.slice(s.start, s.end)).join('\n\n') : '';
+  // 載せるデッキ（長ければ問題のスライドだけ）で使っている部品の説明
+  const comps = componentsIn(partial ? deckPart : deck);
+  if (comps.length) out.push('', `## ${M.components}`, '', componentNotes(comps, lang === 'ja' ? 'ja' : 'en'));
+  if (partial) {
+    const N = narrSections(String(narration).replace(/\r\n?/g, '\n'));
+    const narrPart = N.out.filter((s) => want.has(s.id)).map((s) => N.lines.slice(s.start, s.end).join('\n').replace(/\s+$/, '')).join('\n\n');
+    out.push('', `## ${M.partialFiles}`, '', fence('deck.html', deckPart), '', fence('narration.md', narrPart));
+  } else {
+    out.push('', `## ${M.files}`, '', fence('deck.html', deck), '', fence('narration.md', narration));
+  }
+  return { text: out.join('\n') + '\n', partial, slides: slideIds, rules: used, components: comps };
+}

package/kit/core/llm-import.mjs

@@ -0,0 +1,269 @@
+// チャットの AI（claude.ai・Gemini・ChatGPT など）の返事から deck.html と narration.md を取り出す（docs/authoring-with-llms.md §1 の形）。
+// Node にもブラウザにも依存しない（純粋な ESM）。編集アプリの「新規作成…」「修正…」などのチャットの AI のやり方（app/llm.js）と試験（tools/test-llm.mjs）が使う
+//
+//   extractBlocks(text) → {deck, narration, warnings: [], error: null | {code, message, line}}
+//     コードの囲み（``` か ~~~、3 つ以上）を探す。囲みの名前（```deck.html・```html・```markdown・```html title="deck.html"・```html:deck.html）、
+//     囲みの直前の行のファイル名（**deck.html**・deck.html:・### narration.md）、中身（<!DOCTYPE・<section class="slide" / ## 見出しと [0]）の
+//     順で、どちらのファイルかを決める。CRLF・前後や間の説明の文章はかまわない。同じファイルの囲みが 2 つ以上なら最後のものを使う（知らせる）
+//     閉じていない囲み → error 'unclosed'（返事が途中で切れた）。囲みがなくても、<!DOCTYPE html> … </html> と、その後ろの
+//     「## 見出し」と [0] の行があれば取り出す（画面からそのまま写したとき。知らせる）
+//     取り出した narration.md には決まった直し（mergeRepeatedSteps）をかける：1 つの節の中で同じ [k] の行が続けて繰り返されたら（掛け合いの発言ごとに
+//     [2] を書いた返事）、繰り返しの印を外して最初の [k] の段階の次の発言にする（発言の字と順は変えない。警告 'repeatedSteps'）。
+//     続いていない繰り返し（[2] … [3] … [2]）は直さない（組み立てがこれまでどおり重複として知らせる）
+//   mergeRepeatedSteps(narration) → {narration, merged: [{line, step}]}（line は外した印の行。1 から）
+//   mergeSlides(deck, patch) → {deck, replaced: [id…], missing: [id…]}
+//     patch（<section class="slide" id="…"> だけを並べたもの）の各スライドで、deck の同じ id のスライドを置き換える
+//   mergeNarration(narration, patch) → {narration, replaced: [id…], added: [id…]}
+//     patch の「## 見出し {#id}」の節で、narration の同じ id の節を置き換える（なければ後ろに足す）
+//   sectionsOf(deck) → [{id, start, end}]（<section class="slide"> の元の位置）。narrSections(text) → {lines, out: [{id, start, end}]}（「## 」の節の行）
+//   isPatch(deck) → <html> も <!DOCTYPE> もなく、<section class="slide" があるか（直したスライドだけの返事）
+//   pastePart(text) → extractBlocks の結果に {part, fenced} を足したもの。囲みを 1 つずつ（チャットの囲みの右上のコピーで）写して貼ったときに、
+//     届いたのがどちらかを決める。part：'both'（2 つとも）・'deck'・'narration'（片方だけ）・null（誤り。error を見る）。
+//     囲みのない中身は、<section class="slide" の構造があれば deck.html、「## 見出し」と [0] などの行があれば narration.md（両方なら
+//     error 'ambiguous'、どちらでもなければ今までどおり 'no-blocks'）。fenced：囲みの行があったか（なければ囲みの中身だけを写したもの）
+import { parse } from 'parse5';
+import { parseHeading } from './narration-core.mjs';
+
+const FENCE = /^ {0,3}(`{3,}|~{3,})(.*)$/;
+const DECK_NAME = /(^|[\s"'`:=/\\[(])deck\.html?\b/i;
+const NARR_NAME = /(^|[\s"'`:=/\\[(])narration\.md\b/i;
+
+function kindOfLabel(info) {
+  const s = String(info || '').trim();
+  if (!s) return null;
+  if (DECK_NAME.test(' ' + s)) return 'deck';
+  if (NARR_NAME.test(' ' + s)) return 'narration';
+  const lang = s.split(/[\s:{]/)[0].toLowerCase();
+  if (/^(html|htm|xhtml|xml)$/.test(lang)) return 'deck';
+  if (/^(markdown|md|mdx)$/.test(lang)) return 'narration';
+  return null;
+}
+function kindOfContent(body) {
+  if (/<!doctype\s+html|<html[\s>]|<section\b[^>]*\bclass\s*=\s*["'][^"']*\bslide\b/i.test(body)) return 'deck';
+  if (/^##\s+\S/m.test(body) && /^\s*\[(\d+|concl)\]/m.test(body)) return 'narration';
+  return null;
+}
+// 囲みの直前の行（空行を除いて 1 行）にファイル名だけが書いてあるか（**deck.html**・`narration.md`:・### deck.html・deck.html：）
+function kindOfPrev(lines, i) {
+  for (let j = i - 1; j >= 0 && j >= i - 2; j--) {
+    const t = lines[j].trim();
+    if (!t) continue;
+    if (t.length > 80) return null;
+    const bare = t.replace(/^[#>*\-\s]+/, '').replace(/[*_`"'「」『』:：]+/g, ' ').trim();
+    if (/^(?:\S+\/)?deck\.html?(\s|$)/i.test(bare)) return 'deck';
+    if (/^(?:\S+\/)?narration\.md(\s|$)/i.test(bare)) return 'narration';
+    return null;
+  }
+  return null;
+}
+
+// 1 つの節（## 見出し）の中で、同じ段階の印の行 [k] が続けて繰り返されたら（間に別の [j] の行がない）、繰り返しの印を外して前の段階の続きにする。
+// 印の後ろの字はそのまま残る（Expert:・Novice: の付いた行は、同じ段階の次の発言になる）。コメント（<!-- -->）の中の行は見ない
+export function mergeRepeatedSteps(narration) {
+  const lines = String(narration).split('\n');
+  const merged = [];
+  let last = null, inComment = false;
+  for (let i = 0; i < lines.length; i++) {
+    const ln = lines[i];
+    if (inComment) { if (ln.includes('-->')) inComment = false; continue; }
+    if (/^\s*<!--/.test(ln) && !ln.includes('-->')) { inComment = true; continue; }
+    if (/^##\s/.test(ln)) { last = null; continue; }
+    const m = ln.match(/^(\s*)\[(\d+|concl)\]\s*(.*)$/);
+    if (!m) continue;
+    if (m[2] === last) {
+      merged.push({ line: i + 1, step: m[2] });
+      lines[i] = m[3].trim() ? m[1] + m[3] : '';
+    } else last = m[2];
+  }
+  return { narration: merged.length ? lines.join('\n') : String(narration), merged };
+}
+const withMergedSteps = (res) => {
+  if (res.narration === null || res.narration === undefined) return res;
+  const r = mergeRepeatedSteps(res.narration);
+  if (!r.merged.length) return res;
+  return { ...res, narration: r.narration, warnings: [...res.warnings, { code: 'repeatedSteps', n: r.merged.length, steps: [...new Set(r.merged.map((x) => x.step))] }] };
+};
+
+export function extractBlocks(text) { return withMergedSteps(extractRaw(text)); }
+function extractRaw(text) {
+  const src = String(text ?? '').replace(/^/, '').replace(/\r\n?/g, '\n');
+  const lines = src.split('\n');
+  const blocks = [];
+  const warnings = [];
+  for (let i = 0; i < lines.length; i++) {
+    const m = lines[i].match(FENCE);
+    if (!m) continue;
+    const ch = m[1][0], len = m[1].length, info = m[2];
+    if (ch === '`' && info.includes('`')) continue;   // 行の中のコード（```a``` の形）は囲みではない
+    let j = i + 1;
+    const close = new RegExp(`^ {0,3}${ch === '`' ? '`' : '~'}{${len},}\\s*$`);
+    // 閉じ忘れ：同じ長さ以上の、名前の付いた次の囲み（```narration.md・```markdown など）が始まったら、そこで閉じたものとみなす
+    // （閉じる行には名前が付かないので、名前の付いた囲みの行は中身ではない。長い囲み（````）の中の短い ``` は中身のまま）
+    let auto = false;
+    while (j < lines.length && !close.test(lines[j])) {
+      const n2 = lines[j].match(FENCE);
+      if (n2 && n2[1][0] === ch && n2[1].length >= len && n2[2].trim() && !(ch === '`' && n2[2].includes('`'))) { auto = true; break; }
+      j++;
+    }
+    const body = lines.slice(i + 1, j).join('\n');
+    const label = kindOfLabel(info), prev = kindOfPrev(lines, i), content = kindOfContent(body);
+    const kind = (info.match(DECK_NAME) || info.match(NARR_NAME)) ? label : prev || label || content;
+    if (j >= lines.length) {
+      blocks.push({ kind, body, line: i + 1, unclosed: true, info: info.trim() });
+      break;
+    }
+    blocks.push({ kind, body, line: i + 1, info: info.trim() });
+    if (auto) { warnings.push({ code: 'autoclosed', line: i + 1 }); i = j - 1; continue; }
+    i = j;
+  }
+  const res = { deck: null, narration: null, warnings, error: null };
+  const pick = (kind) => {
+    const list = blocks.filter((b) => b.kind === kind && !b.unclosed);
+    if (list.length > 1) warnings.push({ code: 'several', kind, n: list.length });
+    return list.length ? list[list.length - 1] : null;
+  };
+  const open = blocks.find((b) => b.unclosed);
+  if (blocks.length) {
+    const d = pick('deck'), n = pick('narration');
+    // 閉じていない囲み：中身があり、2 つのどちらかが欠けているか、その囲みがどちらかのファイルなら、返事が切れている
+    // 最後の narration.md の囲みだけ閉じる行がないが、中身は終わっている（どのスライドにも節があり、最後の節の最後の行が
+    // 文の終わり（。.!? など）で終わる）なら、閉じたものとして受け取る（知らせる）
+    if (open && open.kind === 'narration' && d && !n && narrationComplete(d.body, open.body)) {
+      warnings.push({ code: 'unclosedAccepted', kind: 'narration', line: open.line });
+      open.unclosed = false;
+      res.deck = d.body; res.narration = open.body;
+    } else if (open && open.body.trim() && (!d || !n || open.kind)) {
+      // 閉じている方は返す（切れたのが narration.md なら、送り直してもらった口述原稿と合わせられる。app/llm.js）
+      res.deck = d ? d.body.replace(/\s+$/, '') + '\n' : null; res.narration = n ? n.body.replace(/\s+$/, '') + '\n' : null;
+      res.error = { code: 'unclosed', kind: open.kind, line: open.line, message: `the code block that starts on line ${open.line}${open.kind ? ` (${open.kind === 'deck' ? 'deck.html' : 'narration.md'})` : ''} has no closing fence: the reply was probably cut off` };
+      return res;
+    }
+    if (!res.deck) { res.deck = d ? d.body : null; res.narration = n ? n.body : null; }
+    const unknown = blocks.filter((b) => !b.kind && !b.unclosed).length;
+    if (unknown) warnings.push({ code: 'ignored', n: unknown });
+  } else {
+    // 囲みのない返事（チャットの画面から文字を選んで写したなど）
+    const a = src.search(/<!doctype\s+html|<html[\s>]/i), b = src.search(/<\/html>/i);
+    if (a >= 0 && b > a) {
+      res.deck = src.slice(a, b + '</html>'.length);
+      const rest = src.slice(b + '</html>'.length).split('\n');
+      const h = rest.findIndex((ln) => /^#{1,2}\s+\S/.test(ln));
+      if (h >= 0 && rest.slice(h).some((ln) => /^\s*\[(\d+|concl)\]/.test(ln))) res.narration = rest.slice(h).join('\n').trim();
+      warnings.push({ code: 'unfenced' });
+    }
+  }
+  if (res.deck === null) {
+    res.error = blocks.length
+      ? { code: 'no-deck', message: 'no deck.html block: the reply has code blocks, but none of them is the slide deck (```deck.html … ```)' }
+      : { code: 'no-blocks', message: 'no code blocks found: paste the whole reply, including the ``` lines (use the chat’s copy button for the whole message)' };
+    return res;
+  }
+  if (!/<section\b[^>]*\bclass\s*=\s*["'][^"']*\bslide\b/i.test(res.deck)) {
+    res.error = { code: 'no-slides', message: 'the deck.html block has no <section class="slide">' };
+    return res;
+  }
+  res.deck = res.deck.replace(/\s+$/, '') + '\n';
+  if (res.narration !== null) res.narration = res.narration.replace(/\s+$/, '') + '\n';
+  return res;
+}
+
+// 閉じていない narration.md の中身が終わっているか：deck.html のどのスライド（id か見出しの字）にも「## 」の節があり、最後の節の最後の行が
+// 文の終わりの字（。．.!?！？ と閉じ括弧）で終わる（[concl] の行でも同じ）
+function narrationComplete(deck, narr) {
+  const lines = String(narr).replace(/\s+$/, '').split('\n');
+  const N = narrSections(lines.join('\n'));
+  if (!N.out.length) return false;
+  const ids = new Set(N.out.map((x) => x.id).filter(Boolean));
+  const heads = new Set(N.out.map((x) => parseHeading(lines[x.start].replace(/^##\s+/, '').trim()).heading.trim()));
+  const slides = sectionsOf(deck);
+  if (!slides.length) return false;
+  for (const sl of slides) {
+    const h = (deck.slice(sl.start, sl.end).match(/<h[12][^>]*>([\s\S]*?)<\/h[12]>/i) || [])[1];
+    const title = h ? h.replace(/<[^>]+>/g, '').replace(/\s+/g, ' ').trim() : '';
+    if (!((sl.id && ids.has(sl.id)) || (title && heads.has(title)))) return false;
+  }
+  const last = N.out[N.out.length - 1];
+  const body = lines.slice(last.start + 1, last.end).filter((ln) => ln.trim());
+  if (!body.length) return false;
+  const tail = body[body.length - 1].trim();
+  // [concl] の行でも、文の終わりの字で終わっていなければ切れているとみなす（「[concl] 次は、伸びの」）
+  return /[。．.!?！？][」』）)"”]*$/.test(tail);
+}
+
+export function pastePart(text) {
+  const r = extractBlocks(text);
+  const fenced = !r.warnings.some((w) => w.code === 'unfenced') && !(r.error && r.error.code === 'no-blocks');
+  if (!r.error) return { ...r, part: r.narration !== null ? 'both' : 'deck', fenced };
+  // 囲みはあるが deck.html がない：narration.md の囲みだけ
+  if (r.error.code === 'no-deck' && r.narration !== null) return { ...r, narration: r.narration.replace(/\s+$/, '') + '\n', error: null, part: 'narration', fenced: true };
+  if (r.error.code !== 'no-blocks') return { ...r, part: null, fenced };
+  // 囲みのない中身（囲みの右上のコピーで写したもの）：中身の形で決める
+  const src = String(text ?? '').replace(/^\uFEFF/, '').replace(/\r\n?/g, '\n').replace(/^(?:[ \t]*\n)+/, '').replace(/\s+$/, '');
+  const deckLike = /<section\b[^>]*\bclass\s*=\s*["'][^"']*\bslide\b/i.test(src);
+  const narrLike = /^##\s+\S/m.test(src) && /^\s*\[(\d+|concl)\]/m.test(src);
+  if (deckLike && narrLike) return { ...r, part: null, fenced: false, error: { code: 'ambiguous', message: 'the pasted text has both slide markup (<section class="slide">) and narration lines (## heading, [0]) but no code blocks: paste the whole reply, or one block at a time' } };
+  // <!DOCTYPE html> はあるが </html> がない：写したものが途中で切れている
+  if (deckLike && /<!doctype\s+html|<html[\s>]/i.test(src) && !/<\/html>/i.test(src)) return { ...r, part: null, fenced: false, error: { code: 'cut-deck', message: 'the pasted deck.html has <!DOCTYPE html> but no </html>: it was probably cut off' } };
+  if (deckLike) return { deck: src + '\n', narration: null, warnings: [], error: null, part: 'deck', fenced: false };
+  if (narrLike) return withMergedSteps({ deck: null, narration: src + '\n', warnings: [], error: null, part: 'narration', fenced: false });
+  return { ...r, part: null, fenced: false };
+}
+
+export const isPatch = (deck) => !/<!doctype\s|<html[\s>]/i.test(deck) && /<section\b[^>]*\bclass\s*=\s*["'][^"']*\bslide\b/i.test(deck);
+
+export function sectionsOf(src) {
+  const doc = parse(src, { sourceCodeLocationInfo: true });
+  const out = [];
+  const walk = (n) => {
+    if (n.tagName === 'section' && n.sourceCodeLocation && ((n.attrs || []).find((a) => a.name === 'class')?.value || '').split(/\s+/).includes('slide')) {
+      const id = (n.attrs || []).find((a) => a.name === 'id')?.value || null;
+      out.push({ id, start: n.sourceCodeLocation.startOffset, end: n.sourceCodeLocation.endOffset });
+      return;
+    }
+    for (const c of n.childNodes || []) walk(c);
+    if (n.content) walk(n.content);
+  };
+  walk(doc);
+  return out;
+}
+
+export function mergeSlides(deck, patch) {
+  const mine = sectionsOf(deck), theirs = sectionsOf(patch);
+  const byId = new Map(theirs.filter((s) => s.id).map((s) => [s.id, patch.slice(s.start, s.end)]));
+  const replaced = [], edits = [];
+  for (const s of mine) if (s.id && byId.has(s.id)) { edits.push([s.start, s.end, byId.get(s.id)]); replaced.push(s.id); }
+  let out = deck;
+  for (const [a, b, t] of edits.sort((x, y) => y[0] - x[0])) out = out.slice(0, a) + t + out.slice(b);
+  const missing = [...byId.keys()].filter((id) => !replaced.includes(id));
+  return { deck: out, replaced, missing, unnamed: theirs.filter((s) => !s.id).length };
+}
+
+// 節：「## 見出し {#id}」の行から次の「## 」の行の手前まで（注釈の中は見ない）
+export function narrSections(text) {
+  const lines = text.split('\n');
+  const out = [];
+  let inComment = false;
+  lines.forEach((ln, i) => {
+    if (inComment) { if (ln.includes('-->')) inComment = false; return; }
+    if (/^\s*<!--/.test(ln) && !ln.includes('-->')) { inComment = true; return; }
+    const h = ln.match(/^##\s+(.+?)\s*$/);
+    if (h) { if (out.length) out[out.length - 1].end = i; out.push({ id: parseHeading(h[1]).id, start: i, end: lines.length }); }
+  });
+  return { lines, out };
+}
+export function mergeNarration(narration, patch) {
+  const a = narrSections(String(narration).replace(/\r\n?/g, '\n')), b = narrSections(String(patch).replace(/\r\n?/g, '\n'));
+  const theirs = new Map(b.out.filter((s) => s.id).map((s) => [s.id, b.lines.slice(s.start, s.end).join('\n').replace(/\s+$/, '')]));
+  const replaced = [];
+  let lines = a.lines.slice();
+  for (const s of [...a.out].reverse()) {
+    if (!s.id || !theirs.has(s.id)) continue;
+    const keepBlank = s.end < lines.length ? [''] : [];
+    lines.splice(s.start, s.end - s.start, ...theirs.get(s.id).split('\n'), ...keepBlank);
+    replaced.push(s.id);
+  }
+  const added = [...theirs.keys()].filter((id) => !replaced.includes(id));
+  let out = lines.join('\n').replace(/\s+$/, '') + '\n';
+  for (const id of added) out += '\n' + theirs.get(id) + '\n';
+  return { narration: out, replaced: replaced.reverse(), added };
+}

package/kit/core/llm-insert.mjs

@@ -0,0 +1,95 @@
+// スライドの挿入をチャットの AI に頼む（編集アプリの「スライドの挿入…」→「チャットの AI に書いてもらう」。app/llm.js。backlog #93）。
+// Node にもブラウザにも依存しない（純粋な ESM）。指示の本文（kit/core/llm-pack-data.mjs）は変えない：頼む文はここで作る
+//
+//   insertRequest({deck, narration, after, n, wish, lang}) → 文字列
+//     「スライド X の後ろに続きの n 枚」（n が 1 なら「ここに 1 枚」）を頼む短い文。頼む文を短く保つよう、今のデッキの全体は
+//     付けず、スライドの見出しの一覧と、足す場所の前のスライド（とその口述原稿の節）だけを添える。after：0 から。-1 なら先頭（前のスライドなし）
+//   insertSlides({deck, narration, patchDeck, patchNarration, after, lang, rand}) → {deck, narration, ids: [新しい id…], at（最初の新しいスライドの番号）}
+//     返事のスライド（<section class="slide">。id は付けない約束だが、付いていても新しく付け直す）を after 番目の後ろに順に入れ、
+//     スライドの一覧の「足す」（kit/core/slide-ops.mjs）と同じに id を付け（newIdFor）、口述原稿の節を同じ順で入れる（見出しの行は
+//     「## 見出し {#id}」）。口述原稿の節は、見出しが同じものを先に、なければ順に対応させる。節のないスライドには仮の行（✎）を入れる
+import { slideChunks, insertSlide, insertSection, newIdFor } from './slide-ops.mjs';
+import { headingLine, parseHeading } from './narration-core.mjs';
+import { sectionsOf, narrSections } from './llm-import.mjs';
+import { placeholderLine } from './template-text.mjs';
+
+const L = {
+  ja: {
+    head: '# スライドを足してほしい',
+    lead: '今の教材にスライドを足してください。規格（R-…）と出力の形（R-output）は、教材を作ったときの AI への指示のとおりです。',
+    where: (x) => (x ? `スライド ${x.n}「${x.h}」の後ろ` : '先頭'),
+    one: (w) => `- 頼みたいこと：ここ（${w}）に、スライドを 1 枚足してください`,
+    many: (w, n) => `- 頼みたいこと：${w}に、続きのスライドを ${n} 枚足してください`,
+    wish: (t) => `- 足したいこと：${t}`,
+    list: (n) => `## 今の教材のスライド（全 ${n} 枚、順に。返さない）`,
+    here: '← この後ろに足す',
+    near: '## 足す場所の前のスライド（参考。返さない）',
+    reply: '## 返し方',
+    replyText: '足すスライドだけを返してください。```deck.html の囲みに <section class="slide"> だけを並べ（<!DOCTYPE>・<html>・<head> は付けない。id は書かない）、```narration.md の囲みに、そのスライドの口述原稿の節（## 見出し と [0] からの行）を同じ順で書きます。ほかのスライドは返しません。',
+  },
+  en: {
+    head: '# Please add slides',
+    lead: 'Add slides to the current lesson. The standards (R-…) and the output format (R-output) are the ones in the instructions for the AI used to make it.',
+    where: (x) => (x ? `after slide ${x.n}, “${x.h}”` : 'at the beginning'),
+    one: (w) => `- What I want: one slide here, ${w}`,
+    many: (w, n) => `- What I want: the next ${n} slides, ${w}`,
+    wish: (t) => `- What to add: ${t}`,
+    list: (n) => `## The slides of the lesson now (${n} in all, in order; do not send them back)`,
+    here: '← add after this one',
+    near: '## The slide before the new ones (for reference; do not send it back)',
+    reply: '## How to reply',
+    replyText: 'Send only the new slides: in a ```deck.html block, only the <section class="slide"> elements (no <!DOCTYPE>, <html> or <head>; no ids), and in a ```narration.md block their narration sections (## heading and the lines from [0]) in the same order. Do not send the other slides back.',
+  },
+};
+const fence = (name, body) => '````' + name + '\n' + String(body).replace(/\s+$/, '') + '\n````';
+const textOf = (html) => String(html || '').replace(/<[^>]+>/g, ' ').replace(/\s+/g, ' ').trim();
+const headingIn = (html) => { const m = String(html).match(/<h[12][^>]*>([\s\S]*?)<\/h[12]>/i); return m ? textOf(m[1]) : ''; };
+
+export function insertRequest({ deck, narration = '', after, n = 1, wish = '', lang = 'en' }) {
+  const M = L[lang === 'ja' ? 'ja' : 'en'];
+  const S = slideChunks(deck).slides;
+  const at = Math.max(-1, Math.min(S.length - 1, after ?? S.length - 1));
+  const x = at >= 0 ? { n: at + 1, h: S[at].heading || S[at].key } : null;
+  const w = M.where(x);
+  const out = [M.head, '', M.lead, '', n > 1 ? M.many(w, n) : M.one(w)];
+  if (String(wish).trim()) out.push(M.wish(String(wish).trim().replace(/\s*\n\s*/g, ' / ')));
+  out.push('', M.list(S.length), '');
+  S.forEach((s, i) => out.push(`${i + 1}. ${s.heading || s.key}${i === at ? '   ' + M.here : ''}`));
+  if (at >= 0) {
+    const sl = S[at];
+    const N = narrSections(String(narration).replace(/\r\n?/g, '\n'));
+    const sec = N.out.filter((s) => (sl.id && s.id === sl.id) || parseHeading(N.lines[s.start].replace(/^##\s+/, '')).key === sl.key)
+      .map((s) => N.lines.slice(s.start, s.end).join('\n').replace(/\s+$/, '')).join('\n\n');
+    out.push('', M.near, '', fence('deck.html', deck.slice(sl.start, sl.end)));
+    if (sec) out.push('', fence('narration.md', sec));
+  }
+  out.push('', M.reply, '', M.replyText);
+  return out.join('\n') + '\n';
+}
+
+export function insertSlides({ deck, narration = '', patchDeck, patchNarration = null, after, lang = 'en', rand }) {
+  const secs = sectionsOf(String(patchDeck || ''));
+  if (!secs.length) return { deck, narration, ids: [], at: -1 };
+  const n0 = slideChunks(deck).slides.length;
+  const at0 = Math.max(-1, Math.min(n0 - 1, after ?? n0 - 1));
+  // 口述原稿の節（見出しと行）
+  const N = patchNarration ? narrSections(String(patchNarration).replace(/\r\n?/g, '\n')) : { lines: [], out: [] };
+  const pool = N.out.map((s) => ({ heading: parseHeading(N.lines[s.start].replace(/^##\s+/, '')).heading.trim(), lines: N.lines.slice(s.start + 1, s.end), used: false }));
+  let out = deck, narr = narration ?? '';
+  const ids = [];
+  secs.forEach((s, j) => {
+    const id = newIdFor(out, rand);
+    // id を付け直す（AI の id・重なる id は使わない。slide-ops の「足す」と同じ newIdFor）
+    const html = patchDeck.slice(s.start, s.end).replace(/^<section\b([^>]*)>/i, (m, attrs) => `<section${attrs.replace(/\s+id\s*=\s*("[^"]*"|'[^']*'|[^\s>]+)/i, '')} id="${id}">`);
+    out = insertSlide(out, at0 + j, html);
+    ids.push(id);
+    const h = headingIn(html);
+    const sec = pool.find((p) => !p.used && h && p.heading === h) || pool.find((p) => !p.used);
+    let body;
+    if (sec) { sec.used = true; body = sec.lines.slice(); while (body.length && !body[body.length - 1].trim()) body.pop(); }
+    if (!body || !body.some((l) => /^\s*\[(\d+|concl)\]/.test(l))) body = [`[0] ${placeholderLine(lang === 'ja' ? 'このスライドの口述原稿' : 'narration for this slide')}`];
+    const keys = slideChunks(out).slides.map((x) => x.key);
+    narr = insertSection(narr, keys, id, [headingLine({ key: id, id, heading: h }), ...body]);
+  });
+  return { deck: out, narration: narr, ids, at: at0 + 1 };
+}