[201_41] 社区版ocr提示、代码整理与格式化

Author: MoonL79

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

@@ -62,15 +62,16 @@
   (when (url-exists? p)
         (string-load p)))
 
-(tm-define (insert-tips p)
-  (go-to p)
-  (go-to-next-node)
+(tm-define (insert-tips)
+  (go-to (cursor-path))
   (go-to-next-node)
   (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)
+  (go-to (cursor-path))
+  (go-to-next-node)
   (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)))
@@ -88,15 +89,12 @@
                 (binary-data (decode-base64 base64-str)))
             (string-save binary-data temp-name)
             (display* "Image has saved to " temp-name "\n"))))
-  (sleep 5)
-  (go-to (cursor-path))
-  (go-to-next-node)
-  (insert-latex))
+  (insert-tips))
 
 ; (get-image-extention (get-image t 0 #t)) 获取文件后缀，创建对应临时文件
 ; (get-image t 0 #f) 获取 raw-data
 
-(tm-define (create-temp-image t p)
+(tm-define (create-temp-image t)
   (let* ((extention 
            (get-image-extention (get-image t 0 #t)))
          (temp-name 
@@ -108,4 +106,4 @@
                 (binary-data (decode-base64 base64-str)))
             (string-save binary-data temp-name)
             (display* "Image has saved to " temp-name "\n"))))
-  (insert-tips p))
+  (insert-tips))

devel/201_41.md

@@ -2,11 +2,11 @@
 
 ## 如何测试
 打开201_41.tmu，进行以下测试项：
-+ 点击图片悬浮菜单的 OCR 按钮，查看是否在图片下方插入了一条 **很抱歉，目前OCR功能仅为会员用户提供。**，以及一行数学公式。
++ 点击图片悬浮菜单的 OCR 按钮，查看是否在图片下方插入了一条 **很抱歉，目前OCR功能仅为会员用户提供**
 + 查看日志中的提示 **Image has saved to /tmp/temp-currenttime.png**，其中 currenttime 为图片保存时的时间戳，每人各不相同，以控制台日志输出为准。前往目标目录，查看文件是否存在，以及是否能够正常打开。
-+ 在数学模式下使用选择性粘贴功能，对应快捷键 **Ctrl+Alt+v**，呼出菜单后选择OCR，点击确定，等待5秒后会插入一个数学公式
-+ 使用智能粘贴功能，对应快捷键 **Ctrl+Shift+v**，确保剪贴板最新的内容是一张图片，按下快捷键，等待5秒后会插入一个数学公式
-+ 使用 **插入图片** 与 **粘贴图片** 以外的方式向编辑器输入一张图片，鼠标移入移出图片范围，查看控制台是否正常输出warning
++ 在数学模式下使用选择性粘贴功能，对应快捷键 **Ctrl+Alt+v**，呼出菜单后选择OCR，点击确定，等待5秒后会插入一条 **很抱歉，目前OCR功能仅为会员用户提供**
++ 使用智能粘贴功能，对应快捷键 **Ctrl+Shift+v**，确保剪贴板最新的内容是一张图片，按下快捷键，等待5秒后会插入一条 **很抱歉，目前OCR功能仅为会员用户提供**
++ 使用 **插入图片** 与 **粘贴图片** 以外的方式，即除了 **Ctrl+Alt+v** 粘贴图片以及 **插入->图片->插入图片** 以外的任何方式向编辑器输入一张图片，这里建议的方法是直接将文件夹中的图片拖入 Mogan，这样会插入一个没有经过处理的，能够稳定弹出警告的图片。插入后将鼠标移入移出图片范围，查看控制台是否正常输出 **std-warning**，而不是 **too many arguement...** 
 
 ##  2025/12/25 模拟OCR通信流程
 

src/Edit/Interface/edit_mouse.cpp

@@ -582,7 +582,6 @@ 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") {
@@ -606,8 +605,8 @@ 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 (_path, with_tree, selr, magf, get_scroll_x (),
-                      get_scroll_y (), get_canvas_x ());
+    show_image_popup (with_tree, selr, magf, get_scroll_x (), get_scroll_y (),
+                      get_canvas_x ());
   }
   else {
     set_cursor_style ("normal");

src/Plugins/Qt/QTMImagePopup.cpp

@@ -106,11 +106,6 @@ QTMImagePopup::showImagePopup (rectangle selr, double magf, int scroll_x,
   show ();
 }
 
-void
-QTMImagePopup::setImagePath (path p) {
-  this->current_path= p;
-}
-
 void
 QTMImagePopup::setImageTree (tree t) {
   this->current_tree= t;

src/Plugins/Qt/QTMImagePopup.hpp

@@ -49,7 +49,6 @@ class QTMImagePopup : public QWidget {
                        int canvas_x);
   void updatePosition ();
   void scrollBy (int x, int y);
-  void setImagePath (path p);
   void setImageTree (tree t);
   void updateButtonStates ();
   void autoSize ();

src/Plugins/Qt/qt_simple_widget.cpp

@@ -760,12 +760,10 @@ qt_simple_widget_rep::ensure_image_popup () {
 }
 
 void
-qt_simple_widget_rep::show_image_popup (path current_path, tree current_tree,
-                                        rectangle selr, double magf,
-                                        int scroll_x, int scroll_y,
+qt_simple_widget_rep::show_image_popup (tree current_tree, rectangle selr,
+                                        double magf, int scroll_x, int scroll_y,
                                         int canvas_x) {
   ensure_image_popup ();
-  imagePopUp->setImagePath (current_path);
   imagePopUp->setImageTree (current_tree);
   imagePopUp->showImagePopup (selr, magf, scroll_x, scroll_y, canvas_x);
 }

src/Plugins/Qt/qt_simple_widget.hpp

@@ -115,8 +115,8 @@ class qt_simple_widget_rep : public qt_widget_rep {
 
   ////////////////////// Image popup support
   void ensure_image_popup ();
-  void show_image_popup (path current_path, tree current_tree, rectangle selr,
-                         double magf, int scroll_x, int scroll_y, int canvas_x);
+  void show_image_popup (tree current_tree, rectangle selr, double magf,
+                         int scroll_x, int scroll_y, int canvas_x);
   void hide_image_popup ();
   void scroll_image_popup_by (SI x, SI y);