From 007ac973e4e693a9a6da80bff96c73653a2d04f6 Mon Sep 17 00:00:00 2001 From: MoonL79 <151734889+MoonL79@users.noreply.github.com> Date: Wed, 1 Jul 2026 15:17:39 +0800 Subject: [PATCH] =?UTF-8?q?[0387]=20=E4=BF=AE=E5=A4=8D=E8=81=9A=E5=85=89?= =?UTF-8?q?=E7=81=AF=E5=BC=95=E5=AF=BC=E7=AC=AC=E4=B8=89=E6=AD=A5=EF=BC=88?= =?UTF-8?q?OCR=20=E6=BC=94=E7=A4=BA=EF=BC=89=E5=90=AF=E5=8A=A8=E6=8A=A5?= =?UTF-8?q?=E9=94=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- TeXmacs/plugins/account/progs/liii/ocr.scm | 4 +- devel/0387.md | 47 ++++++++++++++++++++++ 2 files changed, 49 insertions(+), 2 deletions(-) create mode 100644 devel/0387.md diff --git a/TeXmacs/plugins/account/progs/liii/ocr.scm b/TeXmacs/plugins/account/progs/liii/ocr.scm index 79581b4d8d..9cba025e87 100644 --- a/TeXmacs/plugins/account/progs/liii/ocr.scm +++ b/TeXmacs/plugins/account/progs/liii/ocr.scm @@ -98,7 +98,7 @@ t: tree |# (tm-define (ocr-to-latex-by-cursor t) (let* ((extension (get-image-extension (get-image t 0 #t))) - (temp-name (string-append temp-dir "/temp-" (number->string (current-time)) "." extension)) + (temp-name (string-append temp-dir "/temp-" (number->string (texmacs-time)) "." extension)) (data-list (get-image t 0 #f))) (when (and (list? data-list) (not (null? data-list))) @@ -140,7 +140,7 @@ t: tree |# (tm-define (ocr-to-latex-by-image t) (let* ((extention (get-image-extension (get-image t 0 #t))) - (temp-name (string-append temp-dir "/temp-" (number->string (current-time)) "." extention)) + (temp-name (string-append temp-dir "/temp-" (number->string (texmacs-time)) "." extention)) (data-list (get-image t 0 #f))) (when (and (list? data-list) (not (null? data-list))) (let* ((base64-str (car data-list)) diff --git a/devel/0387.md b/devel/0387.md new file mode 100644 index 0000000000..91da032cca --- /dev/null +++ b/devel/0387.md @@ -0,0 +1,47 @@ +# [0387] 修复聚光灯引导第三步（OCR 演示）启动报错 + +## 1 相关文档 +- [dddd.md](dddd.md) - 任务文档模板 + +## 2 任务相关的代码文件 +- TeXmacs/plugins/account/progs/liii/ocr.scm +- TeXmacs/plugins/tutorial/data/first-launch-tutorial.json +- TeXmacs/plugins/tutorial/progs/init-tutorial.scm + +## 3 如何测试 + +### 3.1 确定性测试（单元测试） +无 + +### 3.2 非确定性测试（文档验证） +1. 清理 `$TEXMACS_HOME_PATH` 目录 +2. 启动 stem，进入首次启动引导流程 +3. 推进到第三步并点击 OCR 按钮 +4. 应正常插入 LaTeX 代码片段，不再抛出 `number->string ... is a let but should be a number` + +## 4 如何提交 + +提交前执行以下最少步骤： + +```bash +xmake b stem +gf fmt --changed-since=main +git push +``` + +## 5 What +修复聚光灯引导第三步（OCR 演示）触发时报错的问题。 + +1. `TeXmacs/plugins/account/progs/liii/ocr.scm` 中 `ocr-to-latex-by-cursor`（第 101 行）和 `ocr-to-latex-by-image`（第 143 行）生成临时文件名时，把 `(number->string (current-time))` 改为 `(number->string (texmacs-time))` + +## 6 Why +聚光灯引导第三步 `id: "ocr"` 的 `on-enter` 调用 `(tutorial-prepare-ocr-demo)`，用户在该步粘贴时进一步触发 `ocr-to-latex-by-cursor` / `ocr-to-latex-by-image`，两者在拼临时文件名时报错： + +``` +number->string first argument, (inlet '{gensym}-11121