[0103] 修复文档级 par-first 导致页眉页脚缩进 (#3314)

Author: da-liii

TeXmacs/tests/tmu/0103.tmu

@@ -0,0 +1,25 @@
+<TMU|<tuple|1.1.0|2026.2.4>>
+
+<style|<tuple|generic|chinese|table-captions-above|number-europe|preview-ref>>
+
+<\body>
+  这是一个段落。这是一个段落。这是一个段落。这是一个段落。这是一个段落。这是一个段落。这是一个段落。这是一个有缩进的段落。
+
+  <\with|par-first|0fn>
+    1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890
+  </with>
+
+  本文档是全局缩进两个字符，第二个段落是通过格式\<rightarrow\>段落取消了缩进的，可以通过第二个段落来观察页眉是否缩进。
+</body>
+
+<\initial>
+  <\collection>
+    <associate|page-even-footer|<tformat|<cwith|1|-1|1|-1|cell-halign|c>|<tformat|<twith|table-width|1par>|<twith|table-hmode|exact>|<cwith|1|1|1|1|cell-width|0.3par>|<cwith|1|1|1|1|cell-hmode|exact>|<cwith|1|1|3|3|cell-width|0.3par>|<cwith|1|1|3|3|cell-hmode|exact>|<cwith|1|1|2|2|cell-width|0.4par>|<cwith|1|1|2|2|cell-hmode|exact>|<cwith|1|1|1|1|cell-halign|l>|<cwith|1|1|3|3|cell-halign|r>|<table|<row|<cell|>|<cell|<page-the-page>>|<cell|>>>>>>
+    <associate|page-even-header|>
+    <associate|page-medium|paper>
+    <associate|page-odd-footer|<tformat|<cwith|1|-1|1|-1|cell-halign|c>|<tformat|<twith|table-width|1par>|<twith|table-hmode|exact>|<cwith|1|1|1|1|cell-width|0.3par>|<cwith|1|1|1|1|cell-hmode|exact>|<cwith|1|1|3|3|cell-width|0.3par>|<cwith|1|1|3|3|cell-hmode|exact>|<cwith|1|1|2|2|cell-width|0.4par>|<cwith|1|1|2|2|cell-hmode|exact>|<cwith|1|1|1|1|cell-halign|l>|<cwith|1|1|3|3|cell-halign|r>|<table|<row|<cell|>|<cell|<page-the-page>>|<cell|>>>>>>
+    <associate|page-odd-header|<tabular|<tformat|<cwith|1|1|1|1|cell-width|0.3par>|<cwith|1|1|1|1|cell-hmode|exact>|<cwith|1|1|3|3|cell-width|0.3par>|<cwith|1|1|3|3|cell-hmode|exact>|<cwith|1|1|2|2|cell-width|0.4par>|<cwith|1|1|2|2|cell-hmode|exact>|<cwith|1|1|1|1|cell-halign|l>|<cwith|1|1|3|3|cell-halign|r>|<cwith|1|1|2|2|cell-halign|c>|<table|<row|<cell|>|<cell|<page-the-page>>|<cell|>>>>>>
+    <associate|page-screen-margin|false>
+    <associate|par-first|2fn>
+  </collection>
+</initial>

devel/0103.md

@@ -0,0 +1,31 @@
+# [0103] 修复文档级 par-first 导致页眉页脚缩进的问题
+
+## 相关文档
+- [dddd.md](dddd.md) - 任务文档模板
+
+## 任务相关的代码文件
+- `src/Typeset/Page/pager.cpp` - 页眉页脚排版逻辑
+
+## 如何测试
+
+### 手动验证
+1. 打开 `TeXmacs/tests/tmu/0103.tmu`
+2. 观察页眉是否居中
+3. 预期结果：页眉居中显示
+
+> 注：Mogan v2026.2.4 中页眉不居中（偏右侧），当前分支已修复为居中。
+
+## What
+
+修复当文档的首行缩进设置为 2 个字符（内部实现为将文档级别的 `par-first` 设为 `2fn`）时，页眉和页脚也会被错误地应用段落首行缩进的问题。
+
+1. 在 `pager_rep::make_header` 中临时将 `PAR_FIRST` 设为 `0cm`
+2. 在 `pager_rep::make_footer` 中临时将 `PAR_FIRST` 设为 `0cm`
+
+## Why
+
+`par-first`（段落首行缩进）是段落级别的排版属性。文档级别的 `par-first` 设置应当只影响正文段落，而不应影响页眉和页脚。目前 `section` 标题等已经正确处理了这一问题，但页眉和页脚在排版时直接继承了文档环境的 `PAR_FIRST` 值，导致出现不期望的缩进。
+
+## How
+
+在 `pager.cpp` 的 `make_header` 和 `make_footer` 函数中，排版页眉/页脚内容之前，使用 `env->local_begin(PAR_FIRST, "0cm")` 临时覆盖 `par-first` 值，排版完成后通过 `env->local_end(PAR_FIRST, old)` 恢复。这与函数中已有的 `PAR_COLUMNS` 临时覆盖方式一致。

src/Typeset/Page/pager.cpp

@@ -240,14 +240,16 @@ pager_rep::make_header (bool empty_flag) {
   int current_page= N (pages) + 1 + page_offset;
   if (current_page <= 0) env->write (PAGE_NR, "");
   else env->write (PAGE_NR, as_string (current_page));
-  tree   old  = env->local_begin (PAR_COLUMNS, "1");
-  string which= (N (pages) & 1) == 0 ? PAGE_ODD_HEADER : PAGE_EVEN_HEADER;
+  tree   old_col  = env->local_begin (PAR_COLUMNS, "1");
+  tree   old_first= env->local_begin (PAR_FIRST, "0cm");
+  string which    = (N (pages) & 1) == 0 ? PAGE_ODD_HEADER : PAGE_EVEN_HEADER;
   if (style[PAGE_THIS_HEADER] != "") which= PAGE_THIS_HEADER;
   tree header_tree= decode_images_in_tree (style[which]);
   box  b          = typeset_as_concat (
       env, attach_here (tree (PARA, header_tree), decorate ()));
   style (PAGE_THIS_HEADER)= "";
-  env->local_end (PAR_COLUMNS, old);
+  env->local_end (PAR_FIRST, old_first);
+  env->local_end (PAR_COLUMNS, old_col);
   return b;
 }
 
@@ -258,14 +260,16 @@ pager_rep::make_footer (bool empty_flag) {
   if (current_page <= 0) env->write (PAGE_NR, "");
   else env->write (PAGE_NR, as_string (current_page));
   env->write (PAGE_THE_PAGE, style[PAGE_THE_PAGE]);
-  tree   old  = env->local_begin (PAR_COLUMNS, "1");
-  string which= (N (pages) & 1) == 0 ? PAGE_ODD_FOOTER : PAGE_EVEN_FOOTER;
+  tree   old_col  = env->local_begin (PAR_COLUMNS, "1");
+  tree   old_first= env->local_begin (PAR_FIRST, "0cm");
+  string which    = (N (pages) & 1) == 0 ? PAGE_ODD_FOOTER : PAGE_EVEN_FOOTER;
   if (style[PAGE_THIS_FOOTER] != "") which= PAGE_THIS_FOOTER;
   tree footer_tree= decode_images_in_tree (style[which]);
   box  b          = typeset_as_concat (
       env, attach_here (tree (PARA, footer_tree), decorate ()));
   style (PAGE_THIS_FOOTER)= "";
-  env->local_end (PAR_COLUMNS, old);
+  env->local_end (PAR_FIRST, old_first);
+  env->local_end (PAR_COLUMNS, old_col);
   return b;
 }