[0130] 移除工具菜单中的 LaTeX 子菜单 (#3374)

Co-authored-by: Claude Opus 4.7 <noreply@anthropic.com>

Author: da-liii

TeXmacs/plugins/latex/progs/convert/latex/tmtex-widgets.scm

@@ -113,62 +113,3 @@
         (texmacs-input (string->document doc)
                        `(style (tuple "verbatim-source"))
                        (latex-source-buffer))))))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Convert, run pdflatex, and examine errors
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(define (current-buffer-suffixed suf)
-  (and (url-exists? (current-buffer))
-       (buffer-has-name? (current-buffer))
-       (let* ((tm (current-buffer))
-              (nr (string-length (url-suffix tm)))
-              (tex (url-glue (url-unglue tm nr) suf)))
-         (and (== (url-suffix tm) "tm") tex))))
-
-(define (latex-export)
-  (with tex (current-buffer-suffixed "tex")
-    (if (not tex)
-        (set-message "TeXmacs buffer on disk expected" "latex-export")
-        (export-buffer tex))))
-
-(define (latex-run)
-  (cond ((not (url-exists? (current-buffer)))
-         (set-message "buffer must be on disk" "latex-run"))
-        ((not (buffer-has-name? (current-buffer)))
-         (set-message "buffer must have a name" "latex-run"))
-        ((not (current-buffer-suffixed "tex"))
-         (set-message "TeXmacs buffer expected" "latex-run"))
-        (else
-          (let* ((opts (std-converter-options "texmacs-stree" "latex-document"))
-                 (tm (current-buffer))
-                 (tex (current-buffer-suffixed "tex"))
-                 (report (with-global current-save-target tex
-                           (try-latex-export (buffer-get tm) opts tm tex))))
-            (if (tree-atomic? report)
-                (set-message (tree->string report) "latex-run")
-                (let* ((buf (current-buffer))
-                       (doc (tree->string (tree-ref report 0)))
-                       (errs (cdr (tree-children report))))
-                  (if (null? errs)
-                      (set-message "Generated LaTeX document contains no errors"
-                                   "latex-run")
-                      (dialogue-window (latex-errors-widget buf doc errs)
-                                       noop "LaTeX errors"
-                                       (latex-error-buffer)
-                                       (latex-source-buffer)))))))))
-
-(define (latex-preview)
-  (let* ((tex (current-buffer-suffixed "tex"))
-         (pdf (current-buffer-suffixed "pdf")))
-    (if (not (and tex pdf))
-        (set-message "TeXmacs buffer on disk expected" "latex-export")
-        (begin
-          (export-buffer tex)
-          (run-pdflatex tex)
-          (preview-file pdf)))))
-
-(menu-bind tmtex-menu
-  ("Export" (latex-export))
-  ("Run" (latex-run))
-  ("Preview" (latex-preview)))

TeXmacs/progs/convert/latex/tmtex-widgets.scm

@@ -113,61 +113,3 @@
                        `(style (tuple "verbatim-source"))
                        (latex-source-buffer))))))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Convert, run pdflatex, and examine errors
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(define (current-buffer-suffixed suf)
-  (and (url-exists? (current-buffer))
-       (buffer-has-name? (current-buffer))
-       (let* ((tm (current-buffer))
-              (nr (string-length (url-suffix tm)))
-              (tex (url-glue (url-unglue tm nr) suf)))
-         (and (== (url-suffix tm) "tm") tex))))
-
-(define (latex-export)
-  (with tex (current-buffer-suffixed "tex")
-    (if (not tex)
-        (set-message "TeXmacs buffer on disk expected" "latex-export")
-        (export-buffer tex))))
-
-(define (latex-run)
-  (cond ((not (url-exists? (current-buffer)))
-         (set-message "buffer must be on disk" "latex-run"))
-        ((not (buffer-has-name? (current-buffer)))
-         (set-message "buffer must have a name" "latex-run"))
-        ((not (current-buffer-suffixed "tex"))
-         (set-message "TeXmacs buffer expected" "latex-run"))
-        (else
-          (let* ((opts (std-converter-options "texmacs-stree" "latex-document"))
-                 (tm (current-buffer))
-                 (tex (current-buffer-suffixed "tex"))
-                 (report (with-global current-save-target tex
-                           (try-latex-export (buffer-get tm) opts tm tex))))
-            (if (tree-atomic? report)
-                (set-message (tree->string report) "latex-run")
-                (let* ((buf (current-buffer))
-                       (doc (tree->string (tree-ref report 0)))
-                       (errs (cdr (tree-children report))))
-                  (if (null? errs)
-                      (set-message "Generated LaTeX document contains no errors"
-                                   "latex-run")
-                      (dialogue-window (latex-errors-widget buf doc errs)
-                                       noop "LaTeX errors"
-                                       (latex-error-buffer)
-                                       (latex-source-buffer)))))))))
-
-(define (latex-preview)
-  (let* ((tex (current-buffer-suffixed "tex"))
-         (pdf (current-buffer-suffixed "pdf")))
-    (if (not (and tex pdf))
-        (set-message "TeXmacs buffer on disk expected" "latex-export")
-        (begin
-          (export-buffer tex)
-          (run-pdflatex tex)
-          (preview-file pdf)))))
-
-(menu-bind tmtex-menu
-  ("Export" (latex-export))
-  ("Run" (latex-run))
-  ("Preview" (latex-preview)))

