[204_24] 改进bg-color属性相关代码，marked仍旧使用表格实现 (#2344)

Author: da-liii

TeXmacs/packages/standard/std-markup.ts

@@ -476,7 +476,9 @@
 
   <assign|marked-color|#ffe47f>
 
-  <assign|marked|<macro|body|<with|bg-color|<value|marked-color>|<arg|body>>>>
+  <assign|marked-padding|0.2fn>
+
+  <assign|marked|<macro|body|<quasi|<style-with|src-compact|none|<datoms|<macro|x|<style-with|src-compact|none|<tabular|<tformat|<cwith|1|1|1|1|cell-background|<unquote|<value|marked-color>>>|<cwith|1|1|1|1|cell-lsep|<unquote|<value|marked-padding>>>|<cwith|1|1|1|1|cell-rsep|<unquote|<value|marked-padding>>>|<cwith|1|1|1|1|cell-bsep|<unquote|<value|marked-padding>>>|<cwith|1|1|1|1|cell-tsep|<unquote|<value|marked-padding>>>|<cwith|1|-1|1|-1|cell-lborder|0ln>|<cwith|1|-1|1|-1|cell-rborder|0ln>|<cwith|1|-1|1|-1|cell-bborder|0ln>|<cwith|1|-1|1|-1|cell-tborder|0ln>|<twith|table-width|>|<twith|table-valign|B>|<twith|table-hmode|auto>|<twith|table-block|no>|<table|<row|<cell|<arg|x>>>>>>>>|<arg|body>>>>>>
 
   <drd-props|marked|with-like|yes|arity|1|accessible|all>
 

TeXmacs/tests/tmu/204_24.tmu

@@ -7,67 +7,56 @@
 
   <section|文本>
 
-  普通文本，无背景色
+  采用bg-color属性调整背景色。
 
-  \;
+  普通文本，无背景色
 
   <with|bg-color|yellow|黄色背景的文本>
 
-  \;
-
   <with|bg-color|light gray|浅灰色背景的文本>
 
-  \;
-
   <with|bg-color|#e0e0ff|#e0e0ff 颜色背景的文本>
 
-  \;
-
   <with|bg-color|#ffcccc|<with|color|red|红色文字配粉色背景>>
 
-  \;
-
   <with|bg-color|#ccffcc|<with|color|dark green|深绿色文字配浅绿色背景>>
 
   <\with|bg-color|#ffffcc>
     多行文本块带有浅黄色背景。 这是对多行背景色支持的测试。 背景应该覆盖整个文本块。我们需要提供更多文字，才能覆盖多行。
   </with>
 
-  <\with|bg-color|#ffffcc>
+  <\with|bg-color|#ffffcc99>
     多行文本块带有浅黄色背景。 这是对多行背景色支持的测试。\ 
 
     背景应该覆盖整个文本块。
   </with>
 
-  单个空格：<marked| >
-
-  两个空格：<marked| \ >
-
-  空格在字符左边：<marked| abc>
-
-  空格在字符右边：<marked|abc >\ 
-
   <section|数学模式>
 
-  \;
+  采用marked标记调整背景色，实际上是表格。
 
   数学公式背景测试：
 
   <\with|bg-color|light blue>
     <\equation*>
-      E=mc<rsup|2>
+      <with|marked-color|pastel cyan|<marked|E=mc<rsup|2>>>
     </equation*>
   </with>
 
+  <\equation*>
+    <marked|<big|int>x\<mathd\>x>
+  </equation*>
+
   \;
 
-  <with|bg-color|#ffeeee|行内数学 <with|mode|math|<frac|a|b>> 带背景>
+  <marked|行内数学 <with|mode|math|<frac|a|b>> 带背景>
 </body>
 
 <\initial>
   <\collection>
     <associate|page-medium|paper>
     <associate|page-screen-margin|false>
+    <associate|preamble|false>
   </collection>
 </initial>
 

devel/204_24.md

@@ -3,6 +3,8 @@
 1. 打开`TeXmacs/tests/tmu/204_24.tmu`，直接观察文档的颜色是否合理
 2. 调整文档的语言，比如换成英语，观察文档颜色是否合理
 
+## 2025/12/25 marked仍旧使用表格实现
+
 ## 2025/12/25 支持bg-color属性
 ### What
 1. marked改为使用bg-color实现

src/Typeset/Concat/concat_text.cpp

@@ -42,23 +42,39 @@ get_background_color (edit_env env) {
   return named_color (bg_color_str, env->alpha);
 }
 
+static inline color
+apply_alpha (color c, int alpha) {
+  if (alpha == 255) return c;
+  int r, g, b, a;
+  get_rgb_color (c, r, g, b, a);
+  return rgb_color (r, g, b, alpha);
+}
+
 /******************************************************************************
- * Typesetting strings
+ * Unified text box builder
  ******************************************************************************/
-
-void
-concater_rep::typeset_substring (string s, path ip, int pos) {
+static inline box
+build_text_box (path ip, int pos, string s, edit_env env) {
   if (has_background_color (env)) {
-    // 有背景色设置，使用 typeset_background_substring
-    typeset_background_substring (s, ip, pos, get_background_color_str (env));
+    color bg_color= get_background_color (env);
+    return text_box_with_bg (ip, pos, s, env->fn, env->pen, bg_color,
+                             xkerning ());
   }
   else {
-    // 没有背景色设置，使用普通文本框
-    box b= text_box (ip, pos, s, env->fn, env->pen);
-    a << line_item (STRING_ITEM, OP_TEXT, b, HYPH_INVALID, env->lan);
+    return text_box (ip, pos, s, env->fn, env->pen);
   }
 }
 
+/******************************************************************************
+ * Typesetting strings
+ ******************************************************************************/
+
+void
+concater_rep::typeset_substring (string s, path ip, int pos) {
+  box b= build_text_box (ip, pos, s, env);
+  a << line_item (STRING_ITEM, OP_TEXT, b, HYPH_INVALID, env->lan);
+}
+
 void
 concater_rep::typeset_math_substring (string s, path ip, int pos, int otype) {
   box b= text_box (ip, pos, s, env->fn, env->pen);
@@ -87,14 +103,6 @@ concater_rep::typeset_math_macro (string s, tree_label m, path ip, int p1,
   marker (descend (ip, p2));
 }
 
-static inline color
-apply_alpha (color c, int alpha) {
-  if (alpha == 255) return c;
-  int r, g, b, a;
-  get_rgb_color (c, r, g, b, a);
-  return rgb_color (r, g, b, alpha);
-}
-
 void
 concater_rep::typeset_colored_substring (string s, path ip, int pos,
                                          string col) {
@@ -110,36 +118,6 @@ concater_rep::typeset_colored_substring (string s, path ip, int pos,
   a << line_item (STRING_ITEM, OP_TEXT, b, HYPH_INVALID, env->lan);
 }
 
-void
-concater_rep::typeset_background_substring (string s, path ip, int pos,
-                                            string bg_col) {
-
-  // 获取背景颜色
-  color bg_color;
-  if (bg_col == "") {
-    bg_color= apply_alpha (env->pen->get_color (), env->alpha);
-  }
-  else if (env->provides (bg_col)) {
-    tree t= env->read (bg_col);
-    if (t == "") {
-      bg_color= apply_alpha (env->pen->get_color (), env->alpha);
-    }
-    else {
-      string t_str= as_string (t);
-      bg_color    = named_color (t_str, env->alpha);
-    }
-  }
-  else {
-    bg_color= named_color (bg_col, env->alpha);
-  }
-
-  // 创建带有背景色的文本框
-  box b=
-      text_box_with_bg (ip, pos, s, env->fn, env->pen, bg_color, xkerning ());
-
-  a << line_item (STRING_ITEM, OP_TEXT, b, HYPH_INVALID, env->lan);
-}
-
 #define PRINT_SPACE(spc_type)                                                  \
   if (spc_type != SPC_NONE) print (spc_tab[spc_type]);
 

src/Typeset/Concat/concater.hpp

@@ -47,7 +47,6 @@ class concater_rep {
   void typeset_math_macro (string s, tree_label m, path ip, int p1, int p2,
                            int ot);
   void typeset_colored_substring (string s, path ip, int pos, string col);
-  void typeset_background_substring (string s, path ip, int pos, string bg_col);
   void typeset_text_string (tree t, path ip, int start, int end);
   void typeset_math_string (tree t, path ip, int start, int end);
   void typeset_prog_string (tree t, path ip, int start, int end);