[77_9] Beamer: switch to book and fit-to-screen-width

XmacsLabs · Mar 4, 2024 · 9ee7b82 · 9ee7b82
1 parent 907daf2
commit 9ee7b82
Showing 1 changed file with 12 additions and 10 deletions.
diff --git a/TeXmacs/progs/generic/document-edit.scm b/TeXmacs/progs/generic/document-edit.scm
@@ -330,22 +330,24 @@
          (init-env "page-border" "attached")
          (init-env "page-packet" "2")
          (init-env "page-offset" "1")
-	 (notify-page-change)
-	 (delayed (:idle 25) (restore-zoom s)))
+         (notify-page-change)
+         (if (and (inside? 'slideshow) (> (nr-pages) 1))
+             (delayed (:idle 25) (fit-to-screen-width))
+             (delayed (:idle 25) (restore-zoom s))))
         ((== s "panorama")
          (init-env "page-medium" "paper")
          (init-env "page-packet" (number->string (panorama-packets)))
          (init-default "page-border")
          (init-default "page-offset")
-	 (notify-page-change)
-	 (delayed (:idle 25) (fit-all-to-screen)))
+         (notify-page-change)
+         (delayed (:idle 25) (fit-all-to-screen)))
         (else
-          (init-env "page-medium" s)
-          (init-default "page-border")
-          (init-default "page-packet")
-          (init-default "page-offset")
-	  (notify-page-change)
-	  (delayed (:idle 25) (restore-zoom s)))))
+         (init-env "page-medium" s)
+         (init-default "page-border")
+         (init-default "page-packet")
+         (init-default "page-offset")
+         (notify-page-change)
+         (delayed (:idle 25) (restore-zoom s)))))
 
 (tm-define (initial-get-page-rendering u)
   (with-buffer u