[201_41] 懒加载 (liii ocr) 模块 (#2659)

Author: da-liii

TeXmacs/progs/generic/generic-edit.scm

@@ -17,8 +17,7 @@
 	(utils edit variants)
         (utils misc tooltip)
         (bibtex bib-complete)
-	(source macro-search)
-  (liii ocr)))
+	(source macro-search)))
 
 (tm-define (generic-context? t) #t) ;; overridden in, e.g., graphics mode
 
@@ -240,6 +239,8 @@ ocr-paste
 (ocr-paste)
 |#
 (tm-define (ocr-paste)
+  (when (not (defined? 'ocr-to-latex-by-cursor))
+    (use-modules (liii ocr)))
   (with data 
     (parse-texmacs-snippet (tree->string (tree-ref (clipboard-get "primary") 1)))
     (when (tree-is? (tree-ref data 0) 'image)
@@ -259,6 +260,8 @@ image-and-ocr-paste
     (when (tree-is? (tree-ref data 0) 'image)
           (kbd-paste)
           (kbd-return)
+          (when (not (defined? 'ocr-to-latex-by-cursor))
+            (use-modules (liii ocr)))
           (ocr-to-latex-by-cursor data))))
 
 (tm-define (paste-as-html)
@@ -291,6 +294,8 @@ paste-as-texmacs
 |#
 
 (tm-define (paste-as-texmacs)
+  (when (not (defined? 'ocr-to-latex-by-cursor))
+    (use-modules (liii ocr)))
   (with img-tree (tree-ref (clipboard-get "primary") 1)
     (cond ((tree-is? img-tree 'image) 
            (ocr-to-latex-by-cursor img-tree))

TeXmacs/progs/generic/paste-widget.scm

@@ -13,7 +13,6 @@
 (texmacs-module (generic paste-widget)
   (:use (generic generic-edit)
         (utils edit selections)
-        (liii ocr)
         (kernel texmacs tm-convert)))
 (import (only (liii list) delete))
 

devel/201_41.md

@@ -14,6 +14,8 @@
 + 使用 **插入图片** 与 **粘贴图片** 以外的方式，即除了 **Ctrl+Alt+v** 粘贴图片以及 **插入->图片->插入图片** 以外的任何方式向编辑器输入一张图片，这里建议的方法是直接将文件夹中的图片拖入 Mogan，这样会插入一个没有经过处理的，能够稳定弹出警告的图片。插入后将鼠标移入移出图片范围，查看控制台是否正常输出 **std-warning**，而不是 **too many arguments...** 
 + 截图，进入数学模式，粘贴之后会得到`E=m*c^2`
 
+## 2026/01/22 懒加载 (liii ocr) 模块
+
 ## 2026/01/07 修复数学模式下OCR粘贴
 
 ## 2026/01/07 添加OCR相关翻译