[222_43] 确认对话框 Scheme 侧优化为使用通用函数 (#2812)

Author: Yuki-Nagori

TeXmacs/progs/kernel/texmacs/tm-dialogue.scm

@@ -32,6 +32,12 @@
         (user-ask (list prompt "question" (translate "yes") (translate "no")) k)
         (user-ask (list prompt "question" (translate "no") (translate "yes")) k))))
 
+(define-public (user-simple-confirm prompt default cont)
+    (let ((k (lambda (answ) (cont (yes? answ)))))
+      (if default
+          (user-ask (list prompt "question-no-cancel" (translate "yes") (translate "no")) k)
+          (user-ask (list prompt "question-no-cancel" (translate "no") (translate "yes")) k))))
+
 (define-public (user-url prompt type cont)
   (user-delayed (lambda () (choose-file cont prompt type))))
 

TeXmacs/progs/texmacs/texmacs/tm-print.scm

@@ -77,10 +77,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define (user-confirm-open-pdf fname)
-  (user-ask (list "Open PDF?" "question-no-cancel"
-                  (translate "no") (translate "yes"))
-    (lambda (answ)
-      (when (yes? answ) (preview-file fname)))))
+    (user-simple-confirm "Open PDF?" #f
+      (lambda (open?)
+       (when open? (preview-file fname)))))
 
 (tm-define (wrapped-print-to-file fname)
   (system-wait "Exporting, " (translate "please wait"))

devel/222_43.md

@@ -7,6 +7,10 @@
 4. 导出完成后弹出对话框
 5. 预期：只有“是/否”（或等价两项）按钮，不出现“取消”。
 
+## 2026/02/11
+### What
+- Scheme 侧优化为使用通用函数
+
 ## 2026/02/10
 ### What
 - 导出 PDF 后的确认对话框仅保留两项选择。