[204_31] 书籍模式的页面渲染优化 (#3287)

Co-authored-by: Claude Opus 4.7 <noreply@anthropic.com>

Author: da-liii

TeXmacs/progs/generic/document-edit.scm

@@ -320,6 +320,9 @@
 
 (tm-define (get-init-page-rendering)
   (cond ((== (get-init "page-border") "attached") "book")
+        ((and (== (get-init "page-packet") "2")
+              (== (get-init "page-medium") "paper")
+              (== (get-init "page-border") "none")) "book")
         ((!= (get-init "page-packet") "1") "panorama")
         ((and (== (get-init "page-medium") "paper")
               (nnot (tree-innermost 'slideshow))) "slideshow")
@@ -343,11 +346,11 @@
   (save-zoom (get-init-page-rendering))
   (cond ((== s "book")
          (init-env "page-medium" "paper")
-         (init-env "page-border" "attached")
+         (init-env "page-border" "none")
          (init-env "page-packet" "2")
-         (init-env "page-offset" "1")
+         (init-env "page-offset" "0")
 	 (notify-page-change)
-	 (delayed (:idle 25) (restore-zoom s)))
+	 (delayed (:idle 25) (fit-to-screen-width)))
         ((== s "panorama")
          (init-env "page-medium" "paper")
          (init-env "page-packet" (number->string (panorama-packets)))

devel/204_31.md

@@ -0,0 +1,48 @@
+# 204_31: 优化书籍模式页面渲染
+
+## 如何测试
+
+1. 新建一个空文档
+2. 点击 **文档 -> 页面 -> 页面渲染 -> Book**
+3. 观察页面显示：
+   - 应该显示两页并排（即使只有一页内容，另一页为空白）
+   - 第一行就应该显示两页，而不是第一行只有一页
+   - 多页时，同一列的上下页之间应有等距的垂直间隙
+4. 添加一些内容产生多页，确认多页时的布局仍然是每行两页，且垂直间隙一致
+5. 切换到 Book 模式后，页面会自动 Fit Width（适合宽度）
+6. 切换到其他模式（如 Paper、Panorama），确认模式切换正常，菜单 check-mark 显示正确
+
+## 2026/05/08
+
+### What
+
+点击 **文档 -> 页面 -> 页面渲染 -> Book（书籍）** 后，页面渲染存在以下问题：
+
+1. **第一行只有 1 页**：Book 模式设置 `page-offset` 为 `"1"`，导致第一页偏移到右侧，第一行只显示 1 页。
+2. **空文档只显示 1 页**：`pager.cpp` 中 `nx = min(page_packet, nr_pages)` 会限制列数为实际页数，空文档（仅 1 页）无法显示两页并排。
+3. **行间缺少垂直间隙**：`page-border` 为 `"none"` 时，页面之间只有水平间隙，同一列的上下页之间没有等距的垂直间隙。
+
+### Why
+
+Book 模式的设计目标是模拟真实书籍的打开状态：两页并排显示，无多余装饰，各页之间有适当留白。当前实现偏离了这一目标：
+
+- `page-offset = "1"` 导致布局不对称，破坏了书籍打开后的自然视觉。
+- `nx` 受实际页数限制，空文档无法预览两页并排效果。
+- 缺少垂直间隙使多页时的纵向排版过于拥挤，阅读体验差。
+
+### How
+
+#### `src/Typeset/Page/pager.cpp`
+
+- 固定 Book 模式列数：当 `page-packet == 2` 时，`nx = max(1, env->page_packet)`，确保即使只有 1 页也按 2 列排版。
+- 添加垂直间隙：当 `page-border == "none"` 时，设置 `vgap = 4 * pixel`，并在 `yy[j]` 的行位置计算中统一减去 `vgap`，保证所有相邻行之间的垂直间隙一致（相对之前增大到两倍）。
+- 清理条件编译：移除与 QTTEXMACS 无关的 `#ifdef` 分支，只保留 QTTEXMACS 代码。
+- 增大横向间隔：当 `page-border == "none"` 时，左右页之间的水平间隔从 `pixel / 2` 增大到 `pixel`（两倍）。
+
+#### `TeXmacs/progs/generic/document-edit.scm`
+
+- 将 Book 模式的初始化参数改为：
+  - `page-offset`: `"1"` → `"0"`
+  - `page-border`: `"attached"` → `"none"`
+- 扩展 `get-init-page-rendering` 的 Book 模式识别条件：当 `page-packet == "2"` 且 `page-medium == "paper"` 且 `page-border == "none"` 时，也识别为 Book 模式，确保菜单 check-mark 和模式切换逻辑正确。
+- 切换 Book 模式后默认适合宽度：将 Book 模式切换后的缩放行为从 `(restore-zoom s)` 改为 `(fit-to-screen-width)`，使用户进入 Book 模式后自动以适合宽度的比例查看页面。

src/Typeset/Page/make_pages.cpp

@@ -209,6 +209,8 @@ pager_rep::pages_make () {
   env->write (PAGE_THE_TOTAL, as_string (n));
   for (i= 0; i < n; i++)
     pages << pages_make_page (sk[i]);
+  if (env->page_packet == 2 && (N (pages) & 1) == 1)
+    pages << pages_make_page (pagelet (space (0)));
 }
 
 void

src/Typeset/Page/pager.cpp

@@ -301,26 +301,32 @@ pager_rep::make_pages () {
 
   int nr_pages= N (pages);
   int nx      = max (1, min (env->page_packet, nr_pages));
-  int d       = env->page_offset % nx;
-  int ny      = ((nr_pages + nx - 1 + d) / nx);
-
-  SI         pixel= env->pixel;
-  array<box> pg   = pages;
-  if (env->get_string (PAGE_MEDIUM) == "paper" &&
-      env->get_string (PAGE_BORDER) != "none")
+  if (env->page_packet == 2) nx= max (1, env->page_packet);
+  int d = env->page_offset % nx;
+  int ny= ((nr_pages + nx - 1 + d) / nx);
+
+  SI pixel= env->pixel;
+  SI vgap = 0;
+  if (env->get_string (PAGE_BORDER) == "none") {
+    vgap= 4 * pixel;
+  }
+  array<box> pg= pages;
+  if (env->get_string (PAGE_MEDIUM) == "paper")
     for (int i= 0; i < nx; i++)
       for (int j= 0; j < ny; j++) {
         int p= j * nx + i - d;
         if (p >= 0 && p < nr_pages) {
-          SI l= 10 * pixel, r= 10 * pixel;
-          SI b= 10 * pixel, t= 10 * pixel;
-          if (env->get_string (PAGE_BORDER) == "attached") {
-#ifdef QTTEXMACS
-            if (i > 0) l= pixel / 2;
-#else
+          SI l= 0, r= 0, b= 0, t= 0;
+          if (env->get_string (PAGE_BORDER) != "none") {
+            l= 10 * pixel, r= 10 * pixel;
+            b= 10 * pixel, t= 10 * pixel;
+            if (env->get_string (PAGE_BORDER) == "attached") {
+              if (i > 0) l= pixel / 2;
+              if (i < nx - 1) r= 0;
+            }
+          }
+          else {
             if (i > 0) l= pixel;
-#endif
-            if (i < nx - 1) r= 0;
           }
           color bg= tm_background;
           if (env->get_string ("full-screen-mode") == "true") bg= black;
@@ -351,7 +357,8 @@ pager_rep::make_pages () {
       yy[j]= yy[j - 1];
       for (int i= 0; i < nx; i++) {
         int p= j * nx + i - d;
-        if (p >= 0 && p < nr_pages) yy[j]= min (yy[j - 1] - pg[p]->h (), yy[j]);
+        if (p >= 0 && p < nr_pages)
+          yy[j]= min (yy[j - 1] - pg[p]->h () - vgap, yy[j]);
       }
     }