!1099 [202_72] 修复切换插件类型后重新打开弹窗不显示默认的python插件路径的问题

Author: MoonL79

TeXmacs/progs/dynamic/session-menu.scm

@@ -99,7 +99,7 @@
 (define binary-type "python")
 (define binary-path "")
 (define warning-message "")
-(define binary-list (list "python" "aspell" "conda" "convert" "goldfish" "ghostscript"))
+(define binary-list (list "python" "aspell" "conda" "convert" "goldfish" "ghostscript" "hunspell" "identify" "inkscape" "pandoc" "pdftocairo" "rsvg-convert"))
 
 (define-format windows-executables
   (:name "Executable")
@@ -109,14 +109,14 @@
   (:name "Executable")
   (:suffix ""))
 
+(tm-define (name-to-id name)
+  (cond ((string=? name "python") "python3")
+        ((string=? name "ghostcript") "gs")
+        (else name)))
+
 ; 更新路径信息，并刷新输入框让其显示新的路径信息
 (tm-define (update-path)
-  (let* ((this-opt (cond ((string=? binary-type "python")
-                          (string-append "plugin:binary:" binary-type "3"))
-                         ((string=? binary-type "ghostscript")
-                          (string-append "plugin:binary:" "gs"))
-                         (else
-                          (string-append "plugin:binary:" binary-type))))
+  (let* ((this-opt (string-append "plugin:binary:" (name-to-id binary-type)))
          (this-path (get-preference this-opt)))
     (cond ((string=? this-path "default")
            (set! binary-path ""))
@@ -126,21 +126,15 @@
 
 ; 拼接字符串并传递给set-preference设置自定义路径
 (tm-define (set-binary-path)
-  (let* ((binary-opt (cond ((string=? binary-type "python")
-                            "plugin:binary:python3")
-                           ((string=? binary-type "ghostscript")
-                            "plugin:binary:gs")
-                           (else
-                            (string-append "plugin:binary:" binary-type)))))
-    (set-preference binary-opt binary-path)
-    (display* (string-append binary-opt " " binary-path) "\n")))
+  (let* ((binary-opt (string-append "plugin:binary:" (name-to-id binary-type))))
+    (set-preference binary-opt binary-path)))
 
 ; 验证路径是否符合要求
 (tm-define (find-binary-in-candidates)
   (when (string=? binary-path "")
     #f)
   (let ((url (string->url binary-path))
-        (binary-name (cond ((string=? binary-type "ghostscript") 
+        (binary-name (cond ((string=? binary-type "ghostscript") ;这里不能用(name-to-id)处理，如果使用了，则python插件无法适用于下面的判断逻辑
                             "gs")
                            (else 
                             binary-type))))
@@ -219,15 +213,19 @@
                (lambda (x) (apply make-session x))))
     ("Other" (interactive make-session))
     ("Manual path" (dialogue-window manual-path-widget 
-                     (lambda (args) 
-                       (display* args "\n") 
+                     (lambda (args)  
                        (when (!= args "cancel") ; 仅路径存在并点击确定时开始设置路径
                          (if (not (find-binary-in-candidates)) ; 如果路径不合法，拒绝设置，弹出错误窗口
                            (dialogue-window path-incorrect-widget
-                             (lambda (args) (display* args "\n")) "Warning")
+                             (lambda (args) 
+                               (set! binary-type (car binary-list))) 
+                               "Warning")
                            (begin (set-binary-path) ; 路径合法，设置路径并弹出提示窗口
                              (dialogue-window please-restart-widget 
-                               (lambda (args) (display* args "\n")) "Warning"))))) 
+                               (lambda (args) 
+                                 (set! binary-type (car binary-list))) 
+                                 "Warning"))))
+                       (set! binary-type (car binary-list))) 
                      "Set binary path"))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

devel/202_72.md

@@ -8,6 +8,50 @@
 + 设置一个正确的路径，比如 **/usr/bin/python3** ，查看是否正确弹出需要重启软件的弹窗。
 + 设置一个错误的路径，比如 **/home/master/Desktop/test.txt** ，查看是否弹出路径错误的弹窗。
 + 成功设置路径后，点击 **插入->会话->scheme** ，输入 **(get-preference "plugin:binary:name")** ，其中 name 是刚才设置的插件名称，如果是 python 需要换成 python3，如果是 ghostscript 需要换成gs，查看输出是否为刚才自己设置的路径。
++ 查看下拉框中的项是否存在错误翻译为中文的现象。
++ 更改插件类型，查看文本框中的路径是否跟随变化为对应插件的路径。
++ 为一个插件设置空路径，点击确定，查看是否弹出错误窗口。
++ 打开弹窗，切换至python以外的插件类型，是否设置路径无所谓，点击确定，再次打开弹窗，查看python路径是否正确显示。
+
+## 2025/11/28 修复切换插件类型后重新打开弹窗不显示默认的python插件路径的问题
+
+### What
+
+打开弹窗，更改插件类型，点击确认设置路径，关闭再次打开弹窗，显示的插件类型是 python，但文本框中是上次设置的另一个插件的路径。
+
+### How
+
+在弹窗关闭前将 binary-type 重新设置为 python。
+
+## 2025/11/28 封装插件名称与插件id的转换逻辑
+
+### What
+
+存在插件名称与其可执行文件名称不对应的情况。
+
+### How
+
+创建一个函数实现名称的转换。
+
+## 2025/11/28 修复设置空路径不弹出错误窗口的问题
+
+### What
+
+若用户设置的路径为空，点击确定不会弹出错误窗口。
+
+### How
+
+删去多余的判断逻辑，路径为空时可以进入错误窗口弹出的判断。
+
+## 2025/11/28 修复文本框无法跟随下拉框选项变化的问题
+
+### What
+
+打开弹窗，选择默认的 python 以外的插件类型时，文本框不会跟随变化为对应插件的路径。
+
+### How
+
+修改 enum 逻辑，使 verbatim 不对其造成影响。
 
 ## 2025/11/27 修复了下拉框中的项被错误翻译的问题