[2040] 需重启字段的三按钮确认弹窗qml重写 (#4042)

Author: Yuki-Nagori

TeXmacs/plugins/lang/dic/en_US/zh_CN.scm

@@ -1335,6 +1335,7 @@
 ("keyboard equivalent" "等效快捷键")
 ("keyboard modifiers" "")
 ("keyboard shortcut" "键盘快捷键")
+("keyboard shortcut style" "快捷键显示风格")
 ("keyboard" "键盘")
 ("keymaps" "")
 ("keyword" "关键字")
@@ -1346,6 +1347,7 @@
 ("landscape" "横向")
 ("language" "语言")
 ("laptop presentations" "幻灯片演示")
+("later" "稍后")
 ("large cells" "大单元格")
 ("large closing bracket" "大结束括号")
 ("large delimiter" "")
@@ -2073,6 +2075,7 @@
 ("resize objects" "缩放对象")
 ("resize" "改变大小")
 ("resized" "")
+("restart" "重启")
 ("retain" "保留")
 ("retina screen settings" "高分屏设置")
 ("retina settings" "高分屏设置")
@@ -2395,6 +2398,10 @@
 ("surface" "曲面")
 ("swedish" "瑞典语")
 ("swiss" "")
+("switch interface theme" "切换界面主题")
+("switch keyboard shortcut style" "切换快捷键显示风格")
+("switch look and feel" "切换外观风格")
+("switch preference" "切换首选项")
 ("switch to first" "跳到第前面")
 ("switch to formula style" "")
 ("switch to last" "跳到最后面")
@@ -2498,6 +2505,8 @@
 ("this document has been produced using" "此文档撰写于")
 ("this document has not been saved" "现工作的暂存区信息尚未保存")
 ("this line" "")
+("this change requires restarting Mogan STEM to take full effect." "此更改需要重新启动 Mogan STEM 才能完全生效。")
+("this change requires restarting Liii STEM to take full effect." "此更改需要重新启动 Liii STEM 才能完全生效。")
 ("this page footer" "当前页页脚")
 ("this page header" "当前页页眉")
 ("this page" "")

TeXmacs/progs/prog/glue-symbols.scm

@@ -727,6 +727,7 @@
     "clone-window"
     "cpp-buffer-close"
     "cpp-confirm-close"
+    "cpp-confirm-restart"
     "cpp-form-dialog"
     "cpp-font-selector-dialog"
     "cpp-rasterize-widget"

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

@@ -26,13 +26,47 @@
 ;; Preferred scripting language
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+;; 三按钮重启确认的正文（陈述句，无问句——问句由按钮表达）。title 由调用方
+;; 按字段给出（如「切换界面主题」），本函数只产出通用的「需重启才生效」说明。
 (tm-define (restart-required-message)
   (if (community-stem?)
     (translate "Requires restarting Mogan STEM to take full effect. Restart now?")
     (translate "Requires restarting Liii STEM to take full effect. Restart now?")
   ) ;if
 ) ;tm-define
 
+(tm-define (restart-effect-message)
+  (if (community-stem?)
+    (translate "This change requires restarting Mogan STEM to take full effect.")
+    (translate "This change requires restarting Liii STEM to take full effect.")
+  ) ;if
+) ;tm-define
+
+;; 三按钮重启确认：弹 ConfirmRestart（重启/稍后/取消），按返回值分别
+;;   restart -> apply-proc + 存盘 + 重启
+;;   later   -> apply-proc（保留新值，不重启）
+;;   cancel  -> rollback-proc（回滚旧值）
+;; apply-proc / rollback-proc 为零参过程；用户未定义 save-all-buffers 时惰性加载。
+(tm-define (confirm-restart-and-act title apply-proc rollback-proc)
+  (with msg
+    (restart-effect-message)
+    (with choice
+      (cpp-confirm-restart title msg)
+      (cond ((== choice "restart")
+             (apply-proc)
+             (when (not (defined? 'save-all-buffers))
+               (use-modules (plugin autosave))
+             ) ;when
+             (save-all-buffers)
+             (restart-TeXmacs)
+            ) ;
+            ((== choice "later") (apply-proc))
+            (else (rollback-proc))
+      ) ;cond
+    ) ;with
+  ) ;with
+) ;tm-define
+
 (tm-menu (scripts-preferences-menu)
   (let* ((dummy (lazy-plugin-force)) (l (scripts-list)))
     (for (name l)

TeXmacs/progs/texmacs/menus/preferences-widgets.scm

@@ -23,26 +23,26 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
+;; 需重启字段的三按钮确认标题映射（内部值 -> 翻译标题）。
+
+(define (restart-preference-title which)
+  (cond ((== which "look and feel") (translate "Switch look and feel"))
+        ((== which "gui theme") (translate "Switch interface theme"))
+        ((== which "keyboard shortcut style")
+         (translate "Switch keyboard shortcut style")
+        ) ;
+        (else (translate "Switch preference"))
+  ) ;cond
+) ;define
+
 (tm-define (set-pretty-preference* which pretty-val)
   (let* ((old (get-pretty-preference which)))
     (when (!= old pretty-val)
-      (let ((msg (restart-required-message)))
-        (user-confirm msg
-          #f
-          (lambda (answ)
-            (set-pretty-preference which pretty-val)
-            (when answ
-              (begin
-                (when (not (defined? 'save-all-buffers))
-                  (use-modules (plugin autosave))
-                ) ;when
-                (save-all-buffers)
-                (restart-TeXmacs)
-              ) ;begin
-            ) ;when
-          ) ;lambda
-        ) ;user-confirm
-      ) ;let
+      ;; 三按钮确认：重启 / 稍后（保留新值）/ 取消（回滚旧值，修复旧 no 不回滚的 bug）。
+      (confirm-restart-and-act (restart-preference-title which)
+        (lambda () (set-pretty-preference which pretty-val))
+        (lambda () (set-pretty-preference which old))
+      ) ;confirm-restart-and-act
     ) ;when
   ) ;let*
 ) ;tm-define

ai-docs/qml/README.md

@@ -96,6 +96,7 @@ API 速查（`utils/library/dialog-value-table`，entry-key 由调用方自定
 | 对话框 | 模态引擎 | 模型 |
 |--------|---------|------|
 | `ConfirmClose` | `run_qml_dialog`（exec） | 点按钮返回结果 |
+| `ConfirmRestart` | `run_qml_dialog`（exec） | 三按钮（立即重启/稍后/取消），返回 `"restart"/"later"/"cancel"` |
 | `FormDialog` | `run_qml_dialog`（exec） | 本地暂存 `values`，OK 一次性 submit |
 | `FontSelector` | `run_modal_qml_dialog`（setModal+show） | live 写回文档，OK 落定 / Cancel 快照撤销 / Reset 按 global? 分流（文档级系统默认、段落级回快照） |
 | `ParagraphFormat` | `run_modal_qml_dialog`（setModal+show） | live 写回（段落 with / 文档 initial），按 scope 撤销 |
@@ -124,6 +125,18 @@ API 速查（`utils/library/dialog-value-table`，entry-key 由调用方自定
    在 scm 构造数据时即用 `translate` 包裹，不要硬编码英文。值（数字、内部 key）不翻译。
   字典条目按最小粒度登记（如 `"character count"` / `"with spaces"`），系统自动拼接
   （`"Character count (with spaces)"` → `"字符数（计空格）"`），不要为每种组合加整条字典。
+- **`translate` 的三条自动归一化**（实现在 `src/System/Language/dictionary.cpp` 的
+  `dictionary_rep::translate`，`qt_translate` 同源）：
+  1. **首字母大写折叠**：查表前把首字符转小写再查，命中后把结果首字母大写回。故字典
+     一律**小写首字母登记**（`("switch interface theme" "切换界面主题")`），代码里
+     `(translate "Switch interface theme")` / `qt_translate("Switch ...")` 均能命中。
+     仅首字符 ASCII 折叠，非全串大小写不敏感。
+  2. **递归切分拼接**：整串查不到时，按「非字母字符」剥离前后缀、在最后一个非字母非空格
+     字符处二分，各段递归 `translate` 再拼接。故带标点/括号的复合短语（统计项、含 `()`
+     的标题）拆最小词登记即可，**空格不触发切分**——纯空格短语须整条登记。
+  3. **`::` 后缀剥离**：`"File::menu"` 形式递归查 `"File"`，丢弃 `::` 及之后。
+- **字典条目按字母序排列**：`TeXmacs/plugins/lang/dic/en_US/zh_CN.scm` 等字典文件，
+  新增条目按首字母段插入（大小写混排时以小写为准），保持可检索。
 - **跨弹窗复用的布局常量收进 `Theme.qml`**：行高、间距等可能被多个弹窗共用的数字，统一加在
   `atoms/Theme.qml` 的结构尺寸/间距阶梯段。优先用已有常量组合（如 `Theme.btnH + Theme.padS * 2`
   表示按钮区高度），避免为单一用途加新常量。成品弹窗只保留本弹窗专属的布局参数（如列宽比