[201_41] 模拟OCR通信流程

Author: MoonL79

TeXmacs/plugins/account/progs/liii/ocr.scm

@@ -66,11 +66,14 @@
   (go-to p)
   (go-to-next-node)
   (go-to-next-node)
-  (let* ((content (get-file-string (unix->url "$TEXMACS_PATH/plugins/account/data/ocr.md")))
-         (latex-code (get-file-string (unix->url "$TEXMACS_PATH/plugins/account/data/ocr.tex")))
+  (let* ((content (get-file-string (unix->url "$TEXMACS_PATH/plugins/account/data/ocr.md"))))
+    (insert `(with "par-mode" "center" (document ,(utf8->cork content))))))
+
+
+(tm-define (insert-latex)
+  (let* ((latex-code (get-file-string (unix->url "$TEXMACS_PATH/plugins/account/data/ocr.tex")))
          (parsed-latex (parse-latex latex-code))
          (texmacs-latex (latex->texmacs parsed-latex)))
-    (insert `(with "par-mode" "center" (document ,(utf8->cork content))))
     (insert texmacs-latex)))
 
 (tm-define (image-ocr-to-latex t)
@@ -87,7 +90,8 @@
             (display* "Image has saved to " temp-name "\n"))))
   (sleep 5)
   (go-to (cursor-path))
-  (insert `(with "par-mode" "center" (document ,(utf8->cork "很抱歉，目前OCR功能仅为会员用户提供。")))))
+  (go-to-next-node)
+  (insert-latex))
 
 ; (get-image-extention (get-image t 0 #t)) 获取文件后缀，创建对应临时文件
 ; (get-image t 0 #f) 获取 raw-data

TeXmacs/progs/generic/format-edit.scm

@@ -173,15 +173,15 @@
            (string=? (tree->string (tree-ref t 0)) "par-mode")
            (>= (tree-arity t) 3))
     (tree-set! t 1 align)
-    (debug-message "std-warning" "Invalid tree structure for set-image-alignment" "\n")))
+    (debug-message "std-warning" "Invalid tree structure for set-image-alignment\n")))
 
 (tm-define (get-image-alignment t)
   (if (and (tree-is? t 'with) 
            (tree-is? (tree-ref t 0) 'string)
            (string=? (tree->string (tree-ref t 0)) "par-mode")
            (>= (tree-arity t) 3))
     (tree->string (tree-ref t 1))
-    (debug-message "std-warning" "Invalid tree structure for get-image-alignment" "\n")))
+    (debug-message "std-warning" "Invalid tree structure for get-image-alignment\n")))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Inserting and toggling with-like tags

devel/201_41.md

@@ -4,8 +4,18 @@
 打开201_41.tmu，进行以下测试项：
 + 点击图片悬浮菜单的 OCR 按钮，查看是否在图片下方插入了一条 **很抱歉，目前OCR功能仅为会员用户提供。**，以及一行数学公式。
 + 查看日志中的提示 **Image has saved to /tmp/temp-currenttime.png**，其中 currenttime 为图片保存时的时间戳，每人各不相同，以控制台日志输出为准。前往目标目录，查看文件是否存在，以及是否能够正常打开。
-+ 在数学模式下使用选择性粘贴功能，对应快捷键 **Ctrl+Alt+v**，呼出菜单后选择OCR，点击确定，等待5秒后会插入一句提示信息
-+ 使用智能粘贴功能，对应快捷键 **Ctrl+Shift+v**，确保剪贴板最新的内容是一张图片，按下快捷键，等待5秒后会插入一句提示信息
++ 在数学模式下使用选择性粘贴功能，对应快捷键 **Ctrl+Alt+v**，呼出菜单后选择OCR，点击确定，等待5秒后会插入一个数学公式
++ 使用智能粘贴功能，对应快捷键 **Ctrl+Shift+v**，确保剪贴板最新的内容是一张图片，按下快捷键，等待5秒后会插入一个数学公式
++ 使用 **插入图片** 与 **粘贴图片** 以外的方式向编辑器输入一张图片，鼠标移入移出图片范围，查看控制台是否正常输出warning
+
+##  2025/12/25 模拟OCR通信流程
+
+### What
+
++ 商业版编写 demo 文件，跑通 OCR 识别全流程
++ 进行了代码集成的尝试，待后续测试与改进
++ 修改了插入文字的位置，新的插入位置为图片块内部，图片的下方
++ 修复了负责控制图片对齐方式的函数的警告信息输出问题，使用正确的参数个数
 
 ## 2025/12/24 模拟OCR识别
 

src/Edit/Interface/edit_mouse.cpp

@@ -582,6 +582,7 @@ edit_interface_rep::mouse_any (string type, SI x, SI y, int mods, time_t t,
     }
   }
   bool             hovering_image= false;
+  static path      _path         = tree_path (path (), x, y, 0);
   static path      current_path  = path ();
   static rectangle selr          = rectangle ();
   if (type == "move") {
@@ -605,7 +606,7 @@ edit_interface_rep::mouse_any (string type, SI x, SI y, int mods, time_t t,
     set_cursor_style ("pointing_hand");
     path with_path= path_up (current_path);
     tree with_tree= subtree (et, with_path);
-    show_image_popup (current_path, with_tree, selr, magf, get_scroll_x (),
+    show_image_popup (_path, with_tree, selr, magf, get_scroll_x (),
                       get_scroll_y (), get_canvas_x ());
   }
   else {