TeXmacs/progs/init-research.scm

@@ -359,7 +359,6 @@
 (lazy-define (convert latex latex-tools) latex-set-virtual-packages
              latex-has-style? latex-has-package?
              latex-has-texmacs-style? latex-has-texmacs-package?)
-(lazy-menu (convert latex tmtex-widgets) tmtex-menu)
 ;;(display* "time: " (- (texmacs-time) boot-start) "\n")
 ;;(display* "memory: " (texmacs-memory) " bytes\n")
 

TeXmacs/progs/texmacs/menus/tools-menu.scm

@@ -49,9 +49,6 @@
       ("Pictures" (picture-gc))
       ("Plugins" (reinit-plugin-cache))
       ("Styles" (style-clear-cache)))
-  (if (url-exists-in-path? "pdflatex")
-      (-> "LaTeX"
-          (link tmtex-menu)))
   (-> "References"
       (link ref-menu))
   (if supports-email?

devel/0130.md

@@ -0,0 +1,59 @@
+# [0130] 移除工具菜单中的 LaTeX 子菜单
+
+## 1 相关文档
+- [dddd.md](dddd.md) - 任务文档模板
+
+## 2 任务相关的代码文件
+- `TeXmacs/progs/texmacs/menus/tools-menu.scm`
+- `TeXmacs/progs/convert/latex/tmtex-widgets.scm`
+- `TeXmacs/plugins/latex/progs/convert/latex/tmtex-widgets.scm`
+- `TeXmacs/progs/init-research.scm`
+
+## 3 如何测试
+
+### 3.1 确定性测试（单元测试）
+```
+# 本任务为菜单移除，无单元测试
+```
+
+### 3.2 非确定性测试（文档验证）
+```
+# 编译后启动 Mogan，检查工具菜单中不再出现 LaTeX 子菜单
+```
+
+## 4 如何提交
+
+提交前执行以下最少步骤：
+
+```bash
+# 编译验证
+xmake b mogan
+```
+
+## 5 What
+
+移除工具菜单（Tools）中的 LaTeX 子菜单，包括以下三个功能：
+
+1. **导出 (Export)**：与 `文件 -> 导出 -> LaTeX` 功能重复，均将当前文档导出为 `.tex` 文件。
+2. **运行 (Run)**：依赖外部 `pdflatex` 命令行工具，对导出的 `.tex` 文件执行编译。
+3. **预览 (Preview)**：依赖外部 `pdflatex` 命令行工具，编译后预览生成的 PDF。
+
+## 6 Why
+
+Mogan STEM 的目标用户大多不安装本地 TeX Live，而是使用 Overleaf 等在线工具处理 LaTeX。保留依赖外部 `pdflatex` 的菜单项会造成困惑，且这些功能与 Mogan 的核心定位不符。`文件 -> 导出 -> LaTeX` 已足够满足用户导出 LaTeX 的需求。
+
+## 7 How
+
+### 7.1 分析结论
+
+- `工具 -> LaTeX -> 导出` (`latex-export`)：调用 `export-buffer` 将当前 `.tm` 文件导出为同名的 `.tex` 文件。这与 `文件 -> 导出 -> LaTeX` 的功能完全一致，只是路径自动确定而非让用户选择。
+- `工具 -> LaTeX -> 运行` (`latex-run`)：调用 `try-latex-export`，后者在 C++ 代码 (`src/Plugins/Tex/latex_recover.cpp`) 中直接执行 `pdflatex -interaction=batchmode` 命令。
+- `工具 -> LaTeX -> 预览` (`latex-preview`)：先导出 `.tex`，再调用 `run-pdflatex`（该函数在代码库中未定义，为无效引用），最后调用 `preview-file` 预览 PDF。其设计意图是依赖外部 `pdflatex` 生成 PDF 后预览。
+
+因此，这三个菜单项均应移除。
+
+### 7.2 修改步骤
+
+1. **移除菜单入口**：在 `TeXmacs/progs/texmacs/menus/tools-menu.scm` 中，移除条件显示的 `LaTeX` 子菜单（`(-> "LaTeX" (link tmtex-menu))`）。
+2. **移除函数和菜单绑定**：在 `TeXmacs/progs/convert/latex/tmtex-widgets.scm` 和 `TeXmacs/plugins/latex/progs/convert/latex/tmtex-widgets.scm` 中，移除 `latex-export`、`latex-run`、`latex-preview` 三个函数，以及 `tmtex-menu` 的 `menu-bind`。
+3. **移除懒加载引用**：在 `TeXmacs/progs/init-research.scm` 中，移除 `tmtex-menu` 的 `lazy-menu` 引用。