[222_39] 选择性粘贴窗口添加引导信息 (#2754)

Author: MoonL79

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

@@ -2347,6 +2347,8 @@
 ("triangle" "三角形")
 ("trigonometry" "三角函数")
 ("try to import formulas using LaTeX annotations" "尝试使用 LaTeX 注释导入公式")
+("Try Ctrl/⌘+Shift+v, auto-detects format." "试试Ctrl/⌘+Shift+v，自动识别格式。")
+("Wrong result? Use Selective Paste here." "结果不准确？请用此处的选择性粘贴。")
 ("tuple" "元组")
 ("turkish" "土耳其文")
 ("tutorial" "入门教程")

TeXmacs/progs/generic/paste-widget.scm

@@ -99,7 +99,8 @@
          (selected-format "verbatim")
          (tips1 "Please select...")
          (tips2 "")
-         (tips3 (string-append (translate "shortcut") ": " (translate "none")))
+         (tips3 (translate "Try Ctrl/⌘+Shift+v, auto-detects format."))
+         (tips4 (translate "Wrong result? Use Selective Paste here."))
          (plain-format-list    (list "Markdown" "LaTeX" "HTML" (translate "Plain text")))
          (math-format-list     (list "LaTeX" "MathML"))
          (program-format-list  (list (translate "Code")))
@@ -116,8 +117,7 @@
     (invisible (set! selected-format (convert-format-string-to-symbol (car l))))
     (invisible (set! tips1 (translate (get-tips selected-format))))
     (invisible (set! tips2 (translate "ENTER to confirm, ESC to cancel")))
-    (invisible (set! tips3 (string-append (translate "shortcut") ": " (shortcut selected-format))))
-    (resize "320px" "270px"
+    (resize "320px" "310px"
       (padded
         (vertical
           (horizontal
@@ -137,19 +137,18 @@
                   (choice (begin
                             (set! selected-format (convert-format-string-to-symbol (translate answer)))
                             (set! tips1 (translate (get-tips selected-format)))
-                            (set! tips3 (string-append (translate "shortcut") ": " (shortcut selected-format)))
                             (refresh-now "format-explanation")
                             (refresh-now "paste-shortcut"))
                           l
                           (car l))))))
           ===
           (refreshable "format-explanation"
             (bold (text "Tips"))
-            (resize "320px" "90px"
+            (resize "320px" "110px"
             (texmacs-output
               `(with "bg-color" "white"
                 "font-base-size" "18"
-                (document ,tips1 ,tips3 ,tips2))
+                (document ,tips1 ,tips2 ,tips3 ,tips4))
               '(style "generic")))))))
       (bottom-buttons
         >> ("ok" (cmd selected-format)) // ("cancel" (cmd #f)))))

devel/222_39.md

@@ -0,0 +1,15 @@
+# [222_39] 选择性粘贴窗口添加引导信息
+
+## 如何测试
+Ctrl/Command+Alt+v触发选择性粘贴窗口，查看说明区域是否存在文本：
+```text
+Try Ctrl+Shift+v, auto-detects format.
+Wrong result? Use Selective Paste here.
+```
+或者是中文：
+```text
+试试Ctrl+Shift+v，自动识别格式。
+结果不准确？请用此处的选择性粘贴。
+```
+
+## 2026/02/04 选择性粘贴窗口添加引导信息